[EXCEL-VBA] Fonction Sheets

anixela Messages postés 252 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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


A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
Réponse 2 / 2
anixela Messages postés 252 Date d'inscription   Statut Membre Dernière intervention   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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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+
0

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
La fonction FILTRE n'est plus reconnue
Auri328 -
Auri328 -

3 réponses