PB fonction Replace

[Loïg]

Bonjour
Je tiens tout d'abord à féliciter les administrateurs de ce site pour son contenu.

Je cherche à remplacer dans une feuille Excel tous les mots VRAI par 1, en utilisant l'enregistreur de macro celui-ci crée :

Sheets("Export fichier 1").Select
Selection.Replace What:="faux", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Selection.Replace What:="vrai", Replacement:="1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Mais ca ne marche par lorsque je le re-exécute.

Pouvez- vous m'aider ?
Merci

 

[flo2002]

Re : PB fonction Replace

bonjour,
je verrais:


Option Explicit
Sub test()

Dim X As Range
For Each X In Selection
If X = "Faux" Then
X = 0
End If
Next X
Dim Y As Range
For Each Y In Selection
If Y = "Vrai" Then
Y = 1
End If
Next Y
End Sub

bon courage

 

[KIM]

Re : PB fonction Replace

Bonjour le fil,
J'utilise le meme code que Loïg, mais je selectionne avant les colonnes et non la feuille complète et ça marche chez moi:
Columns("AC:AF").Select
Selection.Replace What:="RP", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="SE", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
J'espère que ça pourrait t'aider.
KIM

 

[Loïg]

Re : PB fonction Replace

Merci de votre diligence
Cela m’à permis de résoudre mon problème
Cordialement