PB fonction Replace

Loïg · 18 Août 2006

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 :

Code:

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 · 18 Août 2006

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 · 18 Août 2006

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 · 18 Août 2006

Re : PB fonction Replace

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

PB fonction Replace

Loïg

XLDnaute Nouveau

flo2002

XLDnaute Impliqué

KIM

XLDnaute Accro

Loïg

XLDnaute Nouveau

Discussions similaires

PB fonction Replace

Loïg

XLDnaute Nouveau

flo2002

XLDnaute Impliqué

KIM

XLDnaute Accro

Loïg

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency