Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Header contient une partie d'un string

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

choupi_nette

XLDnaute Occasionnel
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:

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
 
Dernière édition:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
573
Réponses
3
Affichages
854
W
  • Résolu(e)
Réponses
17
Affichages
2 K
M
Réponses
4
Affichages
936
mimich_88
M
D
Réponses
4
Affichages
1 K
M
Réponses
6
Affichages
1 K
mimich_88
M
Réponses
7
Affichages
1 K
Réponses
8
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…