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
| LesColonnes = Array(1, 28, 25, 26, 5, 27)
For Each lecontrol In saisie.Controls
If InStr(lecontrol.Name, "_lst01") <> 0 Then 'type controle
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value 'lecontrol.List(cb_lst01.ListIndex)
Lindex = Lindex + 1
ElseIf InStr(lecontrol.Name, "_lst02") <> 0 Then 'date
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value 'lecontrol.List(cb_lst02.ListIndex)
Lindex = Lindex + 1
ElseIf InStr(lecontrol.Name, "_lst03") <> 0 Then 'commune
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value 'lecontrol.List(cb_lst03.ListIndex)
Lindex = Lindex + 1
ElseIf InStr(lecontrol.Name, "_txt04") <> 0 Then 'heure1
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value
Lindex = Lindex + 1
ElseIf InStr(lecontrol.Name, "_txt05") <> 0 Then 'heure2
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value
Lindex = Lindex + 1
ElseIf InStr(lecontrol.Name, "_txt06") <> 0 Then 'adresse
Cells(noligne, LesColonnes(Lindex)) = lecontrol.Value
Lindex = Lindex + 1 |
Partager