choupi_nette
XLDnaute Occasionnel
Bonjour,
J'ai une macro qui renomme des headers.
Je dois renommer un header qui contient des chaines constantes et variables. Je m'explique:
xxx yyyyyyy xxxxxxx
X est une chaine de caractere qui est tout le temps constante
Y varie en taille (4 a 15 caracteres)
Comment faire pour que la macro repere les x, et les renomme comme je le veux ?
Ci dessous mon bout de code
Merci pour votre aide si vous pouvez
J'ai une macro qui renomme des headers.
Je dois renommer un header qui contient des chaines constantes et variables. Je m'explique:
xxx yyyyyyy xxxxxxx
X est une chaine de caractere qui est tout le temps constante
Y varie en taille (4 a 15 caracteres)
Comment faire pour que la macro repere les x, et les renomme comme je le veux ?
Ci dessous mon bout de code
Merci pour votre aide si vous pouvez
Code:
Sub headers()
Dim celltxt As Range
Worksheets("blabla").Activate
Set celltxt = ActiveSheet.Range("A1:DD1")
For Each cel In celltxt
If InStr(1, cel, "hello") Then
cel.Value = "goodbye"
End If
Next
End sub