Decomposer une adresse de cellule

Bonjour à tous,

à l'aide d'une macro, et en fonction d'une valeur, je détermine l'adresse de la cellule qui contient cette valeur

Set a = .Range("BA4:BA18").Find(Valeur, lookat:=xlWhole)
If Not a Is Nothing Then
Adresse = a.Address

je souhaiterais décomposer cette adresse "a", afin d'en inscrire dans une cellule (par exemple A1) la valeur de la ligne de "a", et en A2 la valeur de la colonne de "a".

exemple:

a = $B$6

en cellule A1, la valeur de B en chiffre, exemple 2

en cellule A2, la valeur de 6 en chiffre, exemple 6

merci encore de votre aide

titi32600

Bonjour,

Pour le principe :

Cells(1, 1).Value = a.Row
Cells(2, 1).Value = a.Column

Salut Jean-Eric

Désolé du retard à te répondre.

Ta solution me conviens tres bien.

merci encore

titi32600

Bonjour à tous,

Si tu veux vraiment avoir la colonne en lettre ...

Sub testadress()
Dim a As Range
Dim Valeur As Integer
   Valeur = 8
   Set a = Range("bA4:bA18").Find(Valeur, lookat:=xlWhole)
   If Not a Is Nothing Then
      Range("A1") = lettre_col(a.Column)
      Range("A2") = a.Row
   End If
End Sub

Function lettre_col(n As Integer)
   ' gracieuseté de pierrejean (https://www.excel-downloads.com/threads/vba-renvoi-lettre-dune-colonne.114025/)
 lettre_col = Split(Cells(1, n).Address, "$")(1)
End Functio

ric

Salut Ric

en fait, la solution de Jean-Eric me conviens tres bien.

Merci encore

titi32600