Fonction replace VBA

Bonjour

Je suis en train d'uniformiser une base de donnée client qui a été renseignée de manière assez laxiste et je cherche à remplacer les "d,cembre" présent dans les cellules par "decembre" afin d'uniformiser mon contenu et exploiter correctement cette BDD

Premiere fois que j utilise replace et je galere un peu si vous pouvez m aider ca serait top

mes "d,cembre" ne sont pas tous seuls dans les cellules et pou tout dire le contenu des cellules est vraiment aléatoire...

Sub changer_dec()

Dim F As Worksheet
Set F = Sheets("Feuil1")
Dim i As Integer

i = 2
While i < 4
    If F.Cells(i, 9) Like "*d,cembre" Then
        F.Cells(i, 9) = Replace(F.Cells(i, 9).Value, "*d,cembre", "*decembre")
    End If

i = i + 1
Wend

End Sub

merci d avance pour votre aide

Bonjour,

Essaies :

Sub changer_dec()
Dim F As Worksheet
Dim i As Integer
  Set F = Sheets("Feuil1")
  For i = 2 To 3
    If F.Cells(i, 9) Like "*d,cembre*" Then
        F.Cells(i, 9).Value = Replace(F.Cells(i, 9).Value, "d,cembre", "decembre")
    End If
  Next i
End Sub

Salut WhereisBryan !

Édit Salut Patrice!

Une manière de faire :

Sub Find_Replace()
Dim F As Range
Set F = ThisWorkbook.Sheets(1).Range("I2:I4")
F.Replace "d,cembre", "décembre"
End Sub

A dispo

Bonjour

Essaie ça :

Sub changer_dec()

    Dim F As Worksheet
    Set F = Sheets("Feuil1")
    F.Range("I2:I100").Replace What:="d,cembre", Replacement:="décembre", LookAt:=xlPart
End Sub

Bye !

hello à vous tous

merci pour vos réponses

@juice la solution est vraiment rapide et marche nickel

finalement j ai testé toutes vos solutions

ca fonctionne sur certaines cellules mais pas toutes

j ai 60 000 lignes, je ne comprends pas le "d,cembre" est ecrit de la meme facon

fichier exemple

Re,

Je n'ai pas ouvert ton fichier mais attention à CHR(44) et CHR(130), il se ressemblent beaucoup.

@Patrice33740

merci beaucoup! de quoi se rendre fou...

Bonjour,

Bryan is in the kitchen ….

ok je sors