Supprimer une feuille de mon classeur
Résolu
NLAH
Messages postés
135
Statut
Membre
-
nihadlahit -
nihadlahit -
Bonjour,
Mon problme est le suivant:j'ai créer une macro qui effectue les fonctionnalités citées dans mon code,ci dessous:,mais j'arrive pas à supprime une feuille.
pouvez vous m'aider à corriger mon code
cordialement,
Mon problme est le suivant:j'ai créer une macro qui effectue les fonctionnalités citées dans mon code,ci dessous:,mais j'arrive pas à supprime une feuille.
'demander à l'utilisateur de saisir le Numéro de Tlf
Dim obj As Object, myrecher As Range, v As Variant
With Worksheets("Feuil1").Range("A1:A100")
v = InputBox("saisir le numéro :")
'Rechercher cette valeur dans la colonne A de la feuille 1
Set obj = Sheets("Feuil1").Columns("A").Find(v, , , xlWhole, , xlPrevious)
'si ce numero existe,afficher un msg
If Not obj Is Nothing Then
MsgBox (" le num saisi existe deja")
Else
'sinon,rechercher dans le même classeur,et exactement dans la cellule A1 de chaque autre feuille,
'la valeur v(le numéro saisi),et une fois la macro trouve la feuille où se trouve la valeur v,
'je voudrais supprimer cette feuille
With ThisWorkbook
For Each sh In .Worksheets
With sh
Set myrecher = sh.Range("A1").Find(v)
If Not myrecher Is Nothing Then
sh.Select
Selection.Delete
End If
End With
Next
End With
End If
End With
pouvez vous m'aider à corriger mon code
cordialement,
A voir également:
- Supprimer une feuille de mon classeur
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Bruler feuille de laurier - Guide
- Impossible de supprimer un fichier - Guide
- Feuille de pointage excel - Télécharger - Tableur
1 réponse
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
cordialement,