Boucle sur les controls Checkbox

Bonjour à tous

Je rencontre une difficulté a faire fonctionner ma macro, j'ai un userform avec plusieurs checkboxs je souhaite enregistrer la valeurs de ces derniers sur une feuille dédie sachant qu'ils ont tous la même valeur "X" ou lieu de faire si la checkbox 1 est active donc la valeur de la cellule sera un X et répété ça sur toutes les autres, j'ai tenté une boucle comme ceci

Dim ws As Worksheet
Dim lr As Long
Set ws = Sheets("nom de feuille")

lr = ws.Range("A" & Rows.Count).End(xlUp).Row
Dim check As Boolean
With ws
 For i = 1 To lr
    For j = 1 To 12
        If Me.Controls("Checkbox" & i) = True Then
            .Cells(i, j + 1).Value = "X"
        End If
    Next j
Next i
End With

Set ws = Nothing

Sauf erreur de ma part sur les version ultérieure cela fonction correctement !!!

quelqu'un aurais une idée de l'erreur que j'ai du faire ?

Merci d'avance

Bonjour

si tu a 12 Checkbox

mettre J a la place de I

ex : Controls("Checkbox" & J)

A+

Maurice

Re à tous

Merci Maurice pour la réponse, cela ne fonctionne toujours pas.

juste ou cas ou, pour info le Name de chaque checkbox a été modifies est ce que cela peux affecter le bon déroulement du code ?

Bonsoir,

vous avez trouvé !!!

En effet votre boucle tourne sur le nom des contrôles avec comme préfixe "ChecBox" + une valeur numérique, enfin disons que c'est la structure d'origine de création des noms de contrôle sous VBA, maintenant si ces contrôles ont pour noms :

checbox1, laboiteàcocher 2 etc il est normal que la boucle ne marche pas....

@ bientôt

LouReeD

Re à tous

Ravi que cela t'amuse LouReeD

@ Bientôt avec une nouvelle

Vous pourriez renommer tous les contrôles ou bien mettre leur nom dans un tableau et ensuite boucler sur ce tableau...

@ bientôt

LouReeD