Discussion :

[markinho04]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[markinho04]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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