Discussion :

[Aurel.89]

Bonjour tous le monde!

Alors voilà, j'ai une Useform1 avec 2 ComboBox.

En fonction du contenu de la première, le contenu de la deuxième évolue.
La première ComboBox récupère ses données en feuille "Bibliothèque" Colonne B
La deuxième ComboBox récupère ses données en feuille "Bibliothèque" Colonne C

Juste en dessous, j'ai un intitulé (Label3).
J'aimerais que le contenu de cette intitulé soit fonction des 2 premières ComboBox (récupèrer les données en feuille "Bibliothèque" Colonne D). Et que le contenu soit mis à jour instantanément en fonction des sélections des ComboBox (et de préférence sans cliquer sur l'intitulé).

Ma première idée, qui s'avère ne pas mettre à jour l'intitulé, a été de lier 2 cellules à mes combobox.

Code :

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

1
2
3
4
5
 
Sheets("Résultats").Select
 
Range("B9") = ComboBox1.Value
Range("C9") = ComboBox2.Value

Puis d'entrer dans une cellule annexe (B2) la formule

Code :

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

1
2
 
{=INDEX(Bibliothèque!D$1:D$500;EQUIV(1;(Bibliothèque!$B$1:$B$500='Résultats'!$B9)*(Bibliothèque!$C$1:$C$500='Résultats'!$C9);0))}

Ca marche!

Puis entrer comme Caption de mon intiltulé Label3 la cellule qui contient la formule précédente.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Label3_Click()
 
With Sheets("Résultat")
    Label3.Caption = .Range("B2")
End With
 
End Sub

Tous ça fonctionne, mais le hic:
- Il faut fermer la Userform1 pour que les case liées au ComboBox se remplissent.
- Il faut réouvrir la UserForm et cliquer sur l'intitulé pour qu'il se mette à jour.

Est-il possible de simplifier cette procédure en supprimant les cellules liées aux Combobox?
Intégrer la formule =Index en code VBA ou bien faire autrement?

Merci d'avance pour vos idées ++

[Fvandermeulen]

Salut,

Pour commencer tu peux mettre un évènement sur ta combobox2, l'évènement sera AfterUpdate, c'est là que tu pourras mettre la procédure que tu as détallée.

En ce qui concerne la simplification, est-ce que la valeur de la colonne D que tu veux utiliser correspond à la ligne de la colonne C (donc de ta combobox) ?
En fait quel est cette valeur ?

A+

[Aurel.89]

Oui, la ligne de la colonne D correspond à la ligne de la colonne C.
Dans la colonne C c'est du texte, un commentaire en fonction du choix des Combobox.

Mon objectif principal est que l'intitulé se remplisse directement après les choix effectués dans les 2 Combobox. Sans avoir à fermer la UserForm ou cliquer sur l'intitulé.
Je suis donc pas sur que ma méthode soit la bonne car elle oblige à passer par la feuille résultat

Merci de ton aide ++

[Fvandermeulen]

Re,
Je t'avoue avoir un peu de mal à visualiser ta structure dans tes colonnes, mais comme tu dis que tes combo sont dépendantes j'imagine qu'on ne peut pas faire de "liaison" entre les lignes de la feuille et les lignes de la combo2.
J'entends par là que, par exemple, la ligne 5 de la combo2 ne correspond pas toujours à la 5 de la feuille...

Par contre, en imaginant que tu as nommé tes plages on doit pouvoir utiliser un .Find pour récupérer la valeur souhaitée dans la colonne D.
Ceci affecté à une variable évite de passer par une formule dans la feuille.

Dis moi si je suis dans le bon et si mes explications t'éclaire...sinon, met ton fichier en pièce jointe pour autant qu'il n'y ai rien de confidentiel.

A+

[Aurel.89]

Je met mon fichier en pièce jointe^^, ça va être plus clair.

Je l'ai allégé au max pour en simplifier la compréhension.

[Aurel.89]

Hey,

Et bien après essai:

L'intitulé (label) se met bien à jour en fonction du choix des Combobox, mais il renvoi à la cellule B2 de la feuille "data". Or cette cellule B2 se remplit uniquement lorsque j'ai cliqué sur mon bouton "Résultat" de ma userform.
Donc tant que je suis dans ma userform et que je rempli mes ComboBox, La case B2 reste égale à 0, donc l'intitulé affiche 0.

Je cherche une méthode qui ne demanderait pas de renvoi dans une cellule, mais qui ferait instantanément la recherche en fonction des ComboBox.

Si vous avez d'autres idées sur comment faire je suis preneur!

[Fvandermeulen]

Re,
Je suis à nouveau au bureau donc sans 2007...

Intègre la procédure de calcul dans le "Comboox9_Change", ça devrait la faire.

A+

[Aurel.89]

Hum,
Question bête, j'intègre de quel manière la formule sous forme de code?
Je suis débutant^^ et je trouve pas dans la FAQ

En tous cas merci de ton aide, et si tu veux je peux le convertir en 2003^^

++

[Fvandermeulen]

Au vu du code, je ne te pensais pas si "débutant"

Donc pourquoi pas convertir le fichier ce sera plus facile, j'avais la flemme hier (un peu trop tard pour moi )

A+

P.S. supprime le fichier 2007 joint pour ne pas alourdir inutilement le forum

[Aurel.89]

On m'a bien aidé pour sur ce forum

Je joint donc mon fichier en version 2003 (J'espère ne pas m'être trompé de format)

++

Edit: Ce coup ci ça devrait être bon! =)