aide pour selection dans plusieur page

[c0uike]

tablo = Range("D9:BM" & Range("A" & Rows.Count).End(xlUp).Row)
Bonjour j'aimerai faire cette sélection dans les pages Mois 1 Mois 2 Mois 3 etc jusqu’à 12
Je sais qu'il faut intégrer Sheets("Mois 1")
J'ai essayé tablo = Sheets("Mois 1").Range("D9:BM" & Range("A" & Rows.Count).End(xlUp).Row)
Mais ça me prend toute la page mois 1 et non que les cellules voulu.

 

[Pierrot93]

Re : aide pour selection dans plusieur page

Bonjour,

pas tout compris... regarde ceci si cela peut t'aider :

Dim i As Byte, tablo(1 To 12)
For i = 1 To 12
    With Sheets("Mois " & i)
        tablo(i) = .Range("D9:BM" & .Range("A" & Rows.Count).End(xlUp).Row)
    End With
Next i

bonne journée
@+