VBA - Associer plusieurs CheckBox à plusieurs cellules

Bonjour tout le monde,

Je cherche de l'aide pour réussir à associer des CheckBox à des cellules.

Je connais les manips pour l'association d'une checkbox à une cellule mais il s'avère que j'ai un tableau de 500 lignes.

Ce que j'aimerais réussir à faire c'est, dans une boucle for pour chaque ligne, écrire un code me créant une CheckBox et l'associant à cells ( i, 7).

Quelqu'un serait il en mesure de m'aider ?

Bonjour et bienvenu(e)

A tester

Merci pour le code, ça marche.

Je suis encore débutant sur VBA donc je découvre en même temps les fonction associées à ton code @Banzai64

Je vais essayer de le modofier à ma sauce maintenant.

Merci

ça va vous paraitre bête mais je n'arrive pas à boucler ce code !

Private Sub OptionButton5_Click()

For i = 1 To 9

If OptionButton5 = True Then

CheckBox1.Visible = True

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox4.Visible = True

CheckBox5.Visible = True

CheckBox6.Visible = True

CheckBox7.Visible = True

CheckBox8.Visible = True

CheckBox9.Visible = True

CheckBox10.Visible = False

CheckBox11.Visible = False

CheckBox12.Visible = False

CheckBox13.Visible = False

CheckBox14.Visible = False

CheckBox15.Visible = False

CheckBox16.Visible = False

CheckBox10 = False

CheckBox11 = False

CheckBox12 = False

CheckBox13 = False

CheckBox14 = False

CheckBox15 = False

CheckBox16 = False

End If

Next i

End Sub

Private Sub OptionButton6_Click()

For i = 1 To 9

If OptionButton6 = True Then

CheckBox10.Visible = True

CheckBox11.Visible = True

CheckBox12.Visible = True

CheckBox13.Visible = True

CheckBox14.Visible = True

CheckBox15.Visible = True

CheckBox16.Visible = True

CheckBox1.Visible = False

CheckBox2.Visible = False

CheckBox3.Visible = False

CheckBox4.Visible = False

CheckBox5.Visible = False

CheckBox6.Visible = False

CheckBox7.Visible = False

CheckBox8.Visible = False

CheckBox9.Visible = False

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox4 = False

CheckBox5 = False

CheckBox6 = False

CheckBox7 = False

CheckBox8 = False

CheckBox9 = False

End If

Next i

End Sub

Si vous pouviez m'aider.. MERCI !

à toi aussi et bienvenu(e)

Pas trop glop de squatter un post (il vaut mieux ouvrir le sien)

Sans un fichier pour vérifier

A tester

Private Sub OptionButton5_Click()
  If OptionButton5 = True Then
    For i = 1 To 9
      Me.Controls("CheckBox" & i).Visible = True
    Next i
    For i = 10 To 16
      Me.Controls("CheckBox" & i).Visible = False
      Me.Controls("CheckBox" & i) = False
    Next i
  End If
End Sub

Private Sub OptionButton6_Click()
  If OptionButton6 = True Then
    For i = 1 To 9
      Me.Controls("CheckBox" & i).Visible = False
      Me.Controls("CheckBox" & i) = False
    Next i
    For i = 10 To 16
      Me.Controls("CheckBox" & i).Visible = True
    Next i
  End If
End Sub

Désolé Je ne savais pas..

Merci mais ça ne marche pas.. ça me met "Erreur de compilation : Membre de méthode ou de données introuvable" sur la fonction ".Controls".

Ci-joint le fichier de base.

A tester

justement j'ai essayé avec le code que tu m'as donné mais ça me met une erreur de compilation.

teste ce fichier

BONJOUR ! désolé je viens de me rendre compte que je ne l'ai jamais dit, je vais droit au but ^^

Je ne vois pas de fichier joint..

Bonjour

Voici le fichier

Re,

Super merci !! même si j'ai pas tout compris Lol. je vais pouvoir continué mon outils excel, j'ouvrirai un nouveau sujet si besoin.

Bonne fin de journée

Rechercher des sujets similaires à "vba associer checkbox"