comandboutton

[MARIE74]

B) BOnhours a toutes et a tous

Meteo 25° soleil

Petite aide

Ou dois je coller ce code pour qu'il fonctionne

Private Sub CommandButton1_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ' attention action irreversible'
End Sub'



Merci d'avance

 

[Robert]

Bonjour Marie, bonjour le forum,

Ouvre VBA avec le raccourci [Alt]+[F11]. Dans la fenêtre en haut à gauche Projet-VBAProject double-clique sur l'onglet qui contient le bouton Feuil1(Feuil1) (par exemple). Clique maintenant dans le grand cadre blanc à droite et colle le code.

Il te faudra bien sûr un Commandbutton nommé CommandButton1 dans cet onglet pour que le code fonctionne.

 

[Eric C]

Bonjour le forum
bonjour Marie


Un tit fichier pour te montrer là où il faut appliquer ton code.

Bonne apprès-midi à toutes & à tous [file name=Marie_20050907135017.zip size=8073]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marie_20050907135017.zip[/file]

Vingt dé dioux, lé déjà passé le gars - Amitiés Robert -



Message édité par: Eric C, à: 07/09/2005 13:51

 

[MARIE74]

B) Re a tous


Bonjour eric C et Robert


Merci les grands chefs cela fonctionne parfaitement



Bon apres midi a tous



Grosses bises

 

[MARIE74]

B) Re a tous



Bon j'ai dis que cela fonctionne c'est vrai mais

Je ne peux pas déclancher ma macro avec mon commandbutton
parceque a chaque fois mon message s'affiche??

Comment modifier le code pour que la validation 'OK' du message déclanche ma macro

Voici le code

Private Sub
CommandButton1_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ' attention action irreversible'
End Sub'

Merci d'avance

 

[Robert]

Bonjour le fil, bonjour le forum,

Private Sub
CommandButton1_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ' attention action irreversible'
module1.macro1
End Sub

À adapter. juste àprès le message tu appelles la macro qui doit s'executer (dans cet exemple elle se trouve dans le module1 et s'appelle Macro1)mais le message ne sert paratiquement à rien. L'ídeal serait un méssage du style 'Attention ! Action irréversible voulez-vous continuer ? avec les boutons Oui et Non. Dans ce cas ça donnerait :

Private Sub
CommandButton1_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim a As Integer
a = MsgBox('Action irréversible. Voulez-vous continuer ?', vbYesNo, 'Attention !')
If a = vbYes Then Module1.Macro1
End Sub

 

[Simons]

Salut Marie et le Forum,

Je crois comprendre ce que tu veux faire Marie mais pour bien faire l'idéal serait que tu nous envoi ton fichier......

Ps : lire la procédure qui se trouve en haut des messages du forum pour savoir comment joindre ta pièce...

@+

Oups robert tu m'as devancé !!!!