comandboutton

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Septembre 2005

• #2

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.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 7 Septembre 2005

• #3

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

 

Pièces jointes

• Marie_20050907135017.zip

  7.9 KB · Affichages: 15

Vote positif 0 Vote négatif

M

MARIE74

Guest

• 7 Septembre 2005

• #4

B) Re a tous


Bonjour eric C et Robert


Merci les grands chefs cela fonctionne parfaitement



Bon apres midi a tous



Grosses bises

 

Vote positif 0 Vote négatif

M

MARIE74

Guest

• 7 Septembre 2005

• #5

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 7 Septembre 2005

• #6

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 7 Septembre 2005

• #7

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é !!!!

 

Vote positif 0 Vote négatif