Discussion :

[nerixm]

Bonjour,

Voila je voudrai savoir si il est possible d'affecter une macro à un bouton dans une feuille Excel en passant des paramètres.
Dans mon cas j'ai créé une macro permettant de calculer un budget mensuel et je souhaite passé en paramètre le mois et l'année à calculer. Voila mon code pourrai ressembler à ça :

Code :

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

1
2
3
4
 
Sub CalculBudget(iMois As Integer, iAnnee As Integer)
    ... Mon code
End Sub

J'ai bien créé un bouton sur ma feuille Excel, mais je n'arrive pas à passer le mois et l'année en paramètre.

Merci d'avance pour votre aide.

[mercatog]

Bonjour
par exemple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim M As Integer, A As Integer
 
A = 2011
M = 3
CalculBudget M, A
'même chose que Call CalculBudget(M, A)
'ou simplement CalculBudget 3,2011
End Sub

[nerixm]

Oui mais du coup comme j'ai autant de boutons que de mois présent dans mon historique je vais être obligé de créer une macro pour chaque bouton.
Au fait ce que je souhaiterai savoir c'est si il est possible de passer des arguments directement depuis l'appui sur le bouton (Probablement via la boite de dialogue "Affecter une macro") sans recréer une nouvelle macro.

Merci tout de même mercatog d'avoir prit du temps pour répondre

[Godzestla]

Bonjour,

la question que moi je me pose est :

D'où vont venir les valeurs mois et Année à utiliser ? Des cellules, de la date système, de l'encodage ?

[pgz]

Bonjour.

J'ajoute que dans ta feuille

• soit tu utilises un contrôle de formulaire
• soit tu utilises un contrôle ActiveX

Dans le premier cas, tu attaches une procédure au bouton et tu ne peux pas passer de paramètres. Il te faut alors une procédure par bouton = par valeurs des paramètres.
Dans le second cas tu as une procédure évènementielle OnClick dans le module de la feuille et là tu peux appeler une procédure avec des paramètres comme dans l'exemple donné par Mercatog.

Cordialement,

PGZ

[nerixm]

Ok, merci pour ta réponse, je n'ai jamais utilisé les ActiveX du coup j'avais mal compris la réponse de mercatog. (Je me coucherai moins bête ce soir)

Merci à tous les 3