[VBA] If/then débutant

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] If/then débutant

aout

Question de débutant :

J'ai une macro toute simple

Sub Jour()

Dim Jour

Jour = InputBox("Quel jour est-on ?", "Jour" )

If "Jour" = Lundi And Mardi And Mercredi And Jeudi And Vendredi Then MsgBox ("Super" ) Else MsgBox ("Pas super" )

End Sub

Ce que je ne comprends pas c'est que quelque soit le jour que je rentre, j'ai à chaque fois la réponse "pas super".

Une idée d'où serait susceptible de venir le problème ?

Publicité

freds45

Ton jour ne peut pas être Lundi ET Mardi à la fois : essaye avec des Or plutôt que des And.

---------------
Filmstory : gardez trace des films que vous avez vu ! :D

gooopil

pfiew

Ce que dit freds plus le fait que dans ton if, tu vérifies si la chaine "Jour" est égale à Lundi, Mardi etc, alors que ce que tu veux faire, c'est vérifier si le contenu de ta variable Jour est égale aux jours listés (faut que tu vires les guillemets donc)

aout

Merci de vos réponses. J'ai essayé en intégrant vos modifications, ça donne donc :

Sub Jour()

Dim Jour

Jour = InputBox("Quel jour est-on ?", Jour)

If Jour = Lundi Or Mardi Or Mercredi Or Jeudi Or Vendredi Then MsgBox ("Super" ) Else MsgBox ("Pas super" )

End Sub

Mais ça ne fonctionne toujours pas, j'obtiens toujours "Pas super" lorsque je rentre Mardi par exemple

freds45

Un truc comme
If Jour = "Lundi" Or Jour = "Mardi" .... Then MsgBox ("Super" ) Else MsgBox ("Pas super" )
ça devrait mieux marcher.
Revois un peu les bases du langage, parce que là ...

---------------
Filmstory : gardez trace des films que vous avez vu ! :D

Xxxaaavvv

En beaucoup plus propre :

Sub Jour()

Dim strJour As String

strJour = InputBox("Quel jour est-on ?", "Jour" )
Select Case strJour
Case "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi"
MsgBox ("Super" )
Case Else
MsgBox ("Pas super" )
End Select

End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] If/then débutant

Sujets relatifs
[VBA] extraire des noeuds d'un gros fichier XML	[VBA] Problème lors de l'ouverture des fichiers
[VBA] Créer une fonction utilisée en tant que formule	[VBA]modifier point d'entrée du programme [Resolu]
programmation en VBA	[VBA] Support d'apprentissage
VBA Excel CheckBox	VBA Excel - concatener en fonction d'un Tag
Access VBA cellule vide avec IF et Then (marche pas ?)
Plus de sujets relatifs à : [VBA] If/then débutant

Page générée en 0.030 secondes