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

[cavo789]

Si j'ai bien compris ce que vous tentiez de faire; il y a plus simple et surtout, plus standard

Code :

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

Msgbox ActiveCell.CurrentRegion.Address

Cette simple ligne de programmation vous donne la plage complète du tableau dans lequel vous avez au préalable sélectionné une cellule (=ActiveCell).

Plus standard car nul besoin de développer une quelconque fonction. Il suffit d'utiliser ce qu'Excel nous offre en standard.

Christophe