Discussion :

[Amiral19]

Bonjour à tous,

voici encore une petite question que je me pose :
je souhaiterais pouvoir effacer toutes les feuilles dont le nom contient "Produit"
Voici ce que j'ai écrit, et qui, vous vous en serez douté ne fonctionne pas...

Code :

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

1
2
3
4
5
6
7
8
For Each Feuille In ActiveWorkbook.Worksheets
        If Feuille.Name = "Produit*" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
            Exit For
        End If
    Next Feuille

Ne serait-ce pas qu'un problème d'utilisation du signe * ?

PS : je remercie l'auteur de ce bout de macro que j'ai tenté de mettre à ma sauce (il me semble que c'est Pierre Fauconnier. Pierre Fauconnier, si c'est toi, je te remercie)

[jfontaine]

Tu peux aussi faire comme ca

Code :

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

If left(Feuille.Name,7) = "Produit" Then

et pour eviter les problemes de casse

Code :

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

If left(ucase(Feuille.Name),7)= "PRODUIT" Then

[Swiper]

Ce bon vieux Pierre, il est vraiment étonnant, présent sur tout les tableaux et ayant des réponses déconcertantes à plus d'un titre.

Comment as-tu déclaré la variable : Feuille ? Sinon il faudrais que tu la déclare en tant que feuille Excell, que l'on me dise si je me trompe.

Mais ne devrais-tu pas mettre une étoile aussi devant "*Produit*", comme ça ?

[Amiral19]

Merci jfontaine !

On dirait que çà marche pas mal du tout ton petit tuyau
Et puis cà a l'air intéressant cette fonction left. Je vais creuser un peu la question.

A bientôt...

[Amiral19]

Evidemment, j'ai voulu compliquer la chose, et je bute encore :

Cà, çà marche très bien,

Code :

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

1
2
3
4
5
6
7
For Each Feuille In ActiveWorkbook.Worksheets
        If Left(Feuille.Name, 7) = "Produit" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next Feuille

Mais çà, du moins sa deuxième partie, ne fonctionne pas (Lorsque je fais tourner pas à pas, le programme n'entre jamais dans la deuxième boucle if, alors que j'ai une feuille qui s'appelle Resultats1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each Feuille In ActiveWorkbook.Worksheets
        If Left(Feuille.Name, 7) = "Produit" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next Feuille
    For Each Feuille In ActiveWorkbook.Worksheets
        If Left(Feuille.Name, 7) = "Resultats" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next Feuille

Pas plus que

Code :

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

1
2
3
4
5
6
7
    For Each Feuille In ActiveWorkbook.Worksheets
        If Left(Feuille.Name, 7) = "Produit" Or Left(Feuille.Name, 7) = "Resultats" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next Feuille

.


Un problème de syntaxe ? Autre chose ?
J'espère que quelqu'un y verra plus clair que moi.

[Amiral19]

Ok ! Shame on me

Je n'avais pas regardé l'aide de cette fonctin, et j'avais oublié de remplacer la longueur de la chaîne (9 au lieu de 7).

Du coup, c'est à nouveau résolu.

Merci à tous.