Récupérer les bornes d'une Range

  • Initiateur de la discussion Initiateur de la discussion Mattharm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mattharm

XLDnaute Occasionnel
Bonjour à tous,

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

Code:
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
 
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 :
Code:
T.Resize(1, 1).Address
et pour l'adresse du coin inférieur-droit, il faut écrire :
Code:
T.Resize(1, 1).Offset(T.Rows.Count - 1, T.Columns.Count - 1).Address

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

bonjour

sans passer par resize :

Code:
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
 
Re : Récupérer les bornes d'une Range

Re


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

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
28
Affichages
2 K
Retour