transcrire une formule envba

[f69815]

bonjour le forum,
j'ai créé une formule " =SI(ESTERR(TROUVE(CAR(146);A1));A1;REMPLACER(A1;TROUVE(CAR(146);A1);1;CAR(39))) ", et je voudrais la transcrire en vba, car il n'y a pas toujours le même nombre de ligne à traiter.
merci de votre aide.

 

[f69815]

Re : transcrire une formule envba

bonsoir pierrot93,

je pensais que le code était plus complexe, mais il est tout simple :

La_derniere = Range("A65536").End(xlUp).Row

MonCaractere = Chr(146)

For i = 10 To La_derniere
Range("A" & i).Select
Selection.Replace What:=MonCaractere, Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i