Suppression du message "l'indice n'appartient pas à la sélection "

Bonjour à tous,

ma question est simple à mon avis simple. J'ai le code suivants:

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1()   Application.DisplayAlerts = False   Sheets("Nom").delete   End Sub

---

Mon problème est qu’excel continu à m'afficher le message d'erreur "l'indice n'appartient pas à la sélection ". Est-ce que quelqu'un à une idée du pourquoi?

Merci par avance

Peut-être parce que la feuille "Nom" n'existe plus ?

Oui la feuille n'existe plus. Ce que je voudrais c'est qu'excel ne me le dise pas et sorte de la procédure.

Bonjour,

Essayez ça

Code:

---

1 2 3 4 5 6

Sub Macro1() On Error GoTo Sortie Sheets("Nom").Delete Sortie: If Err = 9 Then Exit Sub End Sub

---

personnellement je réserve On Error pour des exception (récupérer des données sur un serveur sachant que si le réseau tombe ERR), si il n'y a pas de cas de force majeur je préfère vérifier le contexte.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() If SheetExiste("nom") = True Then Sheets("Nom").Delete Else MsgBox "Nom n'existe pas": Exit Sub End Sub Function SheetExiste(Sh As String) As Boolean Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name = Sh Then SheetExiste = True: Exit Function Next End Function

---

donnes ta solution pour les autres quidams qui pourraient ce trouvé dans la même situation :furieux:
le bénévolat n'est pas gratuit il faut renvoyer l'ascenseur!