[EXCEL-VBA] Fonction Sheets [Fermé]

Signaler
Messages postés
252
Date d'inscription
vendredi 1 décembre 2006
Statut
Membre
Dernière intervention
1 juin 2018
-
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
-
Bonjour,

Je suis en train de reprendre un vieux code VBA que le forum m'avait aidée à faire pour faire quelque chose de plus abouti.
Le point positif est que j'ai, je pense, compris ce que chaque ligne du code permet de faire.
Toutefois, je bloque sur une chose. Je vous expose cela :
1. J'ai plusieurs feuilles dans mon classeur sur lesquelles je veux reprendre des données pour faire un tableau récapitulatif
2. Les feuilles ont toutes un nom contenant le mot "Boîtes" (Boîtes HF 1&2, Boîtes HF 3&4..., Boîtes Normo 1&2..., Boîtes HF A&B...)
3. Je ne veux pas à avoir à appeler chaque feuille dans mon code surtout qu'il est possible que j'en ajoute d'autres

Ma question est donc :
Comment je peux faire pour que le programme regarde dans chaque feuille contenant le mot "Boîtes" ?
J'avais penser un truc du genre With sheets ("Boîtes et quelquechose pour dire qu'il y a autre chose de non réellement défini ensuite")
j'ai essayé avec "Boîtes *" et "Boîtes"*...et plein d'autres mais cela ne fonctionne pas...
Si vous avez la solution, je suis preneuse

D'avance merci à vous spécialistes du VBA.

Bonne fin de journée


2 réponses

Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 461
Bonjour,
Une boucle sur chaque feuille du classeur + un test sur les 5 premières lettres du nom de chacune de ces feuilles devrait solutionner ton souci :

Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
    If Left(Feuille.Name, 5) = "Boîte" Then
        MsgBox "La feuille " & Feuille.Name & " corresponds"
    Else
        MsgBox "La feuille " & Feuille.Name & " ne corresponds pas"
    End If
Next Feuille
Messages postés
252
Date d'inscription
vendredi 1 décembre 2006
Statut
Membre
Dernière intervention
1 juin 2018
23
Bonjour Franck,

Je viens de voir ta réponse...et j'essaie de l'intégrer à la fois pour la compréhension mais aussi dans mon fichier.

Je te tiens au courant si j'ai d'autres soucis...

Merci de me faire connaître de nouvelles commandes.
Et désolée pour le retard de réponse (week-end à rallonge ne permet pas de pouvoir plus en profiter).

Bonne semaine
Anixela
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 461
Salut
Si tu as besoin de commentaires sur le code plus haut, tu le dis.
Si tu veux autre chose, n'hésite pas.
A+