comment traduire un "ou" en VB Résolu

Question

Bonjour à tous,
Je ne sais plus comment traduire un "ou" en VB 6
et : &
ou : ?

J'ai honte, j'ai fais trop de C# et du coup je ne sais plus :(

Merci d'avance

jmfmarques · Accepted Answer

Je ne sais pas où tu te "plantes" dans ton code (t'as bien vérifié tout, y compris les positions de tes End If ?).

Mais voilà la preuve de ce que rien ne devrait empêcher ce fonctionnement !

Private Sub Command1_Click()
  dddd = "02/01/2222"
  heure = "10:00:00"
  jour = Format(dddd, "w")  If heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
     MsgBox ("pris")
  Else
    MsgBox ("pas pris")
  End If
End Sub

Alors : montre-nous tout depuis le If jusqu'au End If (qu'on n'a pas encore aperçu ...)

Renfield · Answer

& ?????

non & c'est pour la concaténation

And = et logique
Or  = ou logique

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jrivet · Answer

Salut,
ATTENTION 
& n'est pas un ET en VB6 c'est le concaténeur de chaine ou bien le caractere d'indication de type Long 
essaie de regarder du coté de AND et OR 

Que cherches tu à faire exactement

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

re,
Ahhhhh  ZUUUUUT
NOrmal tu es as cheval...

=> je suis déjà dehors...merci

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Jordan59 · Answer

Je cherchais juste à faire un test dans un if, merci beaucoup !

drikce06 · Answer

Salut et bien

If condition1 And condition2 Then

End If

If condition1 Or condition2 Then

End If

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

cs_Jordan59 · Answer

En tout cas mon if ne fonctionne pas !

dans une variable jour qui est en entier, je met le numéro du jour
If  heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
   msgbox("pris")
Else msgbox ("pas pris")

j'ai toujours "pas pris" qui s'affiche même quand jour est égal à 2, 3 ou 4

Je ne sais donc plus quoi faire !

Si quelqu'un voit une erreur dans ce que j'ai écrit qu'il me le dise ! merci

jmfmarques · Answer

Salut;

Essaye séparément  :

Private Sub Command1_Click()
  heure = "11:01:01"
  jour = 2  If heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
     MsgBox ("pris")
  Else
    MsgBox ("pas pris")
  End If
End Sub

Et tu verras que ça marche (forcément, d'ailleurs)
Conclusion ? ta variable jour n'est pas définie réellement comme integer (probablement une string après un tremplin quelconque du hgente textBox, Label, etc...)

cs_Jordan59 · Answer

la première condition avec l'heure fonctionne puisque que quand l'heure est égale à 10 h, "pris" s'affiche
jour est déclaré en integer et je l'a rempli de cette façon : jour = Format(Cal.Value,"w")

quand j'affiche jour dans un messagebox, j'ai bien le numéro qui s'affiche

jmfmarques · Answer

Ou encore : ta variable jour n'est pas égale à 2, à 3 ou à 4 

Fait donc, juste avant ta condition :
msgbox "a" & heure & jour & "a"
et dis-nous très exactement ce qui s'affiche, juste pour voir...

drikce06 · Answer

jour = Format(Cal.Value,"w"), tu fais quoi avec ce code? Cal c'est un contrôle?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

cs_Jordan59 · Answer

msgbox("a" & heure & jour & "a") donne : a 11:00:00 2 a
et quoi que je mette en 2ème condition me renvoie toujours pas pris sauf si heure = 10:00:00

cs_Jordan59 · Answer

Cal est un calendrier

jmfmarques · Answer

Je remarque des espaces...
Figurent-ils également dans ce qu'affiche ta msgbox ???
Si j'ai ajouté l'affichage de "a", entre autres, c'est précisément pour voir s'il y a ou non des espaces !!!
Dis-nous (exactement, s'il te plait)

drikce06 · Answer

Bon je vois pas trop, essaye toujours ça:

jour = Int(Format(Cal.Value,"w"))

If jour = 2 then
msgbox("Yes")
Else
msgbox("P**** de M *****")
End If

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

cs_Jordan59 · Answer

Par contre en faisant un 2ème If avec juste le test sur jour après un test sur l'heure ça fonctionne !
C'est bizarre

cs_Jordan59 · Answer

non il n'y a pas d'espaces : a11:00:002a
c'était pour une meilleure lisibilité

cs_Jordan59 · Answer

ça y est ça marche, je sais pas pourquoi peut être une erreur d'espace, merci de m'avoir aidé en tout cas !
Pour le if, il y en a 10 imbriqués et l'heure vient d'une base de données
C'est pour la réservation des heures de conduite pour une auto-école.
Programme que je dois présenter au BTS cette année
C'est difficile pour moi car je n'ai pas fait de VB depuis 1 an car je suis passé au C#

Merci à tous pour votre aide en tout cas !

Comment traduire un "ou" en VB

18 réponses

Votre réponse

Discussions similaires