Autres textbox en séries...

AlainProviste à dit:

Bonjour,

Dans ma feuille de calcul j'ai 3 colonnes (ABC ) de valeurs numériques sur une plage de 100.
Je souhaiterais que ces colonnes soient envoyées à l'identique dans 100 textbox .
Dans une autre cas j'ai utilisé le code ci dessous pour une colonne mais je ne parviens pas à faire de même pour 3 colonnes.

Dim x as integer
For x = 1 To 100
Me.Controls("Textbox1" & x).Value = Sheets("FEUIL1").Range("B" & x).Value
Next x

Merci par avance de m'apporter votre aide.

Cliquez pour agrandir...

Me.Controls("Textbox" & x).Value = Sheets("FEUIL1").Range("B" & x).Value

cp4 à dit:

Me.Controls("Textbox" & x).Value = Sheets("FEUIL1").Range("B" & x).Value

Cliquez pour agrandir...

laurent950 à dit:

Sub Macro4() Dim x, y, cpt As Integer cpt = 1 With Sheets("FEUIL1") For x = 1 To 8 For y = 1 To 3 UserForm1.Controls("Textbox" & cpt).Value = .Range(.Cells(x + 1, y), .Cells(x + 1, y)).Value Debug.Print UserForm1.Controls("Textbox" & cpt).Value cpt = cpt + 1 Next y Next x End With UserForm1.Show x = Empty: y = Empty: cpt = Empty End Sub

Cliquez pour agrandir...

AlainProviste à dit:

je souhaitais actionner la "macro4 avec un bouton de commande sur mon userform.

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
    Macro4
End Sub

Sub Macro4()
Dim x, y, cpt As Integer
cpt = 1
With Sheets("FEUIL1")
For x = 1 To 8 ' Nombre de Lignes 9, 10, 11, 12 Ect  (Pour une Ligne = 3 TextBox)
    For y = 1 To 3
        UserForm1.Controls("Textbox" & cpt).Value = .Range(.Cells(x + 1, y), .Cells(x + 1, y)).Value
        Debug.Print UserForm1.Controls("Textbox" & cpt).Value
        cpt = cpt + 1
    Next y
Next x
End With
x = Empty: y = Empty: cpt = Empty
End Sub

Public sub AfficheUserform1()
  Me.Show
End Sub