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
| 'Correspond à la liste déroulante Prénom
Private Sub ComboBox2_Change()
Dim Ligne As Long
Dim I As Integer
Dim TB
Nettoyage 'Lance le programme Nettoyage
If Me.ComboBox2.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
For I = 1 To 117
Me.Controls("TB31") = Ws.Cells(Ligne, "A").Value
Me.Controls("TB32") = Ws.Cells(Ligne, "B").Value
Me.Controls("TB33") = Ws.Cells(Ligne, "C").Value
Me.Controls("TB2") = Ws.Cells(Ligne, "E").Value
Me.Controls("TB30") = Ws.Cells(Ligne, "F").Value
Me.Controls("TB1") = Ws.Cells(Ligne, "G").Value
Me.Controls("TB12") = Ws.Cells(Ligne, "H").Value
Me.Controls("TB11") = Ws.Cells(Ligne, "I").Value
Me.Controls("TB4") = Ws.Cells(Ligne, "J").Value
Me.Controls("TB16") = Ws.Cells(Ligne, "K").Value
Me.Controls("TB17") = Ws.Cells(Ligne, "L").Value
Me.Controls("TB27") = Ws.Cells(Ligne, "M").Value
Me.Controls("TB28") = Ws.Cells(Ligne, "N").Value
Me.Controls("TB29") = Ws.Cells(Ligne, "O").Value
Me.Controls("TB13") = Ws.Cells(Ligne, "P").Value
Me.Controls("TB14") = Ws.Cells(Ligne, "Q").Value
Me.Controls("TB15") = Ws.Cells(Ligne, "R").Value
Me.Controls("TB5") = Ws.Cells(Ligne, "S").Value
Me.Controls("TB3") = Ws.Cells(Ligne, "T").Value
Me.Controls("TB7") = Ws.Cells(Ligne, "U").Value
Me.Controls("TB8") = Ws.Cells(Ligne, "V").Value
Me.Controls("TB18") = Ws.Cells(Ligne, "W").Value
Me.Controls("TB10") = Ws.Cells(Ligne, "X").Value
Me.Controls("TB19") = Ws.Cells(Ligne, "Y").Value
Me.Controls("TB20") = Ws.Cells(Ligne, "Z").Value
Me.Controls("TB21") = Ws.Cells(Ligne, "AA").Value
Me.Controls("TB22") = Ws.Cells(Ligne, "AB").Value
Me.Controls("TB23") = Ws.Cells(Ligne, "AC").Value
Me.Controls("TB9") = Ws.Cells(Ligne, "AD").Value
Me.Controls("TB6") = Ws.Cells(Ligne, "AE").Value
Me.Controls("TB24") = Ws.Cells(Ligne, "AF").Value
Me.Controls("TB25") = Ws.Cells(Ligne, "AG").Value
Me.Controls("TB26") = Ws.Cells(Ligne, "AH").Value
Me.Controls("TB45")= Ws.Cells(Ligne, "C").Value
Me.Controls("TB46")= Ws.Cells(Ligne, "D").Value
etc jusqu'à 117
Next I |