Ma CheckBox générée par le code est-elle cochée ?

Bonjour a tous !

Je n'ai pas trouve de réponse a ma question sur les différentes sujets du forum donc je me permet de la poster ici... il s'agit surement de quelque chose de tout simple mais il se peut que je sature au bout d'un moment

Je cherche a générer un formulaire qui affiche un nombre de checkbox et de textbox en fonction du nombre de colonne d'une feuille excel (nom des villes dans mon fichier exemple).

Lorsque que l'utilisateur cochera une checkbox, la textbox voisine passera a enabled = True.

Cependant, je n'arrive pas a récupérer les noms de mes checkbox et textbox que j'ai créé pour vérifier leurs "etats" (cochee ou non) comme je le ferai avec une checkbox dessinée sur un userForm avec :

Private Sub CheckBox1_click ()
If CheckBox1.Value = True Then
    TextBox1.Enabled = True
End If
End Sub

J'ai essaye plusieurs choses sans succès comme par exemple ajouter le nom de la checkbox créée dans un tableau avec une référence... rien a faire...

Pouvez-vous regarder mon code dans le fichier joints et me dire ce que vous en pensez SVP ?

D'avance MERCI !!

(Comme je travaille sur un fichier confidentiel, j'ai modifié toutes les valeurs des cellules )

Bonjour,

Je ne sais pas s'il est possible de créer du code sur les évènements de contrôles créés dynamiquement sans utiliser de module de classe.

A+

Bonsoir,

Il faut effectivement utiliser un module de classe.

ci-joint exemple

Merci beaucoup pour votre temps et vos reponses !

J'ai regardé les exemples que vous m'avez fournis et ils sont assez clairs

Cependant est-ce que maintenant le name et la caption sont propre a une checkbox précise? j'ai l'impression qu'ils sont "disponibles" seulement au moment ou on clique sur la checkbox mais qu'ils sont effacés ensuite...

Je souhaiterai par exemple que quand on clique sur le bouton OK on affiche les name et les caption de toutes les checkbox cochées...

(Je ne sais pas si c'est assez clair, je ne débute pas en VBA mais mon niveau est moyen - on va dire )

Re ,

à essayer et adapter

' à rajouter dans Private Sub CommandButton1_Click()
For Each CTR In Me.Controls
    If TypeName(CTR) = "CheckBox" Then MsgBox CTR.Name & " " & CTR.Caption & " " & CTR.Value
Next

A+

Apres avoir arrange le code, tout fonctionne !

Merci beaucoup pour votre aide!