fattah_5791
XLDnaute Occasionnel
Bonjour
voici une petite macro qui efface le contenu d'une feuille selon le chiffre recupéré du clavier.
je veux avoir avant la suppression un Msg d'alerte qui confirme ou non la suppresion, merci
voici une petite macro qui efface le contenu d'une feuille selon le chiffre recupéré du clavier.
VB:
Dim n As Integer
n = Application.InputBox("Tapez le code numérique de l'établissement : ", "Code Etablissement:", Type:=1)
Sheets(n).Select
Range("A5:W9").Select
Range(selection, selection.End(xlDown)).Select
selection.ClearContents
Range("A1").Select
Sheets("Index").Activate
Range("A1").Select