Changer VRAI par Oui

H

hbenalia

XLDnaute Occasionnel

• 4 Août 2010

• #2

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:

Code:

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

Je ne vois pas d'autres alternatives...

Cordialement

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Août 2010

• #3

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

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 4 Août 2010

• #4

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.

 

Pièces jointes

• commande-essai.xls

  15.5 KB · Affichages: 181

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 4 Août 2010

• #5

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:

Code:

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

 

Pièces jointes

• Commande-essai_1.zip

  6.3 KB · Affichages: 104

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Août 2010

• #6

Re : Changer VRAI par Oui

bonsoir,
Essaie comme ceci

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Août 2010

• #7

Re : Changer VRAI par Oui

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

A+ à tous

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

 

Vote positif 0 Vote négatif

fifounet

XLDnaute Occasionnel

• 4 Août 2010

• #8

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 ;-)

 

Vote positif 0 Vote négatif