VBA - Associer plusieurs CheckBox à plusieurs cellules Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
martinoger
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 10 juillet 2015
Version d'Excel : 2007

Message par martinoger » 10 juillet 2015, 10:27

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 ?
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 10 juillet 2015, 14:06

Bonjour et bienvenu(e)

A tester
martinoger Création CheckBox V001.xlsm
(18.89 Kio) Téléchargé 79 fois
m
martinoger
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 10 juillet 2015
Version d'Excel : 2007

Message par martinoger » 15 juillet 2015, 09:18

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 :)
m
mrxav60410
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 août 2015
Version d'Excel : 2010 FR

Message par mrxav60410 » 20 août 2015, 15:39

ç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 !
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 20 août 2015, 17:00

Bonjour à 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
m
mrxav60410
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 août 2015
Version d'Excel : 2010 FR

Message par mrxav60410 » 21 août 2015, 09:55

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.
TEST Choix automatique version longue.xlsm
(91.32 Kio) Téléchargé 39 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 août 2015, 11:41

Bonjour

A tester
m
mrxav60410
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 août 2015
Version d'Excel : 2010 FR

Message par mrxav60410 » 21 août 2015, 11:44

justement j'ai essayé avec le code que tu m'as donné mais ça me met une erreur de compilation.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 21 août 2015, 11:47

Bonjour

teste ce fichier
m
mrxav60410
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 août 2015
Version d'Excel : 2010 FR

Message par mrxav60410 » 21 août 2015, 13:16

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..
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message