Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2798 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] If/then débutant

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] If/then débutant

n°2033299
aout
Posté le 30-10-2010 à 23:45:33  profilanswer
 

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 ?

mood
Publicité
Posté le 30-10-2010 à 23:45:33  profilanswer
 

n°2033319
freds45
Posté le 31-10-2010 à 11:55:02  profilanswer
 

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
n°2033677
gooopil
pfiew
Posté le 02-11-2010 à 18:57:48  profilanswer
 

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)

n°2033680
aout
Posté le 02-11-2010 à 19:11:52  profilanswer
 

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

n°2033682
freds45
Posté le 02-11-2010 à 19:30:29  profilanswer
 

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
n°2033861
Xxxaaavvv
Posté le 03-11-2010 à 17:47:52  profilanswer
 

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


Aller à :
Ajouter une réponse
  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 CheckBoxVBA 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


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR