Discussion :

[gillesa]

Bonsoir a tous,

J'ai un petit souci car avec la version d'Excel que j'ai, quand je cree un Command Button, la fenetre qui permet d'affecter directement une macro ne s'affiche pas. J'edite alors le code :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

Il faut que j'intercale une ligne pour appeler et executer ma macro mais je ne sais pas comment faire !

Merci pour votre aide et votre indulgence

Alex

[ouskel'n'or]

Si tu prends un bouton de la boîte à outils contrôles, deux clics sur le bouton en mode création permettent d'accéder à

Private Sub CommandButton1_Click()

End Sub

Ce code se trouve dans la feuille de code de la feuille de calculs.
Par contre, la macro doit être placée dans un module standard.
Pour l'appeler, tu mets simplement son nom. Si des paramètres sont à passer, tu les ajoutes en les séparant avec une virgule

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    LaMacroQui SertARien 32, "oui"
End Sub

et ds le module standard

Code :

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

1
2
3
4
Sub LaMacroQui SertARien(NbreDeDents As Integer, Affirmatif As String)
If MsgBox("Tu as bien " & NbreDeDents & " dents ?", vbYesNo, "") = vbYes Then _
MsgBox "Alors " & Affirmatif & ", tu as toutes tes dents !"
End Sub

j'ai honte !

[gillesa]

merci beaucoup ! Ca marche nickel
Alex

[ouskel'n'or]

En bas de cette fenêtre, tu as un tas de boutons... Tu en choisis un pour dire que c'est résolu comme ça on saura que ton pb est résolu