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

**Choupett'** · 13/06/2006, 21h26

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   Sub NomDeMaCollection_Click()
   MaMacro
   End sub

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

**ouskel'n'or** · 13/06/2006, 21h54

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

**jmfmarques** · 13/06/2006, 21h57

Il n'y a pas le tag...

Mais je vois le mot macro...

On peut indexer sous VBA ?

**ouskel'n'or** · 13/06/2006, 22h00

Sous VBA97, non. Sous les versions ultérieures, je crois... mais effectivement, je n'en suis pas sûr

Choupett' va nous dire ça...

**zazaraignée** · 13/06/2006, 22h06

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?

**Choupett'** · 14/06/2006, 11h08

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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