[VBA Excel] Une même macro pour plusieurs CheckBox

Bonjour,

Je suis débutante en vba.
Je voudrais créer un nombre indéfini de CheckBox, auxquelles je voudrais affecter la même macro. Après avoir cherché dans l'aide et sur internet, je pense que je pourrais m'en sortir avec une collection de CheckBox.
J'arrive à faire entrer mes CheckBox dans la collection mais je n'arrive pas ensuite à ce que ma macro s'effectue quand je clique sur une case à cochée.

J'ai essayé avec :

Code:

---

1 2 3

Sub NomDeMaCollection_Click() MaMacro End sub

---

Est-ce que c'est possible? Et si oui, comment dois-je faire?
Merci

Jète un oeil à cette adresse

http://vb.developpez.com/faq/?page=Form#ctl_dynamique

Consiste à indexer les contrôles puis à les gérer selon leur index

Tu dis

Il n'y a pas le tag...:lol:
Mais je vois le mot macro...

On peut indexer sous VBA ?

Sous VBA97, non. Sous les versions ultérieures, je crois... mais effectivement, je n'en suis pas sûr :(
Choupett' va nous dire ça... :oops:

Non, justement, j'allais le dire à ouskel'! On peut pas en VBA puisqu'il n'y a pas de propriété Index...

Choupett', que veux-tu faire au juste? Les boutons d'options ne seraient-ils pas plus adéquats?

J'ai VBA97, et apparemment comme le dit ouskel'n'or, on ne peut pas. En tout cas je n'y arrive pas.

J'ai pensé aux boutons d'option mais ça ne me convient pas car il faut que je puisse en cocher plusieurs à la fois.

J'essaie de faire un programme qui me permettrait de calculer un budget. Et j'ai besoin de ces cases à cocher pour pouvoir pointer ce qui est sur le relevé de banque.

Donc pour calculer ce solde pointé, j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub CheckBox2_Click() 'Pour trouver sur quelle ligne ce situe ma checkBox y = CheckBox2.Top N°Ligne = Int(y / 12.75) + 1 If CheckBox2.Value = True Then Cells(N°Ligne, 9).FormulaR1C1 = Cells(N°Ligne, 7) 'avec dans la colonne G le montant des dépenses et des recettes Else Cells(N°Ligne, 9).FormulaR1C1 = "0" 'dans la colonne I le pointage End If SoldePointé End Sub Sub SoldePointé() If Cells(3, 10).Value = "" Then 'avec dans la colonne J le solde pointé Pointage = Cells(3, 9).Value Cells(3, 10).Select Selection.FormulaR1C1 = Pointage Else: Cells(3, 9).End(xlDown).Select Pointage = Selection.Value Selection.Offset(0, 1).Select Selection.FormulaR1C1 = Pointage Selection.Offset(-1, -1).Select Do Pointage = Selection.Offset(1, 1).Value + Selection.Value Selection.Offset(0, 1).Select Selection.FormulaR1C1 = Pointage Selection.Offset(-1, -1).Select Loop Until Selection.Value = "" End If End Sub

---

Le problème, c'est qu'à chaque fois que je rentre une nouvelle dépense, j'ai besoin de créer une nouvelle Checkbox à laquelle je dois affecter ma macro CheckBox_Click. D'où mon idée de faire une collection et d'affecter cette macro à la collection mais je ne sais pas si c'est possible et je n'y arrive pas.

Merci de votre aide :)


Pense aux balises Code pour encadrer ton code. Sélection du code, 1 clic sur le bouton # et picétou ;)
Ajoutées par ouskel'n'or

Tu mets

Citation:

---

If CheckBox2.Value = True Then
Cells(N°Ligne, 9).FormulaR1C1 = Cells(N°Ligne, 7)
'avec dans la colonne G le montant des dépenses et des recettes
Else

---

C'est la colonne 6 ou la colonne 9 (G ou I) ?

Je sais que je ne réponds pas à ta question mais j'ai vu ça, alors...

A+

Dans la colonne G (7), le montant des dépenses ou des recettes
Dans la colonne I (9), le pointage
Dans la colonne J (10), le solde pointé

Et je veux mettre dans la colonne I, la valeur de la colonne G si la checkBox est cochée. Et à partir de cette colonne I qui est masquée, je calcule le solde pointé dans la colonne J.

Je ne sais pas si j'ai répondu à ta question mais j'avoue que je n'ai pas très bien compris où était le problème...

Citation:

---

Cells(N°Ligne, 9).FormulaR1C1 = Cells(N°Ligne, 7)
'avec dans la colonne G le montant des dépenses et des recettes

---

C'était juste l'incohérence entre ton code et la remarque ;)

A+

Je voulais savoir s'il était possible que je me serve du code de Silkyroad qu'il a posté là : http://www.developpez.net/forums/sho...d.php?t=162082

J'ai essayé mais je ne suis pas dans un userform mais dans un module donc j'ai un problème avec le Me dans Set CmndB = Me.Controls.Add

Code:

---

("forms.CommandButton.1")

---

C'est peut-être une question bête mais je ne comprends pas encore tout aux classes

Merci d'avance

pour traiter un probléme similaire.. je ne me suis pas pris le chou avec un check box... mais j'ai réservé une colonne pour cocher .. colonne dans laquelle je rajoute un X lorsque... une procédure événementielle à la feuille concernée du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then If Intersect(Target, Range("G2:G65535")).Count = 1 Then If Target = "" Then Target = "X" Cancel = True End If End If End If End Sub

---

;)

Je pense que je vais faire comme tu m'as dit bbil.
Merci pour votre aide