Discussion :

[Novice72]

Bonjour à toutes et à tous,

Voici un bout de programme ci-dessous dont le but est d'effacer toutes les feuilles commençant par "Classe". Comment Est-ce que je peux faire car suivant les lycées, les noms de classes peuvent varier?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub suppclass()
    Sheets("Classe 2ASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 1ASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe TASSP").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 2ARCU").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Classe 1ARCU").Select
    ActiveWindow.SelectedSheets.Delete
End Sub

Merci d'avance.

Novice72

[halaster08]

Bonjour,

Avec une boucle sur l'ensemble de tes feuilles, et la fonction left https://msdn.microsoft.com/fr-fr/lib...(v=vs.90).aspx

[Novice72]

Bonjour Halaster08,

Encore merci pour t'occuper encore d'un de mes problèmes....

Toutefois, je ne comprends pas trop le lien que tu me donnes. J'y suis allé et n'ai pas tout compris !
En recopiant l'exemple du lien que voici,

Code :

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

1
2
3
Dim TestString As String = "Hello World!"
' Returns "Hello".
Dim subString As String = Microsoft.VisualBasic.Left(TestString, 5)

je comprends que je peux récupérer la partie gauche d'une chaine de caractère.

Alors comment récupérer la partie gauche d'un nom de feuilles et si condition requise effacer la feuille ?

Encore merci.

Novice72

[jerome.vaussenat]

Salut,

voici un bout de code qui parcourt le classeur et supprime les feuilles commençant pas "classe".

En espérant que cela corresponde à ton besoin. Bonne utilisation.

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 suppr()
 
'parcourt des feuilles du classeur
For Each f In Worksheets
    'récupération les 6 premiers caractères du nom de la feuille
    nom = Left(f.Name, 6)
    'si le début du nom de la feuille est "classe"
    If nom = "classe" Then
        'suppression de la feuille
        f.Delete
    End If
'passage à la feuille suivante
Next
End Sub

juste comme çà, halaster08 je suis fan de ta signature. Et du coup tu m'emmènes quand tu veux avec toi ...

[halaster08]

je comprends que je peux récupérer la partie gauche d'une chaine de caractère.

le but est d'effacer toutes les feuilles commençant par "Classe".

Jerome t'as déjà donné la solution finale mais ne pas réussir a faire le lien entre "commence par" et "récupérer la partie gauche" est peu dommage, surtout que dans ton autre sujet on t'a montrer comment manipuler le nom d'un feuille.
Il ne te manquait que deux info:
1)la boucle, que tu aurais trouvé facilement en cherchant sur le net, je le sais puisque j'ai effectué moi-même cette recherche quand j'en ai eu besoin récemment.
2)la suppression de feuille, que l'enregistreur de macro te donne en quelques seconde.

Bref avec un peu de recherche tu pouvais y arriver toute seule, et si tu veux progresser je te conseille vraiment d'essayer "des trucs" avant de demander un code tout fait, car il n'y aura pas toujours quelqu'un pour te le fournir.

juste comme çà, halaster08 je suis fan de ta signature. Et du coup tu m'emmènes quand tu veux avec toi ...

Malheureusement j'ai essayé la SNCF, plusieurs agences de voyages, des sites internets exotiques et j'en passe, personne n'accepte de vendre les billets pour y aller

[Jean-Philippe André]

Bonjour,

un petit ajustement pour ne pas avoir de probleme de casse :

Code :

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

    nom = LCase(Left(f.Name, 6))

[joe.levrai]

Bonjour,

une variante avec Like et la neutralisation de la casse directement dans le module.
Ce qui évite à la fois d'utiliser les fonctions vba.Left() et VBA.LCase()

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Text
 
Sub toto()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name Like "classe*" Then MsgBox Feuille.Name
    VBA.LCase
Next Feuille
End Sub

[Novice72]

Encore merci Jérôme et les autres forumistes !,

Tout ceci fonctionne à un détail près.

Lorsqu'il y a 6 feuilles à effacer ( par exemple ), à chaque fois il y a une boite de dialogue qui apparaît et me dit que je risque de perdre des données se trouvant sur la feuille. LA boîte de dialogue me propose donc de cliquer sur un des 2 boutons ( "Supprimer" ou "Annuler" ).
La Boîte revient autant de fois qu'il y a de feuilles à supprimer.

Y a t-il un moyen d'éviter l'arrivée de cette boîte de dialogue ?

Encore merci à vous tous.

Novice72

pour comprendre
Oui, c'est encore moi Jérôme.
Peux-tu m'expliquer à quoi correspond le "f" qui se trouve dans

Code :

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

 For each   ...  In Worksheets

Novice72

[goldstar]

Bonjour,

Code :

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

1
2
3
Application.DisplayAlerts = False
        f.Delete
 Application.DisplayAlerts = True

Cordialement,

[jerome.vaussenat]

Salut,

En fait, ce f est une variable. Mais pourquoi f ?

f pour feuille !
Et on dit en Français dans le texte :
Pour chaque feuille (f) du classeur ...

Pour en savoir plus un super tuto :
http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI

Ce qui nous concerne est dans la partie introduction. Dans ce tuto, justement, ils utilisent comme nom de variable ws. Mais pourquoi ws ? pour WorkSheet par dit !

Bonne lecture

[Novice72]

Bonjour,

Code :

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

1
2
3
4
5
 
 
Application.DisplayAlerts = False
        f.Delete
 Application.DisplayAlerts = True

Cordialement,

SUPER MERCI

Tout fonctionne.

Novice72