Discussion :

[had4789]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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

[had4789]

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.

[rjamin]

Bonjour,

Essayez ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
    On Error GoTo Sortie
    Sheets("Nom").Delete
Sortie:
    If Err = 9 Then Exit Sub
End Sub

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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