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

[choupi_nette]

Bonjour,
Dans une de mes macros, j'ai l'instruction suivante selectionne toute la colonne Y et recherche et remplace Choupi par Toto

Ma question c'est est-ce qu'il existe une commande VBA pour dire à ma macro:
Cherche dans mon intitulé (donc toujours ligne 1 de ma feuille "Resultats") le mot "XLD" et applique le :recherche et remplace Choupi par Toto

Columns("Y:Y").Select
On Error Resume Next
Selection.Replace What:="Choupi:", Replacement:="TOTO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Merci pour votre aide

 

[Caillou]

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

Bonjour,

Remplace la 1ère ligne de ta macro par

    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

 

[choupi_nette]

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

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

 

[Caillou]

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

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

 

[choupi_nette]

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

 

[Hellboy]

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

 

[choupi_nette]

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

Merci Hellboy pour ta reponse également
Bonne soiree