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 :

Conditions UserForm sur VBA Excel


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

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2010
    Messages : 67
    Par défaut Conditions UserForm sur VBA Excel
    Bonsoir à tous!

    Je travaille sur un projet VBA sur excel pour une école, c'est un programme de gestion de notes d'élèves, je vous expose mon problème :

    J'ai un Userform où se trouve plusieurs combobox :
    1. la promotion
    2. le groupe
    3. le nom de l'élève

    les valeurs pour chaque combobox :
    1 : 1 et 2
    2 : A et B
    3 : dépend des 2 premières

    Ainsi, si je sélectionne "1" dans ma premiere Combobox, alors les items de la combobox3 sont les valeurs de ma colonne B dans ma feuille 2.

    J'espère avoir assez bien expliqué..=S.. pourriez vous m'aider pour le code?

    Très cordialement.

  2. #2
    Membre éclairé
    Homme Profil pro
    Chargé d'Etudes Statistiques
    Inscrit en
    Novembre 2010
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'Etudes Statistiques
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2010
    Messages : 79
    Par défaut
    personnellement je n'ai rien compris. Ou sont tes données ?

  3. #3
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Octobre 2010
    Messages
    67
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2010
    Messages : 67
    Par défaut
    mes combobox1 et 2 ont leurs données sur ma feuille1 et combobox3 a ses données sur la feuille2.
    est-ce cela que vous n'aviez pas compris?

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonsoir,

    Si j'ai bien compris, tu souhaites que le ComboBox3 se remplisse de façon dynamique en fonction des choix effectués dans les deux premiers ?
    Voici un code pour un début de piste, à adapter ou à creuser car d'après ce que j'ai compris, tu as 4 colonnes en feuil2 qui servent de source à ComboBox3 :

    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
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
     
     
    Private Sub UserForm_Initialize()
     
        ComboBox1.AddItem 1
        ComboBox1.AddItem 2
        ComboBox2.AddItem "A"
        ComboBox2.AddItem "B"
     
    End Sub
     
    Private Sub ComboBox1_Change()
     
    Dim Plage As Range
     
    With Worksheets("Feuil2")
     
        Select Case ComboBox1.Text
     
            Case 1
     
                Select Case ComboBox2.Text
     
                    Case "A"
     
                        Set Plage = .Range(.[A3], .[A65536].End(xlUp))
     
                    Case "B"
     
                        Set Plage = .Range(.[B3], .[B65536].End(xlUp))
     
                End Select
     
            Case 2
     
                Select Case ComboBox2.Text
     
                    Case "A"
     
                        Set Plage = .Range(.[C3], .[C65536].End(xlUp))
     
                    Case "B"
     
                        Set Plage = .Range(.[D3], .[D65536].End(xlUp))
     
                End Select
     
        End Select
     
    End With
     
    ComboBox3.Clear
     
    On Error Resume Next
    ComboBox3.RowSource = Plage.Address
     
    End Sub
     
    Private Sub ComboBox2_Change()
     
    Dim Plage As Range
     
    With Worksheets("Feuil2")
     
        Select Case ComboBox1.Text
     
            Case 1
     
                Select Case ComboBox2.Text
     
                    Case "A"
     
                        Set Plage = .Range(.[A3], .[A65536].End(xlUp))
     
                    Case "B"
     
                        Set Plage = .Range(.[B3], .[B65536].End(xlUp))
     
                End Select
     
            Case 2
     
                Select Case ComboBox2.Text
     
                    Case "A"
     
                        Set Plage = .Range(.[C3], .[C65536].End(xlUp))
     
                    Case "B"
     
                        Set Plage = .Range(.[D3], .[D65536].End(xlUp))
     
                End Select
     
        End Select
     
    End With
     
    ComboBox3.Clear
     
    On Error Resume Next
    ComboBox3.RowSource = Plage.Address
     
    End Sub
    Hervé.

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

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2010
    Messages : 67
    Par défaut
    Merci Hervé!

    Ton code n'est vraiment pas loin de ce que je cherche, j'ai essayé de le modifier pour arriverà mes fins mais je débute et j'ai du mal.
    J'ai fait un schéma pour mieux expliquer :

    Nom : Sans titre 2.jpg
Affichages : 219
Taille : 46,8 Ko

    J'espère être un peu plus claire (les rectangles arrondis gris sont mes feuilles et le rectangle vert : mon userform)

  6. #6
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Octobre 2010
    Messages
    67
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2010
    Messages : 67
    Par défaut
    J'ai trouvé finalement:

    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
    Private Sub ComboBox10_Change()
     
     Dim i As Integer
     
    i = 0
    i = i + 1
     
    Worksheets("BDD").Activate
    Select Case ComboBox10.Text
        Case 1
    Do While Range("B14").Offset(i) <> ""
    Saisie_notes.ComboBox8.AddItem Range("B14").Offset(i)
    i = i + 1
    Loop
        Case 2
    Do While Range("B14").Offset(i) <> ""
        Saisie_notes.ComboBox8.AddItem Range("B14").Offset(i)
        i = i + 1
    Loop
     
    End Select
     
    End Sub
    merci hervé pour le bout de code!

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

Discussions similaires

  1. Mot de passe sur VBA Excel
    Par vietzims dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 05/05/2008, 09h26
  2. Livre sur VBA excell
    Par Mr_JF dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 30/01/2008, 08h57
  3. help sur VBA excel
    Par soffy dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/05/2007, 11h49
  4. Réponses: 3
    Dernier message: 09/04/2006, 09h10

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