[RESOLU] Dimensions d'un range sélectionné - VBa

[Hieu]

Bonjour,

Supposons que je sélectionne B2:E4. Existe-t-il des fonctions similaires à Lbound/Ubound ?

L'idée :

Function Llargeur(R As Range)
Llargeur =    '  ==> dans mon exemple 1 (ou 1)
End Function
Function Ulargeur(R As Range)
Ulargeur =    '  ==> dans mon exemple 4 (ou 3)
End Function

Merci,

 

[vgendron]

hello: je crois que tu peux avoir l'info avec
R.rows.count
et R.columns.count

 

[Hieu]

Slt vgendron,

ça ne marche pas...

 

[Yurperqod]

Bonjour le forum

Cela fonctionne si ton code VBA est mis dans un module standard (et pas dans le code de la feuille)

Option Explicit
'Le code est copié dans un module standard
'(Module1 par exemple)
Function Llargeur(R As Range)
Llargeur = R.Columns.Count  ' ==> dans mon exemple 1 (ou 1)
End Function
Function Ulargeur(R As Range)
Ulargeur = R.Rows.Count   '  ==> dans mon exemple 4 (ou 3)
End Function

 

[Hieu]

Au temps pour moi !!
Tellement voulu faire un exemple rapide !
Merci à toi