Range("A1").Value = "10"
Range("B1").Formula = "=A1>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Re.. Alain te l'avait dit......qu'il cause en anglais ;o)) If x = True Then jj
"JeNeVois" a écrit dans le message de news:
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Re..
Alain te l'avait dit......qu'il cause en anglais ;o))
If x = True Then
jj
"JeNeVois" <JeNeVois@discussions.microsoft.com> a écrit dans le message de
news:45E456E6-A34B-44CA-A80A-F240D96C8F3F@microsoft.com...
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
Re.. Alain te l'avait dit......qu'il cause en anglais ;o)) If x = True Then jj
"JeNeVois" a écrit dans le message de news:
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
isabelle
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
et en logique ;-)
If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
JeNeVois
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
@Jacky
@isabelle
Merci pour la leçon
mais...
Sub reste_bizarre()
Dim x As Boolean
Dim y As String
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
y = Range("B1").Value
If x = y Then
MsgBox ("1: Ce n'est pas VRAI mais " & x)
Else
MsgBox ("2: Ce n'est pas VRAI mais " & x)
End If
End Sub
;)
et en logique ;-)
If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Jacky
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Re...
Conclusion
C'est vraiment vrai que VRAI devient Vrai en vba
C'est bizarrement vrai ;-))
JJ
"JeNeVois" <JeNeVois@discussions.microsoft.com> a écrit dans le message de
news:5E059284-9FA6-4E53-99AD-1686363765C8@microsoft.com...
@Jacky
@isabelle
Merci pour la leçon
mais...
Sub reste_bizarre()
Dim x As Boolean
Dim y As String
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
y = Range("B1").Value
If x = y Then
MsgBox ("1: Ce n'est pas VRAI mais " & x)
Else
MsgBox ("2: Ce n'est pas VRAI mais " & x)
End If
End Sub
;)
et en logique ;-)
If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Clément Marcotte
Bonjour,
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour VB.net). Encore que toute valeur numérique différente de 0 est interprétée comme valant True. Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile() et qui retournerait la valeur booléenne True pour désigner une année bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" a écrit dans le message de news:uQCAl5$
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de
news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Bonjour,
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la
valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour
VB.net). Encore que toute valeur numérique différente de 0 est
interprétée comme valant True.
Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et
explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile()
et qui retournerait la valeur booléenne True pour désigner une année
bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" <delaenlevezjusquiciJacky.jaeg@w...doo.fr> a écrit dans le
message de news:uQCAl5$OFHA.524@TK2MSFTNGP09.phx.gbl...
Re...
Conclusion
C'est vraiment vrai que VRAI devient Vrai en vba
C'est bizarrement vrai ;-))
JJ
"JeNeVois" <JeNeVois@discussions.microsoft.com> a écrit dans le
message de
Sub reste_bizarre()
Dim x As Boolean
Dim y As String
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
y = Range("B1").Value
If x = y Then
MsgBox ("1: Ce n'est pas VRAI mais " & x)
Else
MsgBox ("2: Ce n'est pas VRAI mais " & x)
End If
End Sub
;)
et en logique ;-)
If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour VB.net). Encore que toute valeur numérique différente de 0 est interprétée comme valant True. Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile() et qui retournerait la valeur booléenne True pour désigner une année bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" a écrit dans le message de news:uQCAl5$
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de
news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Jacky
Merci Clément, pour ce complément. JJ
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour VB.net). Encore que toute valeur numérique différente de 0 est interprétée comme valant True. Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile() et qui retournerait la valeur booléenne True pour désigner une année bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" a écrit dans le message de news:uQCAl5$
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de
news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
End Sub
:)
Merci Clément, pour ce complément.
JJ
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news:uUaxHJFPFHA.3156@TK2MSFTNGP15.phx.gbl...
Bonjour,
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la
valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour
VB.net). Encore que toute valeur numérique différente de 0 est
interprétée comme valant True.
Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et
explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile()
et qui retournerait la valeur booléenne True pour désigner une année
bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" <delaenlevezjusquiciJacky.jaeg@w...doo.fr> a écrit dans le
message de news:uQCAl5$OFHA.524@TK2MSFTNGP09.phx.gbl...
Re...
Conclusion
C'est vraiment vrai que VRAI devient Vrai en vba
C'est bizarrement vrai ;-))
JJ
"JeNeVois" <JeNeVois@discussions.microsoft.com> a écrit dans le
message de
Sub reste_bizarre()
Dim x As Boolean
Dim y As String
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
y = Range("B1").Value
If x = y Then
MsgBox ("1: Ce n'est pas VRAI mais " & x)
Else
MsgBox ("2: Ce n'est pas VRAI mais " & x)
End If
End Sub
;)
et en logique ;-)
If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10"
Range("B1").Formula = "¡>5"
x = Range("B1").Value
If x = "VRAI" Then
MsgBox ("Rien de bizarre !")
Else
MsgBox ("Ce n'est pas VRAI mais " & x)
End If
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
En fait, en Microsoft BASIC et ses dérivés (mais pas en VB.net), la valeur booléenne True (vrai) vaut en fait -1 en binaire. (C'est 1 pour VB.net). Encore que toute valeur numérique différente de 0 est interprétée comme valant True. Pour peu qu'Excel convertisse VRAI en 1, c'est tout à fait normal et explicable.
Mais si vous avez par exemple une fonction VBA du nom de bissextile() et qui retournerait la valeur booléenne True pour désigner une année bissextile et que vous fassiez une opération du genre en VBA:
nombrejours = bissextile + 365 , vous obtiendriez 364 jours et pas 366
D'un autre côté la seule valeur numérique qui vaut False est zéro.
"Jacky" a écrit dans le message de news:uQCAl5$
Re... Conclusion C'est vraiment vrai que VRAI devient Vrai en vba C'est bizarrement vrai ;-)) JJ
"JeNeVois" a écrit dans le message de
news:
@Jacky @isabelle
Merci pour la leçon mais...
Sub reste_bizarre() Dim x As Boolean Dim y As String
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value y = Range("B1").Value If x = y Then MsgBox ("1: Ce n'est pas VRAI mais " & x) Else MsgBox ("2: Ce n'est pas VRAI mais " & x) End If
End Sub
;)
et en logique ;-) If x Then
isabelle
Sub bizarre()
Range("A1").Value = "10" Range("B1").Formula = "¡>5" x = Range("B1").Value If x = "VRAI" Then MsgBox ("Rien de bizarre !") Else MsgBox ("Ce n'est pas VRAI mais " & x) End If
