Supprimer une feuille de mon classeur
Résolu/Fermé
NLAH
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
Modifié par nihadlahit le 13/08/2016 à 12:16
nihadlahit - 14 août 2016 à 16:05
nihadlahit - 14 août 2016 à 16:05
A voir également:
- Supprimer une feuille de mon classeur
- Supprimer compte instagram - Guide
- Supprimer une page word - Guide
- Supprimer compte facebook - Guide
- Supprimer mot de passe windows 10 - Guide
- Supprimer compte gmail - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
14 août 2016 à 00:34
14 août 2016 à 00:34
Bonsoir Nihadlahit, bonsoir le forum,
Peut-être comme ça :
Peut-être comme ça :
Sub Macro1()
Dim V As Variant
Dim R As Range
Dim O As Worksheet
V = Application.InputBox("Saisir le numéro :", "Numéro", Type:=1)
If V = False Then Exit Sub
Set R = Sheets("Feuil1").Columns(1).Find(V, , xlValues, xlWhole)
If Not R Is Nothing Then
MsgBox ("Le numéro saisi existe déja !")
Exit Sub
End If
For Each O In Worksheets
If O.Range("A1").Value = V Then
Application.DisplayAlerts = False
O.Delete
Application.DisplayAlerts = True
Exit For
End If
Next O
End Sub
14 août 2016 à 16:05
cordialement,