[XL-2010] Simple next for fonctionne pas

[8e8eClo]

Bonsoir,

J'ai ce code

Code :

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 :

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 :

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 :

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 :

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,

Envoyé par 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 ?

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

Code :

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