Microsoft 365 C.Address afficher le nom de la colonne (pas le n°)

[Usine à gaz]

Re-Bonjour à toutes et à tous,

Dans ma recherche, je n'arrive pas à trouver comment coder "C.Address afficher le nom de la colonne (pas le n°)"

je me tourne une fois de plus vers nos chers ténors
Auriez-vous le bon code :
Le code à modifier est le suivant :

Rep = MsgBox("Objet cherché : " & nom & " - OK dans " & ActiveSheet.Name & Chr(10) & "Colonne " & C.Column & " - ligne :  " & C.Row & Chr(10) & "" & "Continuer la recherche ?", 4 + 32, "Résultat")

En cas, je joins le fichier test.
Je vous remercie
Amicalement,
Lionel,

 

[Compte Supprimé 979]

Bonjour Lionel,

Si l'on veut que ce soit propre, voici

Replace(Left(C.Address, InStr(2, C.Address, "$")-1),"$","")

Avec la ligne entière

Rep = MsgBox("Objet cherché : " & nom & " - OK dans " & ActiveSheet.Name & Chr(10) & "Colonne " & Replace(Left(C.Address, InStr(2, C.Address, "$") - 1), "$", "") & " - ligne :  " & C.Row & Chr(10) & "" & "Continuer la recherche ?", 4 + 32, "Résultat")

@+

 

[Usine à gaz]

Bonjour
Merci d'être là
ça faisait longtemps lol
Merci pour le code je vais l'intégrer et tester et je reviendrai te dire.
lionel

 

[Usine à gaz]

Super nickel
Merci à toi !
ça fait des "plombes" que je cherche lol
lionel,

 

[job75]

Bonsoir Lionel, Bruno,

La ou les lettres de l'adresse de la cellule C sont données par :

Split(C.Address, "$")(1)

A+

 

[Usine à gaz]

Bonsoir Gérard,

Merci d'être un œil vigilant
Merci pour le code.
lionel

 

[Usine à gaz]

Re-Bonsoir Gérard,
Nickel... comme d'hab !
Encore merci
lionel,

 

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon WE

Voici le fichier définitif en pièce jointe,
Un grand merci à nos ténors aidants.
Amicalement,
lionel