Salut ZON,
Merci pour la soluce, mais j'ai trouvé ceci : (je le donne pour info pour tout le monde )
1) alimenter un feuille excel à partir de plusieurs textbox sur une ligne de la feuill1 :
Code suivant à mettre dans le code du UserForm :
For Each Mabox In Controls
If Left(Mabox.Name, 7) = "TextBox" Then
I = Right(Mabox.Name, Len(Mabox.Name) - 7)
Worksheets("Feuill1").Range("A1").Offset(ligne, I - 1) = Mabox
End If
Next
Exemple:
La feuille 1 contiendra : 1|2|3|4....etc....N pour TextBox(N)
2) alimenter plusieurs textbox à partir de la feuill1 sur la ligne 1 :
Code suivant à mettre dans le code du UserForm :
For Each Mabox In Controls
If Left(Mabox.Name, 7) = "TextBox" Then
I = Right(Mabox.Name, Len(Mabox.Name) - 7)
Mabox.Value = Worksheets("infrastructure").Range("A1").Offset(ligne, I - 1).Value
End If
Next
Attention: les TextBox doivent avoir le meme nom :
exemple: TotoBox1, TotoBox2, TotoBox3 ...etc...TotoBox(N)
Je n'ai pas eu le temps de tester ta solution, mais je te remercie grandement pour ton aide et merci au forum.