D demax XLDnaute Occasionnel 13 Février 2009 #1 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 Cliquez pour agrandir... et je souhaiterais qu'il y est une boite de dialogue de confirmation. Comment puis je proceder? merci
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 Cliquez pour agrandir... et je souhaiterais qu'il y est une boite de dialogue de confirmation. Comment puis je proceder? merci
PascalXLD XLDnaute Barbatruc Modérateur 13 Février 2009 #2 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 Vote positif 0 Vote négatif
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
D demax XLDnaute Occasionnel 13 Février 2009 #3 Re : Bouton effacer avec confirmation!!! super nickel PascalXLD merci beaucoup ++ Vote positif 0 Vote négatif