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 :

4 combobox en cascade:problème


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Décembre 2008
    Messages
    145
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 145
    Par défaut 4 combobox en cascade:problème
    Bon là je galère.
    Mon code doit alimenter 4 combobox en cascade. Ca signifie que lorsque je sélectionne une valeur dans ma première combobox1, en gardant la valeur sélectionner il m'affiche dans la combobox2 la liste des résultat en lien avec la première uniquement ainsi de suite.

    Seulement le code que j'ai récupéré a une faille, car lorsque je sélectionne la combobox3 elle ne tien plus compte du résultat de la première mais seulement de la seuxième?????

    Voilà le problème dans mon code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub ComboBox2_Change()
        'Remplissage Combo3
        Alim_Combo 3, ComboBox2.Value
    End Sub
    Voilà se que je pensais faire et qui ne marche pas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub ComboBox2_Change()
        'Remplissage Combo3
        Alim_Combo 3, ComboBox1.Value and ComboBox2.Value
    End Sub
    et voilà mon code en entier
    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
     
    'Les données sont dans les colonnes A à D, d'un onglet nommé "Base".
    'La procédure effectue un remplissage conditionnel des Combobox en fonction de
    'ce qui est sélectionnée dans le contrôle précédent:
    'La sélection du ComboBox1 (données colonne A) définit le contenu du ComboBox2 (données colonne B) ,
    'La sélection du ComboBox2 définit le contenu du ComboBox3 (données colonne C) …etc...
    '
    Private Sub UserForm_Initialize()
        'Définit la feuille contenant les données
        Set Ws = Worksheets("Base")
        'Définit le nombre de lignes dans la colonne A
        NbLignes = Ws.Range("A65536").End(xlUp).Row
        'Remplissage du ComboBox1
        Alim_Combo 1
     
    End Sub
     
    Private Sub ComboBox1_Change()
        'Remplissage Combo2
        Alim_Combo 2, ComboBox1.Value
    End Sub
     
    Private Sub ComboBox2_Change()
        'Remplissage Combo3
        Alim_Combo 3, ComboBox1.Value
    End Sub
     
    Private Sub ComboBox3_Change()
        'Remplissage Combo4
        Alim_Combo 4, ComboBox3.Value
    End Sub
     
    'Procédure pour alimenter les ComboBox
    Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
        Dim j As Integer
        Dim Obj As Control
     
        'Définit le ComboBox à remplir
        Set Obj = Me.Controls("ComboBox" & CbxIndex)
        'Supprime les anciennes données
        Obj.Clear
     
        'alimente le Combobox initial (Combobox1)
        If CbxIndex = 1 Then
            'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
            For j = 2 To NbLignes
                Obj = CStr(Ws.Range("A" & j))
                'Remplit le ComboBox sans doublons
                If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("A" & j))
            Next j
        Else
            'Alimentation conditionnelle des autres Combobox en fonction de
            'ce qui est sélectionnée dans le contrôle précédent:
            '(La sélection du ComboBox1 définit le contenu du ComboBox2,
            'La sélection du ComboBox2 définit le contenu du ComboBox3 …etc...)
            For j = 2 To NbLignes
                If Ws.Range("A" & j).Offset(0, CbxIndex - 2) = CStr(Cible) Then
                    Obj = CStr(Ws.Range("A" & j).Offset(0, CbxIndex - 1))
                    If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("A" & j).Offset(0, CbxIndex - 1))
                End If
            Next j
       End If
     
       'Enlève la sélection dans le ComboBox
       Obj.ListIndex = -1
    End Sub

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    c'est logique puisque tu lui dis de faire ainsi ici (1)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Ws.Range("A" & j).Offset(0, CbxIndex - 2) = CStr(Cible) Then
    explique ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub ComboBox2_Change()
        'Remplissage Combo3
        Alim_Combo 3, ComboBox2.Value
    End Sub
    combo1 alimentée par A
    combo2 par B
    (1) donne, si Bi=combo2 then
    dans cette condition, on ajoute chaque cellule de la colonne C dans combo3 où la cellule de colonne B est égale au contenu de combo2 sans parler de la cellule de la colonne A qui devrait être égale à combo1

  3. #3
    Membre confirmé
    Inscrit en
    Décembre 2008
    Messages
    145
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 145
    Par défaut
    En fait j'ai récupéré du code sur ce forum, alors pour se qui est d'expliquer je veux bien essayer :

    En fait quand ma combobox2 est sélectionné et affiche une valeur, elle me permet d'alimenter ma combobox3.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub ComboBox2_Change()
        'Remplissage Combo3
        Alim_Combo 3, ComboBox2.Value
    End Sub
    Tu pourrais me dire si t'as une idée comment liée toute les valeurs de mes combobox????

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435

  5. #5
    Membre confirmé
    Inscrit en
    Décembre 2008
    Messages
    145
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 145
    Par défaut
    J'ai tjr un problème, mais ça va je retrouve le sourir ; maintenant mes liste déroulante ne m'affichent que la première ligne de mon tableau de donnée.

    Donc dans ma combox1 je n'ai que la cellule A1, dans la combobox2 je n'ai que la cellule A2...

    La je comprend pas????


    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
    Private Sub UserForm_Initialize()
     
    Dim j As Long
    Dim kol As New Collection
     
    Set Ws = Worksheets("Base")
    NbLignes = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row
    For j = 2 To NbLignes
        On Error Resume Next
        kol.Add Ws.Range("A" & j).Value, CStr(Range("A" & j).Value)
    Next j
     
    For j = 1 To kol.Count
        Me.ComboBox1.AddItem kol(j)
    Next j
     
    End Sub
     
     
    Private Sub ComboBox1_Change()
    Dim j As Long
    Dim kol As New Collection
     
    For j = 2 To NbLignes
        On Error Resume Next
        If CStr(Ws.Range("A" & j).Value) = Me.ComboBox1.Value Then kol.Add Ws.Range("B" & j).Value, CStr(Range("B" & j).Value)
    Next j
    Me.ComboBox2.Clear
    For j = 1 To kol.Count
        Me.ComboBox2.AddItem kol(j)
    Next j
    End Sub
     
     
    Private Sub ComboBox2_Change()
    Dim j As Long
    Dim kol As New Collection
     
    For j = 2 To NbLignes
        On Error Resume Next
        If CStr(Ws.Range("A" & j).Value) = Me.ComboBox1.Value And CStr(Ws.Range("B" & j).Value) = Me.ComboBox2.Value Then kol.Add Ws.Range("C" & j).Value, CStr(Range("C" & j).Value)
    Next j
    Me.ComboBox3.Clear
    For j = 1 To kol.Count
        Me.ComboBox3.AddItem kol(j)
    Next j
    End Sub

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    as tu déclaré tes variables dans un module public?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Public ws as worksheet
    Public NbLignes as long

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

Discussions similaires

  1. [XL-2010] Combobox en cascade problème
    Par Shini28 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 06/08/2014, 09h48
  2. Combobox en cascade et sans doublons
    Par humbp dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/11/2007, 13h54
  3. Réponses: 6
    Dernier message: 13/10/2006, 15h56
  4. [VBA-E] ComboBox en cascade avec correspondance dans matrice
    Par ViperSpy dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/06/2006, 17h01
  5. Delete cascade --> problème de temps de traitement
    Par celine31 dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 11/01/2006, 12h03

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