renvoyer la référence de la colonne de la dernière ligne

[boucherst]

Bonjour à tous,
ci-joint un fichier où je souhaiterais en cellule J5 avoir la référence de la dernière colonne utilisée et de la dernière ligne utilisée sachant que le nb de ligne et le nombre de colonne est variable et qu'il est possible d'avoir des vides (D1) entre les colonnes ou les lignes.
La première partie en blanc (Coordonnée E5 en J5) est un premier exemple.
La partie jaune serait un second exemple (Coordonnée G15 en J5)

Par avance, merci à tous.

 

[RENAUDER]

Re : renvoyer la référence de la colonne de la dernière ligne

Bonjour,
Peut-être cela

Sub AllerADernierecellule()
    'Sélectionne la plage en cours
    ActiveSheet.UsedRange.Select
    'Sélectionne la dernière cellule de la plage en cours
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Offset(0, 0).Select
    MsgBox ActiveCell.Column
End Sub

 

[Robert]

Re : renvoyer la référence de la colonne de la dernière ligne

Bonjour Boucherst, bonhour le forum,

Je ne sais pas faire avec des formules... Je te propose la macro suivante :

Sub Macro1()
Dim col As Byte 'déclare la variable col
Dim li As Integer 'déclare la variable li
 
With Sheets("Sheet1") 'prend en compte l'onglet "Sheet1"
  col = .UsedRange.Columns.Count 'définit la variable col
  li = .UsedRange.Rows.Count 'définit la variable li
  MsgBox Cells(li, col).Address(0, 0) 'message affichant l'adresse de l'intersection
End With 'fin d ela prise en compte de l'onglet "Shhet1"
End Sub

Édition :

Bonjour Renauder on s'est croisés