Identifier une partie d'un text dans une cellule

Bonjour à tous,

Je suis confronté à un problème en VBA ou je reste bloquer depuis un petit moment. Je suis sur que la solution doit etre simple, mais elle ne me saute pas au yeux.

Voici le problème:

Dans la colonne A, admettons que j'aie FR_SUB (A1), HO FR LU (A2), AF OL (A3), DU FI (A4), FR_SUB. Dans la colonne B, Je désire renommer toutes les cellules qui comportent "FR" par FRI

Mon fichier joint devrait aider à la compréhension...

Voilà comment j'ai codé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

For i = 0 To 4   If worksheetfunction.IsNumber(worksheetfunction.search("FR", Cells( 1+i,1)) Then   Cells(1+i, 2)= "FRI"   Else   Cells(1+i, 2)=Cells(1+i,1).value   End if   Next i

---

Pour la première ligne ca marche, mais dès qu'il n'y a plus "FR" dans la cellule, ca bugge! Et ce n'est pas censé buggé il me semble :lol: ma macro se stoppe à la ligne 3....

Donc si qlq pouvait m'expliquer ce qu'il y a de faut, j'en serais très ravi!!

Merci bcp

Code:

---

1 2	Range("A:A").Copy Range("B1") Range("B:B").Replace "*FR*", "FRI"

---

Pour ton code

Code:

---

1 2 3 4 5 6 7

For i = 0 To 4 If Not IsError(Application.Search("FR", Cells(1 + i, 1))) Then Cells(1 + i, 2) = "FRI" Else Cells(1 + i, 2) = Cells(1 + i, 1).Value End If Next i

---

Merci bcp pour la réponse, ca m'a bien aidé.

Cependant, il est vrai que je ne comprends pas la logique de l'erreur de ma première programmation. Enfin bref...

Merci encore une fois

Code:

---

worksheetfunction.search("FR", Cells( 1+i,1))

---

si FR n'est pas trouvée dans cells(i+1,1) l'expression retournée est une erreur.
sinon le premier code fait ce dont tu as besoin sans passer par une boucle sur chaque cellule