Bonjour à tous,
j'ai besoin d'aide sur l'imbrixation de 2 boucles qui ne fonctionne pas.
Merci de votre aide
j'ai besoin d'aide sur l'imbrixation de 2 boucles qui ne fonctionne pas.
Code:
Private Sub ComboBox_MAGASIN_Change()
'&&&&&&&&&&&&&&&&& INITIALISE LES DONNEES DANS LA COMBOBOX &&&&&&&&&&&&&&&&&&&&
Dim u As Integer
For u = 2 To 7
Dim lettre As Variant
For t = 0 To 5
lettre = Array("A", "B", "C", "D", "E", "F")
t = lettre(t)
Me.Controls("Txt_Config_ETATCIVIL" & u).Value = Sheets("Config").Range(t & ComboBox_MAGASIN.ListIndex + 6).Value
Next
Next
End Sub
Merci de votre aide