N°ligne / colonne des 4 coins du rectangle contenant les données

[marmotte18]

Bonjour,

Pour déterminer le plus petit rectangle contenant l'ensemble des données de la feuille on a :

ActiveSheet.UsedRange.Select

Je souhaiterais récupérer le N° de ligne et le N° de colonne de chacun des coins de ce rectangle.

skoobi m'a communiqué la méthode pour avoir le N° de ligne et le N° de colonne du coin inférieur droit du rectangle :

msgbox activesheet.usedrange.specialcells(xlCellTypeLastCell).column
msgbox activesheet.usedrange.specialcells(xlCellTypeLastCell).row

et cela fonctionne très bien ! Il reste maintenant à définir les 3 autres coins.

Merci par avance

 

[job75]

Re : N°ligne / colonne des 4 coins du rectangle contenant les données

Re,

La 1ère macro part de la cellule A1 et recherche dans les cellules précédentes (d'où xlPrevious) celle contenant quelque chose (d'où le caractère générique *), en remontant soit par lignes, soit par colonnes. La cellule qui précède A1 est IV65536 sur Excel 2003.

Même principe pour la 2ère macro, mais elle part de la cellule IV65536 (sur Excel 2003) et recherche dans les cellules suivantes (d'où xlNext). La cellule qui suit IV65536 est A1.

A+

 

[marmotte18]

Re : N°ligne / colonne des 4 coins du rectangle contenant les données

Bonjour job75,

J'ai parfaitement compris tes explications, merci pour le cours !

 

[job75]

Re : N°ligne / colonne des 4 coins du rectangle contenant les données

Bonjour marmotte, le forum,

Puisque je repasse par là, et un peu pour le fun, voici un complément pour repérer la colonne par sa (ou ses) lettres :

Sub DerniereCellule()
Dim adcol As String
On Error Resume Next
MsgBox "Dernière ligne : " & Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
adcol = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address
MsgBox "Dernière colonne : " & Mid(adcol, 2, InStr(3, adcol, "$") - 2)
End Sub

A+