1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
| Dim NumClient, TitreClient, NomClient, PrénomClient, NomEntreprise As Variant
Dim NumVoie, MentionVoie, Voie, NomVoie, CP, Ville As Variant
Dim NumTélF, NumTélP, Courriel As Variant
Dim Jour, Mois, Année, NumDevis, NumFacture As Variant
Dim Libellé, Unité, Quantité, PUHT, Remise, TotalHT As Variant
Private Sub ComboBox1_Change()
MentionVoie = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
MentionVoie = ComboBox2.Value
End Sub
Private Sub ComboBox3_Change()
Libellé = ComboBox3.Value
End Sub
Private Sub ComboBox4_Change()
Unité = ComboBox4.Value
End Sub
Private Sub ComboBox5_Change()
Quantité = ComboBox5.Value
End Sub
Private Sub ComboBox6_Change()
TitreClient = ComboBox6.Value
End Sub
Private Sub FORMATION_Initialize()
ComboBox1.AddItem "Chemin"
ComboBox1.AddItem "Route"
ComboBox1.AddItem "Impasse"
ComboBox1.AddItem "Rue"
ComboBox1.AddItem "Avenue"
ComboBox1.AddItem "Boulevard"
ComboBox1.AddItem "Cour"
ComboBox2.AddItem "Chemin"
ComboBox2.AddItem "Route"
ComboBox2.AddItem "Impasse"
ComboBox2.AddItem "Rue"
ComboBox2.AddItem "Avenue"
ComboBox2.AddItem "Boulevard"
ComboBox2.AddItem "Cour"
ComboBox3.AddItem "Préparation de formation : Création de sujets de formation,réalisation des supports pédagogiques et correction individuelle de l'examen final."
ComboBox3.AddItem "Mission de formation : Utilisation du logiciel Visual ARC (formation DEUST 1) date : 22-23 mars 2021 inclus - durée : 7h/jour - lieu : Maison des Compagnons (Angers)"
ComboBox3.AddItem "Frais de déplacement : Petit-déjeuner"
ComboBox3.AddItem "Frais de déplacement : Déjeuner"
ComboBox3.AddItem "Frais de déplacement : Dîner"
ComboBox3.AddItem "Frais de déplacement : Hébergement"
ComboBox3.AddItem "Frais de déplacement : Carburant"
ComboBox4.AddItem "Forfait journalier"
ComboBox4.AddItem "Frais"
ComboBox5.AddItem "1"
ComboBox5.AddItem "2"
ComboBox5.AddItem "3"
ComboBox5.AddItem "4"
ComboBox5.AddItem "5"
ComboBox6.AddItem "Monsieur"
ComboBox6.AddItem "Madame"
ComboBox6.AddItem "Mademoiselle"
End Sub |
Partager