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.
pas tout compris... regarde ceci si cela peut t'aider :
Code:
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