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

V

VDAVID

XLDnaute Impliqué

• 26 Septembre 2012

• #2

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

Bonjour brice59,

Peut-être comme ceci:

Code:

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 !

 

Dernière édition: 26 Septembre 2012

Vote positif 0 Vote négatif

B

brice59

XLDnaute Occasionnel

• 26 Septembre 2012

• #3

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

 

Vote positif 0 Vote négatif

B

brice59

XLDnaute Occasionnel

• 26 Septembre 2012

• #4

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2012

• #5

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)

Cliquez pour agrandir...

renvoie "D"
Fonctionne jusqu'à la colonne Z

 

Vote positif 0 Vote négatif

B

brice59

XLDnaute Occasionnel

• 26 Septembre 2012

• #6

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

Victor21 à dit:

Bonjour, Brice.

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

renvoie "D"
Fonctionne jusqu'à la colonne Z

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2012

• #7

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

Re,

Utilisez l'enregistreur...

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 26 Septembre 2012

• #8

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

Bonjour Victor21 🙂, Brice59,

Pour récupérer la lettre par macro:

Code:

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

 

Vote positif 0 Vote négatif