confirmer exécution macro ??

[titanic]

Amis d'Excel, bonsoir et merci pour vos aides précieuses, qui me permettent d'avancer dans mes projets.
Lorsqu'une feuille comprend de nombreux boutons, il est parfois délicat de choisir la bonne exécution de macro, notament sur de petites commandes positionnées l'une à côté de l'autre. Ainsi on peut cliquer par accident sur un bouton et lancer par erreur une macro d'effacement et piquer une crise car il faut tout refaire.J'ai d'abord pensé à une info de double-clic pour sécuriser la commande, mais je ne trouve pas...Si vous avez l'info, je veux bien !
sinon, est t'il possible, lorsque l'on clique sur un bouton, de ne pas lancer directement la macro, et d'ouvrir auparavant une 'message box' du style:'voulez vous vraiment exécuter cette commande?'avec un choix de type:'oui'-'non'-'abandon'? Quelqu'un connait il cette fonction, et si oui sous quelle forme doit elle être insérée?
merci mille fois par avance.

 

[myDearFriend!]

Bonjour titanic,

Soit un bouton de la barre 'Boîte à outils Contrôles' inséré dans ta feuille.

Dans l'évènement Click() de ce bouton :

Private Sub CommandButton1_Click()
      If MsgBox('Etes-vous sûr de vouloir ... ?', _
                  vbYesNo, 'Confirmation') = vbYes Then
           
      ' Ton code ICI...
           
      End If
End Sub

Cordialement,

 

[Nevil]

salut a tout le monde,

Ou alors au tout debut de ta macro tu met ca:

Dim Msg, Style, Title, Response, MyString
Msg = 'voulez vous vraiment exécuter cette
commande?' 
Style = vbYesNo + vbQuestion + vbDefaultButton1 
Title = 'confirmation'  
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    
MyString = 'Yes'    
Else    
MyString = 'No'
End
End If

Message édité par: nevil, à: 24/02/2006 08:32

 

[TITANIC]

Merci pour les deux réponses, MDF et Devil, merci beaucoup!
en fait je n'ai testé que la première, et celà marche à merveille!!
juste pour voir, j'essaierai aussi la2eme.
Merci encore pour vos données, c'est super.