Discussion :

[FCL31]

Salut à tous

Dans un fichier Excel, j'ai environ 5 000 enregistrement

Se que je voudrais faire mais sans savoir comment, c'est de chercher les cellules qui contiennent plusieurs mots et les remplacer par d'autre.

Par exemple : je veux chercher dans la colonne B les cellules dans lesquelles je trouve le mot "RV" et le mot "1601" pour remplacer la cellule par "RV1601".

Car dans cette colonne B, je peu trouver "RV1601 Extra" ou encore "RV 1601 Extra" ou encore "Presse RV 1601 Delta" ou autre encore.
(je ne peu pas chercher simplement par "RV" car je peu trouver "RV 1901" par exemple)


je suppose qu'il faut utiliser la fonction Replace mais là je sais pas comment car il y a plusieurs mot a chercher dans une même cellule

[Minick]

Salut,

Un exemple a adapter a tes besoins:

Code :

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

1
2
3
4
5
6
7
    Dim Cpt As Integer
 
    For Cpt = 1 To Range("B" & Cells.Rows.Count).End(xlUp).Row
        If Range("B" & Cpt).Value Like "*RV*1610*" Then
            Range("B" & Cpt).Value = "RV1610"
        End If
    Next Cpt

[FCL31]

Merci de ta réponse Minick

Toutefois, sa pas l'air de marcher

J'ai essayé

Code :

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

    Cells.Replace What:="*RV*1601*", Replacement:="RV1601"

qui a l'air de marcher

Mais comment l'appliquer simplement sur la colonne B car sa le fait sur toute la feuille ??

[Minick]

Re,

Effectivement c'est plus rapide comme cela.
Pour ne l'appliquer que sur la colonne B

Code :

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

Columns("B").Replace What:="*RV*1601*", Replacement:="RV1601"

[FCL31]

Merci beaucoup