Création de boucle for each

  • Initiateur de la discussion Initiateur de la discussion flstyle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flstyle

XLDnaute Nouveau
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.
 

Pièces jointes

Re : Création de boucle for each

Bonjour voici un exemple de macro pour ton exemple

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
469
Retour