Récupérer les bornes d'une Range

[Mattharm]

Bonjour à tous,

J'aimerais récupérer les bornes d'une Range pour les utiliser dans une fonction :

function test(debut as Range)
msgbox debut
endfunctino

sub princ(byval T as Range)
test(left(T.address,instr(1,T.address,":")))
end sub

Quelque chose dans ce goût là.
Je suis capable de récupérer par un Left,Right, Instr, les bornes mais pour l'envoyer vers la fonction....

Si quelqu'un à une idée ? Merci
Mattharm

 

[mromain]

Re : Récupérer les bornes d'une Range

bonjour Mattharm

pour récupérer l'adresse du coin supérieur-gauche de la Range T, il faut écrire :

T.Resize(1, 1).Address

et pour l'adresse du coin inférieur-droit, il faut écrire :

T.Resize(1, 1).Offset(T.Rows.Count - 1, T.Columns.Count - 1).Address

a+

 

[vbacrumble]

Re : Récupérer les bornes d'une Range

Bonjour Mattharm, mromain, le peuple de forum


Si j'ai bien compris

Function test(debut As Range)
MsgBox debut.Address(0, 0)
End Function

Sub princ()
test Selection
End Sub

 

[Hervé]

Re : Récupérer les bornes d'une Range

bonjour

sans passer par resize :

Public Sub roro()
Dim plage As Range
 
Set plage = Range("a1:c10")
 
With plage
    MsgBox plage(1, 1).Address 'renvoi A1
    MsgBox plage(.Rows.Count, .Columns.Count).Address 'renvoi C10
End With
 
End Sub

salut

 

[vbacrumble]

Re : Récupérer les bornes d'une Range

Re


Ai-je bien compris la problématique cette fois ?

Function bornerange(p As Range)
x = p.Address(0, 0)
d = Split(x, ":")(0): f = Split(x, ":")(1)
MsgBox "Adresse Début : " & d & _
        ", Adresse Fin :" & f & _
        " de la selection en cours."
End Function
Sub stest()
bornerange Selection
End Sub

 

[Mattharm]

Re : Récupérer les bornes d'une Range

Merci à vous tous c'est parfait !



J'utilise la technique d'Hervé qui convient le mieux à ce que je fais !

 

[Mattharm]

Re : Récupérer les bornes d'une Range

Savez vous comment je pourrais récupérer l'adresse en équivalent ligne et colonne ?

Ex : $C$1 ---> (1,3)


Merci encore,
Mattharm

 

[mromain]

Re : Récupérer les bornes d'une Range

re bonjour le fil,

en remplaçant

plage(1, 1).Address

par

"(" & plage(1, 1).Row & ", " & plage(1, 1).Column & ")"

a+

 

[Mattharm]

Re : Récupérer les bornes d'une Range

Tout simplement....

Merci