Discussion :

[ViperSpy]

Bonjour,

Après avoir parcouru le forum qui a résolu plusieurs de mes soucis, il m'en reste un où je coince.

Mon but est de cascader 2 ComboBox, le choix de la première déterminant les options de la seconde, et que le choix de la seconde affiche dans d'autres cellules, les infos correspondant à ce dernier dans une matrice qui dépend justement de la valeur de la première...
C'était clair ? J'explique, ma première liste correspond au nom d'un budget auquel correspond des sous-budget sélectionnables dans la seconde liste. Le choix de ce sous-budget doit afficher son montant et sa date de validité.

J'ai commencé par utiliser les outils formulaires, là, aucun soucis pour afficher les infos (grâce à la fonction index([matrice];[no_ligne]) ), mais impossible de lier les 2 listes, du coup, je me suis rabattu sur les objets de contrôle.
J'ai donc créé mes 2 ComboBox et dans la première j'ai mis le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ComboBox2_Change()
    ComboBox3.Value = Null
    ComboBox3.ListFillRange = Range("D8").Value
End Sub

"D8" étant ma cellule de référence de ma ComboBox2 pour en afficher le résultat (qui se fait directement contrairement à la liste déroulante des outils formulaire).
Ensuite, dans ma feuille avec mes différentes matrices listant les sous-budget, j'ai nommé chaque matrice avec le nom correspondant du budget afin de pointer directement dessus sans avoir à le mettre en "dur" dans le code. Déjà, s'il y a une autre manière, je suis open, mais ça fonctionne donc...

Mon principal problème est de pouvoir afficher les données correspondant au sous-budget étant donné qu'il n'y a plus de référence d'index du coup, j'ai testé la formule suivante, mais il ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(H8;CONCATENER("Tables!";D8);1)

"H8" étant la cellule de référence de ma ComboBox3 et "Tables" ma feuille avec les matrices.
Evidement, si je peux me passer d'une formule et mettre ça directement dans le code, là, ça m'arrange, mais je ne sais pas comment récupérer les données dans la bonne matrice (même si la seconde ComboBox a sélectionné la ligne).

Voilà, c'est un peu long, mais je voulais être clair.

La question optionnelle, histoire de bien finir, est-il possible de masquer la feuille Tables sans causer de soucis dans les listes déroulantes ?

[Commodore]

j'ai pas très bien compris ton problème, mais pour répondre a ta question optionnelle, oui tu peux masquer la feuille sans causer de souci d'accès aux données.

[ViperSpy]

Mon problème en résumé était de remplacer par du code vba, l'indexation présente dans les outils formulaire et pas dans les outils de controle. Après plusieurs recherche sur le forum et quelques test infructueux (qu'est-ce qu'ils sont pas clair leurs messages d'erreur entre paranthèses...), j'ai trouvé ma soluce... donc si il y en a qui on besoin pour s'en inspirer :

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
Private Sub ComboBox2_Change()
    ComboBox3.Value = Null
    ComboBox3.ListFillRange = Range("D8").Value
End Sub
Private Sub ComboBox3_Change()
    If ComboBox3.Value <> "" Then
        Dim MaFeuille As Worksheet, Reponse As Range, PremAdresse As String
        Dim MonCritere As String
        Dim MonBudget As Range, MaDateBudget As Range, MaMatrice As Range
        Set MaFeuille = Sheets("Tables")
        Set MaMatrice = Sheets("Tables").Range("N2:N10")
        MonCritere = Sheets("Saisie").Range("H8").Value
        With MaMatrice
            Set Reponse = .Find(MonCritere, LookIn:=xlValues)
            If Not Reponse Is Nothing Then
                PremAdresse = Reponse.Address
            End If
        End With
        Set MonBudget = Sheets("Tables").Cells(Range(Reponse.Address).Row, Range(Reponse.Address).Column + 1)
        Set MaDateBudget = Sheets("Tables").Cells(Range(Reponse.Address).Row, Range(Reponse.Address).Column + 2)
        Sheets("Saisie").Range("E9").Value = MonBudget.Value
        Sheets("Saisie").Range("I9").Value = MaDateBudget.Value
        Set Reponse = Nothing
    End If
End Sub

Pour info, les pièges que j'ai rencontré sont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox2_Change()
    ComboBox3.Value = Null
    ComboBox3.ListFillRange = Range("D8").Value
End Sub
Private Sub ComboBox3_Change()
    If ComboBox3.Value <> Null Then

malgré le fait que j'initialise ComboBox3.Value à Null, ce test ne fonctionne pas, il considère toujours le résultat comme faux, en mettant "" à la place, no soucy.
De plus, quand j'ai défini mes range MonBudget et MaDateBudget, il a fallu impérativement que je mette ma référence de feuille dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Saisie").Range("E9").Value = Sheets("Tables").MonBudget.Value

ne fonctionne pas, ce n'est pas une propriété reconnue (ça peut être évident pour ceux qui connaissent, mais je le marque pour info pour ceux comme moi qui débutent).

Voilà, il me reste encore pas mal de boulot, mais le sujet de ce post est résolu, mes autres questions (si je n'en trouve pas les réponses seul) seront sujettent à des post différents.

Merci en tout cas aux auteurs des différents FAQ (celui de J-M RABILLOUD m'a bien aidé) et aux modérateurs qui par leurs réponses orientées aux autres post m'ont permis de saisir (en partie tout du moins) comment aborder mon problème et ainsi le résoudre.