Définir les coordonnée d'une plage

[Didier]

Bonjour à tous

Je cherche à obtenir les coordonnées d'une plage, que j'obtient avec
ActiveSheet.UsedRange.Select

Merci et à bientôt

 

[Robert]

Bonjour Didier, bonjour le forum,

Cette macro devrait t'aider :

Sub Macro2()
Dim ad As String
ad = ActiveSheet.UsedRange.Address(0, 0)
MsgBox ad
End Sub

 

[Didier]

Merci Robert

Mais c'est plutôt le nombre de lignes et le nombre de colonnes que je souhaite obtenir

Didier

 

[Robert]

Bonjour Didier, bonjour le forum,

Alors peut-être comme cela :

Sub Macro2()
Dim li As Integer, col As Integer

col = ActiveSheet.UsedRange.Columns.Count
li = ActiveSheet.UsedRange.Rows.Count
MsgBox 'la plage comporte' & vbCrLf & col & ' colonne(s)' & vbCrLf & li & ' ligne(s)'
End Sub

 

[Didier]

Merci beaucoup Robert

A+

Didier