supprimer une feuille de mon classeur Résolu/Fermé

Question

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.



'demander à l'utilisateur de saisir le Numéro de TlfDim obj As Object, myrecher As Range, v As VariantWith Worksheets("Feuil1").Range("A1:A100")v = InputBox("saisir le numéro :")'Rechercher cette valeur dans la colonne A de la feuille 1Set obj = Sheets("Feuil1").Columns("A").Find(v, , , xlWhole, , xlPrevious)'si ce numero existe,afficher un msgIf Not obj Is Nothing ThenMsgBox (" 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 feuilleWith ThisWorkbookFor Each sh In .WorksheetsWith shSet myrecher = sh.Range("A1").Find(v)If Not myrecher Is Nothing Thensh.SelectSelection.DeleteEnd IfEnd WithNextEnd WithEnd IfEnd With

pouvez vous m'aider à corriger mon code

cordialement,


Configuration: Windows 7 / Chrome 52.0.2743.116

ThauTheme · Answer

Bonsoir Nihadlahit, bonsoir le forum,

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

Supprimer une feuille de mon classeur

1 réponse

Discussions similaires