VBA True en VRAI

[yusukens]

Re le forum

j'ai un problème avec les True et les Vrai :
voici mon code :

   ValeurTrouve2 = Columns(1).Find(x, LookAt:=xlWhole)

   Worksheets("Feuil2").Range("A1") = Replace(ValeurTrouve2, "True", "True")

La variable ValeurTrouve2 et égale à TRUE
lorsque qu'il l'insère dans la cellule A1 de la feuille 2, la valeur devient VRAI au lieu de True.
j'ai pensé utiliser REPLACE pour remplacer, mais rien n'a faire il veut pas le mettre en anglais.
avez vous une idée ?

 

[pierrejean]

Re : VBA True en VRAI

bonjour yusukens
teste:

if ValeurTrouve2 then Worksheets("Feuil2").Range("A1") = "[COLOR=red]'[/COLOR]True"

 

[gilbert_RGI]

Re : VBA True en VRAI

Bonjour

ça peut-être ??

Sub rech()
x= 10
    On Error GoTo pastrouve
    ValeurTrouve2 = Columns(1).Find(x, LookAt:=xlWhole)
    Sheets(2).Range("A1") = "VRAI"
    Exit Sub
pastrouve:
    Sheets(2).Range("A1") = "FAUX"
End Sub

Cdlt

RGI

 

[skoobi]

Re : VBA True en VRAI

Bonjour,

essaie comme ça:

Worksheets("Feuil2").Range("A1") = Replace(ValeurTrouve2, "Vrai", "True")

Edit: bonjour gilbert ,pierrejean

 

[Stéphanie82]

Re : VBA True en VRAI

ahhhhhhhhh zut j'ai testé un truc et cela ne marche pas.
J'efface mon msg. ^^

 

[yusukens]

Re : VBA True en VRAI

Bonjour
pierrejean, gilbert_RGI, skoobi et stéph82
Je vous remercie pour vos réponses, j'ai testé celui de pierrejean et celle de skoobi car c'étaient les plus court ^^
pour skoobi, ça ne marche pas, ça remet encore en valeur VRAI au lieu de TRUE
pour la façon de pierrejean
Effectivement ça met un petit ' devant le True du coup ça le met en texte.
et pour ce que je veux faire par la suite, cela me correspond.
merci a vous.
bonne soirée