msg box de confirmation

[nrdz83]

Bonjour j'ai fait cette macro qui efface les données d'une feuille. Je voudrais rajouter un msgbox de confirmation "êtes vous sur de vouloir mettre à zéro le feuille"
Quel code je dois rajouter ?
D'avance merci à tous amitiés
Sub effacefeuille()
'
' effacefeuille Macro

'

'
Range("D5:AK30").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("D5").Select
End Sub

 

[Compte Supprimé 979]

Re : msg box de confirmation

Nrdz83,

Il te suffit de mettre :

[COLOR=black]Sub effacefeuille()[/COLOR]
[B][COLOR=blue]If MsgBox("Êtes vous sur de vouloir mettre à zéro la feuille ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then[/COLOR][/B]
[COLOR=black]  Range("D5:AK30").ClearContents[/COLOR]
[COLOR=black]  Range("D5").Select[/COLOR]
[COLOR=blue][B]End If[/B][/COLOR]
[COLOR=black]End Sub[/COLOR]

Voili, voilà 😉

Pour [RESOLU] tu peux peut-être le mettre dans les "TAGS" en dessous de ce message 😉

A+

 

[kjin]

Re : msg box de confirmation

bonsoir,
Au vu de la chose

....
r = MsgBox("êtes vous sur de vouloir mettre à zéro le feuille", vbOKCancel)
If r = 1 Then effacefeuille
....
End Sub

Sub effacefeuille()
La feuille.Range("D5:AK30").ClearContents
End Sub

A+
kjin

 

[nrdz83]

Re : msg box de confirmation

merci bruno m45 et KJin , je venez de trouver également via un bouquin , mais Chapeau pour votre rapidité, mes amitiés et à bientot bye 😎