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 :

Aide sur condition if et checkbox


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
    Inscrit en
    Septembre 2010
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 93
    Par défaut Aide sur condition if et checkbox
    Bonjour, salut à tout le forum et en particulier à ceux qui m'on deja beaucoup aidé.
    Ca fait 3 jours que je me prend la tete sur un probleme de formulation avec la condition if sur des checkbox.

    J'ai crée une userform avec 3 checkbox ( représentant 3 autres userform).
    Je n'arrive pas à trouver la mise en forme conditionnel pour que selon si ma chekbox est coché ou non cela face apparaitre la userform correspondante ou non.

    Mon schema d'appartion est le suivant.
    UserformP ( avec mes 3 checkbox); je valide
    -> ouverture userform1 ( attribuer à checkbox1); valider
    -> ouverture userform2 ( attribuer à checkbox2); valider
    -> ouverture userform3 ( attribuer à checkbox3); valider

    Seulement selon les besoins je n'ai pas besoins de faire apparitre toute les userform mais seulement celles qui sont cochées.

    J'ai rentrer ce code dans le "sub" du bouton valider de ma UserformP:
    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
    If UserformP.checkBox1.Value = true then
    Unload UserformP
    Load Userform1
    UserForm1.Show
     
    ElseIf UserFormP.checkBox2.Value = true then
    Unload UserformP
    Load Userform2
    UserForm2.Show
     
    Else 
    Unload UserformP
    Load Userform3
    UserForm3.Show
     
    End If
    Seulement ça bug ça m'ouvre toujours la userForm3 quelque soit la checkbox coché.

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Je n'ai pas compris si tu pouvais sélectionner plusieurs formulaires ou pas, c'est-à-dire cocher plusieurs CheckBox ou seulement une.

    Cdlt,

    PGZ

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 93
    Par défaut
    oui tout a fait je peut en selectionner plusieur . par exemple la 1 ,2 et 3 ou la 1 et 3 ou juste la 1 ou la 2 ... toutes les possibilités en fait

  4. #4
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonsoir.

    Citation Envoyé par toushusss Voir le message
    J'ai rentrer ce code dans le "sub" du bouton valider de ma UserformP
    On peut alors penser que le code est dans le module du formulaire "UserformP".

    Citation Envoyé par toushusss
    oui tout a fait je peut en selectionner plusieur . par exemple la 1 ,2 et 3 ou la 1 et 3 ou juste la 1 ou la 2 ... toutes les possibilités en fait
    Dans ce cas, il faut les ouvrir en non modal.

    Tu peux essayer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Me.checkBox1.Value Then UserForm1.Show vbModeless
    If Me.checkBox2.Value Then UserForm2.Show vbModeless
    If Me.checkBox3.Value Then UserForm3.Show vbModeless
     
    Unload Me
    Cordialement,

    PGZ

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 93
    Par défaut
    Salut,
    je viens de tester le code or cela renvoie une erreur de compilation : Membre de méthode ou de données introuvable.

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 93
    Par défaut
    Salut a tous, j'essaye tout les codes possibles mais toujours rien apparemment celui ci devrait fonctionner mais y à un bug. Si quelqu'un pouvait regarder. Lorsque je coche Chkbox 1 et 3 lorsque je valide rien ne se produit ???
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Private Sub CommandButton1_Click()
    With Sheets("GAZ")
    .Range("A1") = "ANNEE " & UserForm4.TextBox1
    End With
     
    With Sheets("EAU")
    .Range("A1") = "ANNEE " & UserForm4.TextBox1
    End With
     
    With Sheets("EDF")
    .Range("A1") = "ANNEE " & UserForm4.TextBox1
    End With
     
    With Sheets("Synthèse")
    .Range("A1") = "ANNEE " & UserForm4.TextBox1
    End With
     
    If UserForm9.CheckBox1.Value = True Then
      UserForm5.Show
         If UserForm9.CheckBox2 = True Then
             UserForm6.Show
         End If
             If UserForm9.CheckBox3 = True Then
                 UserForm7.Show
             End If
      End If
     
      If UserForm9.CheckBox2 = True Then
         UserForm6.Show
         If UserForm9.CheckBox3 = True Then
             UserForm7.Show
         End If
      End If
     
     If UserForm9.CheckBox3 = True Then
         UserForm7.Show
     End If
     
    Unload UserForm4
     
     
    End Sub

  7. #7
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Peux-tu préciser quels sont les formulaires ouverts lorsque le bouton est actionné, où se trouve le code du bouton et l'ouverture de quel formulaire doit commander chaque checkbox?
    Ces 3 formulaires à ouvrir suivant les checkboxes, veux-tu les ouvrir en même temps ou l'un après la fermeture de l'autre?

    Cdlt,

    PGZ

  8. #8
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 93
    Par défaut
    Merci PGZ; alors voila les infos

    Le code est dans le commandButton de ma userForm4

    1) En cliquant sur celui ci cela doit ouvrir la userform5 si sa chkbox correspondant (la 1 est coché) sinon la userform6 si chekbox 2 coché, sinon la userform7.

    2)Les userform s'ouvre les unes aprés les autres(ça je l'ai deja paramétré pour passer de l'une à l'autre).

    Mon probleme ce situe au tout départ pour ouvrir la première userform selon explication 1)

Discussions similaires

  1. aide sur les checkbox
    Par kroma23 dans le forum Débuter
    Réponses: 2
    Dernier message: 14/05/2009, 15h00
  2. aide sur checkbox
    Par apprentinovice dans le forum Débuter
    Réponses: 7
    Dernier message: 04/04/2009, 09h46
  3. Aide sur les checkbox sur Oracle Forms Builder
    Par lamouche8 dans le forum Forms
    Réponses: 3
    Dernier message: 03/04/2009, 13h42
  4. Demande d'aide sur macro a double conditions
    Par zinebs dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 11/11/2007, 23h23
  5. aide sur comparaison et condition en shell
    Par monsieur77 dans le forum Linux
    Réponses: 16
    Dernier message: 06/11/2007, 21h27

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