Discussion :

[TonyRc]

Bonjour,

Voici un fichier de suivi de production concernant divers matériaux en cours de fabrication.

J'ai utilisé la formule des combobox conditionnelles en cascade

Les 3 premières combobox sont impeccables et fonctionnent correctement.

Par contre, la 4eme et la 5eme combobox ne fonctionne pas.

En regardant de plus prés, la macro ne considère pas la référence de la colonne H. La cible reste "1" dans la 4eme combobox.

Est-ce que vous pourriez m'aiguiller sur une résolution du problème?


Merci de votre soutien,
Cdlt,

[TonyRc]

Pour la 4eme colonne, ceci vient de la declaration Cible as "Variant"

Il me reste la 5eme colonne a comprendre. La macro deroule toute la liste, plutot que la selection precisement liee a la combobox4.

[PMO2017]

Bonjour,

Le problème doit provenir de l'interprétation par Excel du type de la donnée, tantôt il interprète une String, tantôt un Numeric.
La variable Cible, quant à elle , est lue comme type String par le VBA.

Essayez d'intercaler, dans votre code, l'instruction marquée par des ####

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
    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 IsNumeric(Cible) Then Cible = CLng(Cible) '######################
 
            If Ws.Range("F" & j).Offset(0, CbxIndex - 2) = Cible Then
                Obj = Ws.Range("F" & j).Offset(0, CbxIndex - 1)
                If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("F" & j).Offset(0, CbxIndex - 1)
            End If
        Next j
   End If

[TonyRc]

Excellent!

Une idée pour la combobox5 ?

Par exemple, la sélection suivante: A1/GG/17/R/ COULEUR

La macro affiche toute les sélections possibles alors qu'il ne devrait y avoir que la couleur "WHITE".


Dans le même temps, la macro est lente lors de la sélection des informations sur "userform". Il existe-il un moyen d'améliorer la vitesse?