Discussion :

[ilcocodrillo]

Si vous voulez sélectionner une plage de cellule dont vous ne conaissez pas la taille :

Dans cet exemple le tableau commence en A1 mais en tripotant le code avec la même logique il serait très simple de trouver ou se trouve la première cellule non vide... a vous de jouer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
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

Donc le nombre de ligne est I-1 et le nombre de colonnes J-1.

[illight]

il y a plus simple. Dans la meme logique ou le tableau commence en A1 :

Code :

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

Range(Cells(1, 1), Cells(range("A1").end(xldown).row, range("A1").end(xltoright).column)).Select