récupérer le numéro de colonne d'une cellule

[brice59]

Bonjour,

Pouvez vous me dire comment faire pour aller chercher le numéro de colonne, d'une cellule d'une ligne précise (ligne 1) avec une valeur précise également, et ce grâce à une macro.

dans l'idée, la formule devrait être :

rechercher dans la ligne 1 le numéro de colonne pour la cellule qui contient en valeur "xyz"

Merci d'avance.

 

[VDAVID]

Re : récupérer le numéro de colonne d'une cellule

Bonjour brice59,

Peut-être comme ceci:

Sub recherche()

Dim c As Range

    With Sheets("Feuil1").Rows(1).Cells
    
    Set c = .Find("xyz", , xlValues, xlWhole)
    
        If Not c Is Nothing Then
        MsgBox c.Column
        End If
        
    End With
    
ENd Sub

Avec pour nom de feuille "Feuil1"

Bonne soirée

EDIT: Rectification, effectivement End Sub et End With en trop !

 

[brice59]

Re : récupérer le numéro de colonne d'une cellule

un grand merci David,

Il faut juste enlever les "end with" et "end sub" en trop .

Merci encore

 

[brice59]

Re : récupérer le numéro de colonne d'une cellule

en fait, je me suis un peu emballé,

je trouve bien le numéro de la colonne, mais il me faut la lettre de la colonne.

Merci

 

[Victor21]

Re : récupérer le numéro de colonne d'une cellule

Bonjour, Brice.

A tout hasard, par formule ?
Valeur cherchée en A1
Valeur trouvée en D4

=CAR(EQUIV(A1;4:4;1)+64)

renvoie "D"
Fonctionne jusqu'à la colonne Z

 

[brice59]

Re : récupérer le numéro de colonne d'une cellule

Bonjour, Brice.

A tout hasard, par formule ?
Valeur cherchée en A1
Valeur trouvée en D4

renvoie "D"
Fonctionne jusqu'à la colonne Z

Merci pour la réponse, mais j'ai besoin de la même chose mais en macro...

 

[Victor21]

Re : récupérer le numéro de colonne d'une cellule

Re,

Utilisez l'enregistreur...

 

[VDAVID]

Re : récupérer le numéro de colonne d'une cellule

Bonjour Victor21 , Brice59,

Pour récupérer la lettre par macro:

Sub recherche()

Dim c As Range

    With Sheets("Feuil1").Rows(1).Cells
    
    Set c = .Find("xyz", , xlValues, xlWhole)
    
        If Not c Is Nothing Then
        MsgBox Mid(c.Address, 2, InStr(2, c.Address, "$") - 2)
        End If
        
    End With
    
End Sub

Bonne soirée