Supprimer une feuille active sauf si....
Fermé
Vaffancolor
Messages postés
3
Date d'inscription
vendredi 30 mars 2018
Statut
Membre
Dernière intervention
30 mars 2018
-
30 mars 2018 à 14:11
Pinzou76 Messages postés 614 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 - 4 avril 2018 à 15:21
Pinzou76 Messages postés 614 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 25 février 2019 - 4 avril 2018 à 15:21
A voir également:
- Supprimer une feuille active sauf si....
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Supprimer edge - Guide
- Supprimer bing - Guide
1 réponse
altashy
Messages postés
36
Date d'inscription
mercredi 3 janvier 2018
Statut
Membre
Dernière intervention
1 juin 2018
2
Modifié le 4 avril 2018 à 15:17
Modifié le 4 avril 2018 à 15:17
Bonjour à toi,
If ActiveSheet.Name <> "L.1" Then
'enlève message de confirmation
Application.DisplayAlerts = False
'supprime la feuille
Sheets(ActiveSheet.Name).Delete
Else
MsgBox "impossible de supprimer L.1"
End If
Voilà, tout est dit :D
If ActiveSheet.Name <> "L.1" Then
'enlève message de confirmation
Application.DisplayAlerts = False
'supprime la feuille
Sheets(ActiveSheet.Name).Delete
Else
MsgBox "impossible de supprimer L.1"
End If
Voilà, tout est dit :D
4 avril 2018 à 15:18
Else MsgBox("Impossible de supprimer L.1")4 avril 2018 à 15:18
4 avril 2018 à 15:21