Bonsoir,

J'ai ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim i As Integer
Dim z As Integer
For z = 4 To 6
For i = 1 To 3
Range("A1").Offset(0, z) = Me.Controls("textbox" & i)
Next i
Next z
End Sub
Pourquoi il ne fonctionne pas ?

Pour l'instant il me renvoie seulement la valeur de textbox3 vers A4, A5 et A6. (ex. Si j'entre X dans le textbox3 alors A4, A5 et A6 = X)


Or, je voudrais qu'il me renvoie textbox1, textbox2 et textbox3 vers, respectivement, A4,A5,A6.

Merci