Discussion :

[billy78]

Bonjour à tous,

J'ai lu le "contribuez" et ne trouve pas solution à mon "ptit pb".
Que me faut il faire si je dois tout sélectionner jusk la derniere et la derniere col, sachant k chq mois, on a une donnée supplémentaire? (en abscisse g des mois et des années, en ordonnée g des années)
Par exemple, je dois passer de d6:k101 à d6:l102 en passant de décembre 2007 à janvier 2008

[ilcocodrillo]

essaie ça pour un tableau qui commence en A1 et continue (pas de trous en première migne ni en première colonne)

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
16
Sub Macro1()
 
Dim I As Integer, J As Integer
 
I = 1
J = 1
 
Do While Sheets("Feuil1").Cells(I, 1).Value <> ""
I = I + 1
Loop
Do While Sheets("Feuil1").Cells(1, J).Value <> ""
J = J + 1
Loop
 
Range(Cells(1, 1), Cells(I - 1, J - 1)).Select
End Sub