Bouton effacer avec confirmation!!!

[demax]

Bonsoir
j'ai creer un bouton effacer avec cette petite macro

Sub Eff()
Range(Cells(3, 3), Cells(100, 3)).ClearContents
Range(Cells(3, 4), Cells(100, 4)).ClearContents
End Sub

et je souhaiterais qu'il y est une boite de dialogue de confirmation.
Comment puis je proceder?
merci

 

[PascalXLD]

Re : Bouton effacer avec confirmation!!!

Bonjour

essaies

Sub Eff()
if msgbox("voulez-vous effacer?", vbyesno)=vbyes then
Range(Cells(3, 3), Cells(100, 3)).ClearContents
Range(Cells(3, 4), Cells(100, 4)).ClearContents
end if
End Sub

 

[demax]

Re : Bouton effacer avec confirmation!!!

super nickel PascalXLD
merci beaucoup
++