Menu

[EXCEL-VBA] Fonction Sheets [Fermé]

Messages postés
253
Date d'inscription
vendredi 1 décembre 2006
Statut
Membre
Dernière intervention
1 juin 2018
- - Dernière réponse : pijaku
Messages postés
12246
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
2 juillet 2019
- 14 juin 2011 à 12:18
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


Afficher la suite 

2 réponses

Messages postés
12246
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
2 juillet 2019
2084
0
Merci
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
253
Date d'inscription
vendredi 1 décembre 2006
Statut
Membre
Dernière intervention
1 juin 2018
23
0
Merci
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
pijaku
Messages postés
12246
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
2 juillet 2019
2084 -
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+