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

C

Compte Supprimé 979

Guest

• 2 Juillet 2021

• #2

Bonjour Lionel,

Si l'on veut que ce soit propre, voici

VB:

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

Avec la ligne entière

Code:

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")

@+

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 2 Juillet 2021

• #3

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 2 Juillet 2021

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2021

• #5

Bonsoir Lionel, Bruno,

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

VB:

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

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 2 Juillet 2021

• #6

Bonsoir Gérard,

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 2 Juillet 2021

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 3 Juillet 2021

• #8

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

 

Pièces jointes

• recherche_inputbox.xlsm

  29.5 KB · Affichages: 2

Vote positif 0 Vote négatif