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 ?

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

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)

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

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à ...

En beaucoup plus propre :