Discussion :

[8e8eClo]

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

[BlueMonkey]

Bonsoir,

C'est normal, il s'agit de 2 boucles imbriquées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For z = 4 To 6
     For i = 1 To 3
          Range("A1").Offset(0, z) = Me.Controls("textbox" & i)
     Next i
Next z

Pour avoir les infos en A4,A5,A6 :

Essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Dim i As Integer
For i = 1 To 3
    Range("A1").Offset(2 + i) = Me.Controls("textbox" & i)
Next i

[tedo01]

Bonjour,
Le code fait exactement ce qui est écrit, à savoir écrire 3 choses différentes dans la même cellule . Du coup, c'est la dernière valeur qui reste.
Pour être plus claire, dans la boucle suivante, on écrit successivement la valeur des 3 textbox dans la même cellule Range("A1").Offset(0, z) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 3
Range("A1").Offset(0, z) = Me.Controls("textbox" & i)
Next i

Pour faire ce que tu veux, il faut une seule boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 3
   Range("A1").Offset(0, i + 2) = Me.Controls("textbox" & i)
Next i
End Sub

[8e8eClo]

Je voulais éviter les codes proposés justement.

Je ne peux pas utiliser "z" pour définir le numéro de mes textbox et "i" pour définir le numéro des cellules ?

Je suis obligé de passer par un formule avec "+"/"-" ?

Merci

[pijaku]

Bonjour tout le monde,

Je voulais éviter les codes proposés justement.

Je ne peux pas utiliser "z" pour définir le numéro de mes textbox et "i" pour définir le numéro des cellules ?

Même si je n'en vois pas l'intérêt... une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Integer
Dim z As Integer
 
i = 0
For z = 4 To 6
    i = i + 1
    Range("A1").Offset(0, z) = Me.Controls("textbox" & i)
Next z
End Sub