Discussion :

[BtjpsspgrW]

Bonjour,

Je souhaiterais utiliser la fonction gauche, pour supprimer ou ne pas supprimer une feuille dont son nom commencerait par les 5 premières lettres "GRAPH", (soit les 5 premières lettres du nom de ma feuille)

Voici ma syntaxe :

Code :

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

1
2
3
If Left(Sheet.Name, 5) = "GRAPH" Then
Sheet.Delete
End If

Vous en remerciant par avance.

Cordialement.

[MarcelG]

Bonsoir,

Et alors?

[Philippe Tulliez]

Bonjour,
Plutôt comme ceci
Exemple 1 - Test sur la feuille graphique active

Code :

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

If Left(ActiveSheet.Name, 5) = "Graph" Then ActiveSheet.Delete

Exemple 2 - Où l'on parcourt la collection de toutes les feuilles du classeur avec en sus la commande ApplicationDisplayAlerts = False pour désactiver les messages.

Code :

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

1
2
3
4
5
6
7
8
Sub SuppressionFeuillesGraphique()
 Dim sht As Object
 Application.DisplayAlerts = False
 For Each sht In ThisWorkbook.Sheets
  If Left(sht.Name, 5) = "Graph" Then sht.Delete
 Next
 Application.DisplayAlerts = True
End Sub

[EDIT]
J'ai modifié le code parce-que je suppose que ce sont des feuilles de type Graphique. Je pensais que le type d'objet feuille graphique se nommait Sheet mais cela ne fonctionne pas. J'ai dû donc le typer comme Object