Discussion :

[BlackMountain]

Bonjour le forum ,

Je n'arrive pas à supprimer un ensemble de feuilles d'un classeur commançant par une même chaine de caractère. Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BlackMountain()
Dim debut as String
With Sheets("Feuil1")
  debut = .Cells(3,3).Value
End With
 
Suppression (debut & "20*") ' Suppression des feuilles référencées par une première partie en cellule C3 finissant par 2016, 2017, 2018..
End Sub
 
Sub Suppression(ByVal Feuille As String)
For Each X In Sheets
  If X.Name = Feuille Then X.Delete
Next
End Sub

Je ne comprends pas parce que je pensais que dès qu'une étoile était placée, celà représentait n'importe quel reste de chaine de caractère.

Merci infiniment d'avance pour votre aide

BlackMountain

[unparia]

Bonjour

Code :

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

If X.Name like Feuille Then ...

[Thautheme]

Bonjour le fil, bonjour le forum,

Une autre méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub BlackMountain()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TOS() As Variant 'déclare la variable TOS (Tableau des OngletS)
 
For Each O In Sheets 'boucle sur tous les onglet du classeur
    'condition : si le nom de l'onglet contient le texte en C3 de l'onglet Feuil1 et que les deux avant derniers caractères sont "20"
    If InStr(1, O.Name, Sheets("Feuil1").Range("C3").Value, vbTextCompare) <> 0 And Left(Right(O.Name, 4), 2) = "20" Then
        ReDim Preserve TOS(X) 'redimensionne le tableau des ongles TOS
        TOS(X) = O.Name 'récupère le nom de l'onglet dans la variable indexée X du tableau des onglets TOS
        X = X + 1 'incrémente X
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
Application.DisplayAlerts = False 'empêche les messages Excel
Sheets(TOS).Delete 'supprime tous les onglets du tableau des onglets TOS
Application.DisplayAlerts = True 'affiche les messages Excel
End Sub

[BlackMountain]

Bonjour,

Unparia, ta remarque a très bien fonctionné, merci

Bonjour le fil, bonjour le forum,

Une autre méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub BlackMountain()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TOS() As Variant 'déclare la variable TOS (Tableau des OngletS)
 
For Each O In Sheets 'boucle sur tous les onglet du classeur
    'condition : si le nom de l'onglet contient le texte en C3 de l'onglet Feuil1 et que les deux avant derniers caractères sont "20"
    If InStr(1, O.Name, Sheets("Feuil1").Range("C3").Value, vbTextCompare) <> 0 And Left(Right(O.Name, 4), 2) = "20" Then
        ReDim Preserve TOS(X) 'redimensionne le tableau des ongles TOS
        TOS(X) = O.Name 'récupère le nom de l'onglet dans la variable indexée X du tableau des onglets TOS
        X = X + 1 'incrémente X
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
Application.DisplayAlerts = False 'empêche les messages Excel
Sheets(TOS).Delete 'supprime tous les onglets du tableau des onglets TOS
Application.DisplayAlerts = True 'affiche les messages Excel
End Sub

Bonjour Thautheme et le forum,

Merci encore pour ton message, la seule modification par

Code :

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

If X.Name like Feuille Then ...

a fonctionné, mais ta version permet de voir plus clair pour de gros fichiers et le raisonnement réutilisé pour d'autres applications dont j'aurai potentiellement besoin.

BlackMountain