OVH Cloud OVH Cloud

if et boolean

2 réponses
Avatar
reno
Bonjour a tous,


j aimerais savoir dans la macro suivante comment declarer
et introduire une variable bouleenne (qui doit etre
generale car elle sera reetulisee par la suite) qui prend
la valeure true si vbNO et false dans l autre.

Private Sub Workbook_Open()
If MsgBox("NEW!" + Chr(13) + Chr(13) + "Do you have
Bloomberg ",vbYesNo, "Customer information") = vbYes Then



Else


End If

End Sub


J aimerais aussi savoir comment on dit en VBA If
variable X=true, then...


merci

reno

2 réponses

Avatar
Vincent.
Re salut !

En tête de module tu places le code suivant :
Public X As Boolean

Ensuite, tu peux affecter à X la valeur vraie de la
manière suivante :
X = True
Une fois affectée, tu peux la changer par la même
procédure ou avec l'instruction Not : X=Not X
(inverse la valeur de X)

Ensuite, pour utiliser X dans un test :
If X then
.../...
Else
.../...
EndIf

-----Message d'origine-----
Bonjour a tous,


j aimerais savoir dans la macro suivante comment declarer
et introduire une variable bouleenne (qui doit etre
generale car elle sera reetulisee par la suite) qui prend
la valeure true si vbNO et false dans l autre.

Private Sub Workbook_Open()
If MsgBox("NEW!" + Chr(13) + Chr(13) + "Do you have
Bloomberg ",vbYesNo, "Customer information") = vbYes Then

Xúlse

Else

X=True

End If

End Sub


J aimerais aussi savoir comment on dit en VBA If
variable X=true, then...


merci

reno

.



Avatar
BJ
Salut,
petite aide complémentaire
Déclare en debut du module cette ligne
Public rep as Boolean

'En ThisWorkbook
Private Sub Workbook_Open()
rep=MsgBox("NEW!" + Chr(13) + Chr(13) _
+ "Do you have Bloomberg ,vbYesNo, "Customer information")
if rep=vbYes Then

End sub
reno a écrit dans le message :
069601c35ffb$5c8584b0$
Bonjour a tous,


j aimerais savoir dans la macro suivante comment declarer
et introduire une variable bouleenne (qui doit etre
generale car elle sera reetulisee par la suite) qui prend
la valeure true si vbNO et false dans l autre.

Private Sub Workbook_Open()
If MsgBox("NEW!" + Chr(13) + Chr(13) + "Do you have
Bloomberg ",vbYesNo, "Customer information") = vbYes Then



Else


End If

End Sub


J aimerais aussi savoir comment on dit en VBA If
variable X=true, then...


merci

reno