IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-07] Condition incorrecte


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Octobre 2006
    Messages
    77
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2006
    Messages : 77
    Par défaut [E-07] Condition incorrecte
    Bonjour
    Je débute en VB et je rencontre un petit probleme.
    Voila pour m'entrainer je crée des petites applications mais cette derniere me cause un petit soucis.

    Je déclare 3 variables va1,val2,val3 auquel j'attribu une valeur quelconque grace a Rnd.Ensuite je veux que lorsque ces 3 valeurs sont identiques un message s'affiche, le probleme c'est que le message ne s'affiche pas lorsque ma condition est suffisante mais lorsque val3=0!
    A quoi cela est du ??
    Merci d'avance et bonne soirée

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     
    Private Sub CommandButton1_Click()
     
    Dim val1 As Integer
    Dim val2 As Integer
    Dim val3 As Integer
     
    val1 = Rnd * 10
    Label1.Caption = val1
     
    val2 = Rnd * 10
    Label2.Caption = val2
     
    val3 = Rnd * 10
    Label3.Caption = val3
     
    If (val1 = val2 = val3) Then
    MsgBox ("bonjour")
    End If
     
    End Sub

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Bonsoir,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If val1 = val2 And val2 = val3 then
      msgbox "à bucher : opérateur AND"
    end if

  3. #3
    Membre Expert
    Avatar de Delbeke
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    2 675
    Détails du profil
    Informations personnelles :
    Âge : 72
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 2 675
    Par défaut
    Ton expression
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If (val1 = val2 = val3) Then
    Est comprise par vb comme si tu avais ecrit ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Val1 = (Val2 = Val3) ' Val1 vaudra true ou false
    If val1 = true  Then

  4. #4
    Membre émérite
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    753
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 753
    Par défaut
    C'est plutôt ça que comprend VB.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    if ((val1=val2)=val3) then
    msgbox "Val1 et val2 sont différents et val3 est nul, ou val1 et val2 sont égaux et val3 vaut 1."
    end if
    Ce qui explique pourquoi ça ne marche que quand val3 vaut 0, puisque val1 et val2 sont quasiment à coup sûr différents.

  5. #5
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Octobre 2006
    Messages
    77
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2006
    Messages : 77
    Par défaut
    Ok bien entendu. Merci pour vos réponses claires et rapides.
    Par contre j'ai un deuxieme petit soucis, j'arrive a ouvrir mon projet mais pas a l'executer. VB d'excel m'ecrit que les macros pour ce projet sont désactivées et qu'il faut les activer.

  6. #6
    Membre émérite
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    753
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 753
    Par défaut
    C'est très simple.

    Tu vas dans Outils->Options, puis dans l'onglet "Sécurité", tu cliques sur le bouton "Sécurité des macros", tu règles le niveau de sécurité sur "Niveau de sécurité faible (non recommandé)", et là ça marchera.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Evaluation de condition incorrecte
    Par dubitoph dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 2
    Dernier message: 19/05/2009, 15h44
  2. Condition sur debug et release
    Par xave dans le forum MFC
    Réponses: 3
    Dernier message: 04/02/2004, 15h04
  3. Condition et contenu TImage
    Par Detlev_linux dans le forum Langage
    Réponses: 6
    Dernier message: 23/12/2003, 01h00
  4. boucle avec condition d'arret changeante
    Par NicoH dans le forum Langage
    Réponses: 3
    Dernier message: 10/06/2003, 11h48
  5. [VB6] [MSChart] Courbe incorrecte
    Par elifqaoui dans le forum VB 6 et antérieur
    Réponses: 18
    Dernier message: 08/10/2002, 21h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo