[EXCEL-VBA] Fonction Sheets

Fermé

anixela Messages postés 252 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 1 juin 2018 - 9 juin 2011 à 15:37
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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

A voir également:

[EXCEL-VBA] Fonction Sheets
Liste déroulante excel - Guide
Excel fonction si et - Guide
Formule excel - Guide
Fonction somme excel - Guide
Fonction moyenne excel - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
9 juin 2011 à 15:52

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

Réponse 2 / 2

anixela Messages postés 252 Date d'inscription vendredi 1 décembre 2006 Statut Membre Dernière intervention 1 juin 2018 23
14 juin 2011 à 10:57

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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
14 juin 2011 à 12:18

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+

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters