Bonjour
j'ai des feuilles qui se nomment Pic1, Pic2, Pic3, ... , Pic20 et d'autres feuilles avec des noms différents.
Je voudrais pouvoir boucler sur les feuilles intitulées Pic1 à Pic20 J'ai écrit le code suivant mais ça ne fonctionne pas :
Ws est défini en Worksheet
Le but est de récupérer chaque deuxième colonne des feuilles pic1 à Pic20 et de les recopier dans les colonnes B (colonne B de la feuille Pic1), C(colonne B de la feuille Pic2), ...(colonne B de la feuille Pic...), U (colonne B de la feuille Pic20) dans une feuille nommée Pics.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For Colonne = 2 To DerC Step 1 Col = Colonne - 1 Ws = "Pic" & Col For Ligne = 1 To DerL Step 1 Sheets("Pics").Cells(Ligne, Colonne) = Ws.Cells(Ligne, 2) Next Ligne Next Colonne
Merci pour votre aide
Partager