Création de boucle for each

[flstyle]

Bonjours,

J'aimerai finir un dossier excel qui est déjà bien entamer (grâce au forum notamment).
Sur celui-ci on peu créer des feuilles (nommées "crédit bail1, crédit bail2, crédit bail3 ...) à partir d'une feuille "modèle" en appuyant sur un bouton (fait en VBA).

Maintenant je souhaiterai faire un récap de toutes les feuilles que je créer.
En clair je veux dire :
Si feuille "crédit bail1" existe alors dans la casse B9 de la feuille "récapitulatif" s'écrit le nom indiquer dans la case B9 de la feuille "crédit bail1".
Puis, en chaîne: Si feuille "crédit bail2" existe alors dans la casse B10 de la feuille "récapitulatif" s'écrit le nom indiquer dans la case B9 de la feuille "crédit bail2".
ETC...


J'ai déjà trouver la formule VBA que je souhaite, mais je ne sais pas faire de boucle VBA .
D'autre part je n'arrive pas à bien utiliser la fonction "XlDown" pour qu'il n'y est pas de vide et que les info soit toujours mis le plus en haut du tableau (car certaines feuilles crédit bail risque d’être supprimer au cour du temps)

Voila, je m'en remet a vous pour me donner un petit coup de pouce.


Merci par avance.

 

[adel53]

Re : Création de boucle for each

Bonjour voici un exemple de macro pour ton exemple

Sub test()
    Dim ws As Worksheet
    Dim i As Integer
    i = 9
    For Each ws In Worksheets
        If Left(ws.Name, 8) = "crédit b" Then
            Cells(i, 2) = ws.Range("B9")
            i = i + 1
        End If
    Next ws
End Sub

 

[flstyle]

Re : Création de boucle for each

Mais c'est génial !! ca mareche nikel !
Je me rend compte que je me suis vraiment embêter la vie pour rien

Merci à vous et merci au forum