Discussion :

[cedill23]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
 With Sheets("Feuil1")
        .[B2] = TextBox1.Value
        .[B3] = TextBox2.Value
        .[B4] = TextBox3.Value
        .[B5] = TextBox4.Value
        .[B6] = TextBox5.Value
 
    End With

Code :

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

1
2
3
4
5
UserForm1.CheckBox1.Value = Sheets("Feuil1").Range("C2").Value
UserForm1.CheckBox2.Value = Sheets("Feuil1").Range("C3").Value
UserForm1.CheckBox3.Value = Sheets("Feuil1").Range("C4").Value
UserForm1.CheckBox4.Value = Sheets("Feuil1").Range("C5").Value
UserForm1.CheckBox5.Value = Sheets("Feuil1").Range("C6").Value

y'a t'il un moyen d'ecrire ce code en boucle ? car j'ai comme 100 textbox et checkbox donc ça me ferai beaucoup de lignes ce qui est pas propre selon moi.

Merci

[mercatog]

Bonjour
Quelque chose comme ceci

Code :

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

1
2
3
4
5
6
7
Dim i As Byte
 
With Sheets("Feuil1")
    For i = 1 To 100
        .Range("B" & i + 1).Value = Me.Controls("TextBox" & i).Value
    Next i
End With

Et

Code :

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

1
2
3
4
5
6
7
Dim i As Byte
 
With Sheets("Feuil1")
    For i = 1 To 100
        Me.Controls("CheckBox" & i).Value = .Range("C" & i + 1).Value
    Next i
End With

[cedill23]

Merci