Recherche et remplace en fonction d'un intitulé de colonne...

C

Caillou

XLDnaute Impliqué

• 13 Décembre 2011

• #2

Re : Recherche et remplace en fonction d'un intitulé de colonne...

Bonjour,

Remplace la 1ère ligne de ta macro par

Code:

    Rows("1:1").Select
    Selection.Find(What:="XLD", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Columns("A:A").EntireColumn.Select

réalisé avec l'enregistreur de macro (sous excel 2010)

Caillou

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 13 Décembre 2011

• #3

Re : Recherche et remplace en fonction d'un intitulé de colonne...

Re,
Merci Caillou mais tu n'as pas compris mon message...
Choupi

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 13 Décembre 2011

• #4

Re : Recherche et remplace en fonction d'un intitulé de colonne...

Ah bon ! et que faut-il comprendre ?
As tu essayé ?

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 13 Décembre 2011

• #5

Re : Recherche et remplace en fonction d'un intitulé de colonne...

Mille excuses ca marche parfaitement
J'avais juste pas compris que tout ce code là c'etait en fait ma 1ere ligne !
Bonne soiree

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 13 Décembre 2011

• #6

Re : Recherche et remplace en fonction d'un intitulé de colonne...

un essaie....est-ce que ceci saurait répondre

lacolonne = Rows("1:1").Find(What:="XLD", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Column
Columns("Y:Y").Select
On Error Resume Next
Cells(1, lacolonne).EntireColumn.Replace What:="Choupi:", Replacement:="TOTO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 13 Décembre 2011

• #7

Re : Recherche et remplace en fonction d'un intitulé de colonne...

Merci Hellboy pour ta reponse également
Bonne soiree

 

Vote positif 0 Vote négatif