🔢 Création d’une Calculatrice VBA intégrée pour la Facturation

🎯 Objectif de cette calculatrice

Pour simplifier les calculs directement dans l’environnement Excel, j’ai développé une calculatrice personnalisée (UserForm VBA) permettant :

• Le calcul automatique HT / TTC / TVA

• La conversion de montants entre différentes unités : dirhams, rials, francs

• Le calcul rapide de réductions (fixes ou personnalisées)

• L’affichage du montant en lettres

• L’impression directe de la fiche de calcul

---

🧰 Fonctionnalités principales

1. 🔁 Conversion HT ⇄ TTC

Selon la valeur saisie (HT ou TTC), l’autre champ est automatiquement calculé avec le taux de TVA par défaut (20%).

vba

If tb_HT.Value = True Then
    tb_TTC = tb_HT + (tb_HT * tb_TVA / 100)
End If

If tb_TTC.Value = True Then
    tb_HT = tb_TTC / (1 + tb_TVA / 100)
End If

Une alerte est prévue si les champs sont vides :

vba

If tb_HT.Value = "" And tb_TTC = "" Then
    MsgBox "entrer une valeur TTC OU HT"
End If

---

2. 🧮 Calcul des Réductions

L'utilisateur peut :

• Cocher un bouton prédéfini : 5%, 10%, 15%, 20% ou 25%

• Ou saisir un pourcentage personnalisé

Ensuite, la réduction et le montant après remise sont automatiquement calculés :

vb

TRéduction.Value = TMantant.Value * (Aautre_pourcentage / 100)
TMantant_réd.Value = TMantant - TRéduction

Un message est affiché si aucune valeur n’est choisie :

vba

MsgBox "Séléctioner ou écrivez une valeur de réduction"

---

3. 💱 Convertisseur Dirham – Rial – Franc

Basé sur des taux de conversion fixes :

• 1 dirham = 20 rials

• 1 dirham = 100 francs

La logique est réversible, quel que soit le champ rempli :

vba
If tb_dh.Value = True Then
    tb_rial = tb_dh * 20
    tb_faranc = tb_dh * 100
End If

---

4. 🔠 Affichage du montant en lettres

Si vous entrez une valeur dans tb_dhC, le formulaire utilise une formule Excel (=chiffrelettre) pour convertir ce montant en lettres dans tb_dhL.

---

5. 🖨️ Impression et réinitialisation

Un bouton Imprimercalcul_Click() permet d’imprimer le formulaire.

D’autres boutons comme Vider_Click() et VIDER_REDU_Click() permettent de réinitialiser les champs pour un nouveau calcul.

---

🔎 Pourquoi cette calculatrice est utile ?

• 📋 Gain de temps pour les factures personnalisées

• 🎯 Précision sur les conversions et réductions

• ✅ Clarté pour les clients grâce au montant en lettres

• 🖨️ Rapidité d’impression et conservation des calculs

---

📁 Bonus technique : Nettoyage & contrôle

Chaque champ est réinitialisé au clic pour éviter les erreurs ou doublons :

vba

Private Sub tb_HT_MouseDown(...)
tb_HT.Text = ""
...
End Sub