Plusieurs TextBox & CheckBox dans un userform et leur incrementation

Bonjour à toutes et à tous,

Je vous remercie pour l'accueil et d'avance pour votre aide.
Etant grand débutant en vba et les outils liés à Excel je galère quelque peu à essayer d'implémenter le userform que je souhaite activer dans mon tableau excel.

Mon userform dispose de 20 textbox ainsi que de 12 checkbox.

Le but est double :
Je souhaite faire retenir les valeurs entrées dans chacune des textbox dans une cellule bien précise d'un feuillet (ex: textbox1 va dans cellule A1; textbox2 va dans celuule A2, etc.); ainsi que d'entrer une valeur correspondant au fait d'avoir ticker ou non les checkbox (checkbox1 est enregistré dans cellule B1, checkbox2 dans cellule B2, etc.). Par la suite chacune des valeurs rentrées resteront dans le userform. Pour cela la sauvegarde des valeurs entrées se fera via un bouton "save".

Pour une valeur donnée (une pour une textbox et une checkbox) j'ai rentré le code suivant qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton15_Click()   If CheckBox1.Value = True Then Worksheets("sheet1").Range("C2") = "Check" Else Worksheets("sheet1").Range("C2") = "" End If   Worksheets("sheet1").Range("A5").Value = TextBox2.Value   End Sub   Private Sub UserForm_Initialize() If Worksheets("sheet1").Range("C2") = "Check" Then CheckBox1.Value = True Else CheckBox1.Value = False End If   TextBox2.Value = Worksheets("sheet1").Range("A5").Value   End Sub

---

Pour toutes les autres checkbox et textbox, je peux faire de même, mais je me demandais si en utilisant une fonction for i = 1 to x on ne pourrait pas automatiser cela ?
un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton15_Click()   Dim i As Integer For i = 1 To 12 If CheckBox(i) = True Then Worksheets("sheet1").Range("C2" & i) = "Check" Else Worksheets("sheet1").Range("C2" & i) = "" End If i = i + 1 Next i   Dim i As Integer For i = 1 To 20 Worksheets("sheet1").Range("A" & i).Value = TextBox(i).Value i = i+ 1 Next i   End Sub

---

Et par la suite faire son pendant pour que les valeurs soient enregistrés dans l userform même lors de l'ouverture.
Cependant, je viens vers vous car malheureusement cela ne fonctionne pas.
Pourriez-vous svp me dire ce que je dois changer ou faire pour que cela fonctionne ?
Merci par avance et bonne journée à vous.
Cdt
A.

Bonjour,

Pour boucler sur des contrôles, par exemple :

Code:

---

1 2 3

For i = 1 to 10 Me.Controls("CheckBox" & i) = True Next

---

Pour enregistrer ou charger des données de l'UserForm vers la feuille et réciproquement, créer 2 Sub :
Sub ChargeDansUserForm()
Sub EnregistreDansFeuille()
Procédures que tu pourras appeler à tout moment (Initialize, CommandButton_Click, etc...)

Par exemple, pour charger des données dans l'UserForm :

Code:

---

1 2 3 4 5 6

Sub ChargeDansUserForm() Dim i As Integer For i = 1 To 12 Me.Controls("CheckBox" & i) = (Sheets("Sheet1").Range("C" & i + 1) = "Check") Next End Sub

---

Procédure que tu appelleras, par exemple, depuis l'événement initialize, comme ceci :

Code:

---

1 2 3

Private Sub UserForm_Initialize() Call ChargeDansUserForm End Sub

---

Idem pour tes textbox : Me.Controls("TextBox" & i)

A lire, d'urgence :
http://silkyroad.developpez.com/VBA/ControlesUserForm/
http://silkyroad.developpez.com/VBA/UserForm/

Bon dimanche

Bonjour Pijaku,

Merci pour ta réponse et les éclairsissements.
cela fonctionne parfaitement pour les Textbox.

En revanche concernant les checkbox il y a un souci, mais je vais continuer a chercher. - ok super j'ai trouvé.

Encore merci et bon dimanche !

Merci également pour les liens qui sont fort instructifs.

Cdt
A.