Bonsoir jmt0, 🙂
Mieux qu'une réponse, je te donne une macro 'couteau suisse' qui est je crois (à 99%) extraite d'une boîte à trésors de @+Thierry qui serait bien dans la zone téléchargement d'ailleurs ?
Tu y trouveras de quoi construire ta réponse et plus encore..
Sub MesureRange()
Dim TheRange As Range
Dim Msg As String
Set TheRange = ActiveSheet.UsedRange
Msg = 'La Plage fait ' & TheRange.Rows.Count & ' lignes' & vbCrLf
Msg = Msg & 'La Plage fait ' & TheRange.Columns.Count & ' Colonnes' & vbCrLf
Msg = Msg & 'La première ligne de la Plage est ' & TheRange.Row & vbCrLf
Msg = Msg & 'La première colonne de la Plage est ' & TheRange.Column & vbCrLf
Msg = Msg & 'La dernière ligne de la plage est ' & Cells(65536, TheRange.Column).End(xlUp).Row & vbCrLf
Msg = Msg & 'La dernière colonne de la plage est ' & Cells(TheRange.Row, 256).End(xlToLeft).Column & vbCrLf
Msg = Msg & 'L'adresse de la plage en référence absolue est ' & TheRange.Address & vbCrLf
Msg = Msg & 'L'adresse de la plage en référence relative est ' & TheRange.Address(False, False) & vbCrLf
Msg = Msg & 'La plage contient ' & TheRange.Cells.Count & ' Cellules' & vbCrLf
Msg = Msg & 'La plage contient ' & TheRange.Rows(TheRange.Row).Cells.Count & ' Cellules par ligne' & vbCrLf
Msg = Msg & 'La plage contient ' & TheRange.Columns(TheRange.Column).Cells.Count & ' Cellules par colonne' & vbCrLf
Msg = Msg & 'La prochaine cellule vide vers le bas sera ' & Cells(65536, TheRange.Column).End(xlUp).Offset(1, 0).Address & vbCrLf
MsgBox 'Dimension de la plage sur la feuille Active :' & vbCrLf & Msg
End Sub
Bonne nuit,
Brico