XL 2016 Récuperer row et colunm

[Don pépé]

Bonjour,
J'ai fait un petit code basic pour récupérer le row et le colunm mais je pense qu'on peu améliorer ça mais je vois pas comment si quelqu'un a une idée

Dim col, col1, col2, row, row1, row2

    col1 = Split(Selection.Address, "$")(1)
    col2 = Split(Selection.Address, "$")(2)
    row1 = Split(Selection.Address, "$")(3)
    row2 = Split(Selection.Address, "$")(4)
   
    col = col1 & Replace(col2, ":", "")
    row = row1 & row2
    MsgBox col & " " & row

merci a vous

 

[sylvanu]

Bonjour DonPépé,
Essayez :

MsgBox Replace(Replace(Selection.Address, "$", ""), ":", " ")

 

[patricktoulon]

bonjour

Sub test()

With Selection
c1 = .Cells(1).Address(0, 0) 'address de la première cellule
c2 = .Cells(.Rows.Count, .Columns.Count).Address(0, 0) 'address de la dernière cellule
End With

MsgBox c1 & " " & c2

End Sub

d'une autre maniere

Sub test2()
With Selection
x = Split(Replace(.Address(0, 0), ",", ":"), ":")
End With
MsgBox x(0) & "  " & x(UBound(x))
End Sub

 

[Don pépé]

cest parfait merci beaucoup