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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 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