[EXCEL-VBA] Fonction Sheets Fermé

Question

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


Configuration: ASUS X52JC-EX495V
i3-370M
RAM 4Go
Windows 7 Edition Familiale
Mozilla 3.6.13
Trend Micro Internet Security
Livebox

pijaku · Answer

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

anixela · Answer

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

[EXCEL-VBA] Fonction Sheets

2 réponses

Discussions similaires