Boite de dialogue confirmation

[jo1177]

Bonjour à tous !

Me revoilà avec un petit problème, je possède une macro qui me permet de convertir une information rentrée dans une cellule en un commentaire par la simple pression d'un bouton. Le gros inconvéniant des macros est que l'on ne peut faire retour arrirère (Ctrl+Z).

Afin d'éviter les erreurs de manipulation, je voudrais que lors de la pression de ce bouton, une boite de dialogue apparaisse en confirmant (par oui OU non) la création de ce commentaire...

Voici ma macro :

Sub ConvertCommentaire()

 Selection.ClearComments
 For Each c In Selection
   c.AddComment CStr(c.Value)
   c.Comment.Shape.TextFrame.AutoSize = True
   c.Comment.Shape.OLEFormat.Object.Font.Size = 12
   c.Value = ""
 Next c

End Sub

Que faut-il rajouter, et/ou comment faut-il que je fasse ??

Ci joint un fichier exemple !

Merci beaucoup pour votre aide.

jo1177

 

[Pierrot93]

Re : Boite de dialogue confirmation

Bonjour Jo

essaye peut être ainsi :

Sub ConvertCommentaire()
Dim i As Integer
If MsgBox("Voulez-vous continuer ?", vbYesNo) = vbNo Then Exit Sub
 Selection.ClearComments
 For Each c In Selection
   c.AddComment CStr(c.Value)
   c.Comment.Shape.TextFrame.AutoSize = True
   c.Comment.Shape.OLEFormat.Object.Font.Size = 12
   c.Value = ""
 Next c
End Sub

bonne fin d'après midi
@+

 

[jo1177]

Re : Boite de dialogue confirmation

C'est super, c'est parfait !

Merci beaucoup !!!

A+

jo1177