Changer VRAI par Oui

[fifounet]

Bonsoir
Je veux à l'aide dune macro remplacer dans toute une colonne le mot VRAI par le mot Oui
J'ai enregistré une macro, ça marche pour tous autres mots que VRAI (ou FAUX).
Je ne vois pas pourquoi!
Merci pour votre éclairage.

 

[hbenalia]

Re : Changer VRAI par Oui

Bonjour à tous;

Le VRAI ou le FAUX sont peut être des résultats (logiques) de formules qu'on ne peut changer qu'à l'intérieur de ces formules ou qu'on peut les remplacer par d'autres formules conditionnelles par la fonction SI, par exemple:

=SI(formule_originale="VRAI";"OUI";"NON")

Je ne vois pas d'autres alternatives...

Cordialement

 

[JCGL]

Re : Changer VRAI par Oui

Bonjour à tous,

En VBA, VRAI est un mot réservé...

Peux-tu déposer ton fichier pour voir de quoi il en retourne ?

A+ à tous

 

[fifounet]

Re : Changer VRAI par Oui

Merci de vous intéresser à moi,
c'est une table acces que j'ouvre avec Excel
pour donner le fichier joint dans lequel j'ai enregistré la macro
pour changer VRAI en Oui.

 

[hbenalia]

Re : Changer VRAI par Oui

Bonjour à tous,

Le mot VRAI est réservé en VBA comme l'a dit JCGL... Je n'est pu passer ce problème qu'après un petit changement sur le code de la façon suivante:

Sub Macrototo()
'
'
' Macro enregistrée le 04/08/2010 par fifi
'
'
    
    Columns("E:E").Select
    Selection.Replace What:=Range("G1"), Replacement:="Oui", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

et en mettant le mot "VRAI" dans la cellule G1...

Cordialement

 

[kjin]

Re : Changer VRAI par Oui

bonsoir,
Essaie comme ceci

Sub Macrototo()
    Columns("E:F").Replace True, "OUI"
    Columns("E:F").Replace False, "NON"
End Sub

A+
kjin

 

[JCGL]

Re : Changer VRAI par Oui

Bonjour à tous,

Peux-tu essayer avec :

Sub Macrototo()
With Columns("E:F")
.Replace True, "Oui"
.Replace False, "Non"
End With
End Sub

A+ à tous

Édition : Salut Kjin... Plus rapide...

 

[fifounet]

Re : Changer VRAI par Oui

Comme c'est simple ! et tellement évident quand on voit la solution !!
Merci à vous hbenalia, kjin et jcgl
toujours aussi génial ce forum ;-)