Header contient une partie d'un string

[choupi_nette]

Bonjour à tous,

J'aimerai au debut d'une macro verifier que 3 headers ont le nom exact.

Si dans une des cellules de la 1ere ligne ( header) il y a le mot "bonj" le renommer en "bonjour", si il y a le mot "Hel" le renomer en "Hello" etc...

Pour cela j'ai le bout de code suivant,mais je n'arrive pas a finaliser le code:

Sub headers()
Worksheets("xxx").Activate
Dim celltxt As String
celltxt = ActiveSheet.Range("A1:EE1").Select
If InStr(1, celltxt, "Hel") Then cell.value="Hello"

End If

End Sub

Merci pour votre aide

 

[CHALET53]

Re : Header contient une partie d'un string

bonjour,

Peut-être comme cela :

Sub headers()
Dim celltxt As Range
Worksheets("Feuil1").Activate
Set celltxt = ActiveSheet.Range("A1:EE1")
For Each cel In celltxt
If InStr(1, cel, "Hel") Then
Stop
cel.Value = "Hello"
End If
Next
End Sub

a+

 

[choupi_nette]

Re : Header contient une partie d'un string

Un grand merci !
J'ai adapté ca roule

Bonne journée