Discussion :

[Vincent32]

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

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

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.

Merci pour votre aide

[jfontaine]

Bonjour,

Ws n'est pas un objet Worksheet mais une variable de type string.
Tu peux l'utiliser comme ci dessous

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) = Worksheets(Ws).Cells(Ligne, 2)
    Next Ligne
Next Colonne

[rvtoulon]

bonjour essai comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
i = 1
'je boucle sur chaque feuille du classeur
For Each ws In Worksheets
  'si le nom de la feuille = PIC1 etc... alors 
  If ws.Name = "Pic" & i Then
    'ici le code qui doit s'effectuer
 
    i = i + 1
  End If
Next ws
End Sub

[jfontaine]

Je te propose aussi une autre approche (qu'il faudra tester) en utilisant les objets Worksheets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Sh As Worksheet
Dim col As Integer
 
col = 2
 
For Each Sh In ThisWorkbook.Worksheets
 
    If Left(UCase(Sh.Name), 3) = "PIC" And UCase(Sh.Name) <> "PICS" Then
 
        Sh.Columns(2).Copy ThisWorkbook.Worksheets("Pics").Cells(1, col)
        col = col + 1
 
    End If
 
Next Sh

[Vincent32]

Merci beaucoup à vous pour votre réponse rapide et qui fonctionne.

Encore merci

Bonne soirée