Boucle sur TextBox complexe

[Temjeh]

Bonjour et merci d'avance

Je cherche à remplir 40 Textbox par Range.value, ceci est bon si tous en col A:

For i = 1 To 40
UserForm1.Controls("Textbox" & (i)) = Range("A" & ActiveCell.Row)
ActiveCell.Offset(1, 0).Select
Next i

Le prob est que les données sont en 5 col:

Textbox1 =Range("A1").value
Textbox2 =Range("B1").value
Textbox3 =Range("C1").value
Textbox4 =Range("D1").value
Textbox5 =Range("E1").value

Ensuite:

Textbox6 =Range("A2").value
Textbox7 =Range("B2").value
Textbox8 =Range("C2").value
Textbox9 =Range("D2").value
Textbox10 =Range("E2").value

Ensuite:

Textbox11 =Range("A3").value
etc....

Merci pour une idée de boucle pour 40 TextBox

Temjeh

PS: C'est vrai que pour plus simple je pourrait y mettre mes données sur ligne et boucler sur une autre feuil qui ferait référence a mes données de ligne mis en colonne A

 

[Catrice]

Re : Boucle sur TextBox complexe

Bonjour,

tu peux tester ceci :


Sub test()
y = 1
For i = 0 To 39
x = (i Mod 5) + 1
UserForm1.Controls("Textbox" & (i + 1)) = Cells(x, y)
If x = 5 Then y = y + 1
Next
End Sub

 

[Temjeh]

Re : Boucle sur TextBox complexe

Merci
il y a juste une inversion je crois car il boucle sur ligne aulieu de col en premier
Cells(y, x)

Merci beaucoup tout fonctionne sauf que peut-il partir de l'activecell en col A?

A++
Temjeh

Edit j'ai trouvé: y = ActiveCell.Row

 

[Catrice]

Re : Boucle sur TextBox complexe

Bonsoir,

J'avais effectivement inversé 😉

Pour partir de la cellule active je propose :

Sub test()
x = ActiveCell.Row
z = ActiveCell.Column - 1
For i = 0 To 39
y = (i Mod 5) + 1
UserForm1.Controls("Textbox" & (i + 1)) = Cells(x, y + z)
If y = 5 Then x = x + 1
Next
End Sub

 

[Temjeh]

Re : Boucle sur TextBox complexe

Parfait, merci

Temjeh

 

[excalibur]

Re : Boucle sur TextBox complexe

bonjour Temjeh Catrice le forum une autre variante
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
Range((ActiveCell.Address) & ":" & (ActiveCell.Offset(4, 4).Address)).Select
For i = 1 To 40: Controls("Textbox" & (i)) = Selection.Cells(i): Next i
End Sub

 

[Bebere]

Re : Boucle sur TextBox complexe

bonjout Temjeh,Catrice
une autre proposition

Dim I As Byte, J As Byte, L As Long
For I = 1 To 40 Step 5
L = L + 1
For J = 0 To 4
UserForm1.Controls("Textbox" & I + J) = Feuil3.Cells(L, J + 1)
Next J
Next I

à bientôt

 

[Catrice]

Re : Boucle sur TextBox complexe

Bonjour,

Inspiré du code d'Excaibur sans le Select :

Sub test()
For Each X In Range(ActiveCell, ActiveCell.Offset(7, 4))
i = i + 1: Controls("Textbox" & (i)) = X.Value
Next
End Sub