Gerer 3 ListBox grace a un ComboBox

*Bonjour,*

J'ai une petit programme à réaliser,
Je me suis créé un tableau excel où est répertorié tous les éléments nécessaires pour alimenter le programme. Ne m'y connaissant pas en VBA, j'éssais de me dépatouillé graçe aux discutions du forum. Mais là je suis bloqué.
Je me suis crée la base graphique du programme graçe à :
- un comboBox
- et trois listBox
Dans la comboBox je peux choisir dans une liste déroulante 8 objets differents. Ces objects ont des caracteristiques differents (age, lieu de disposition et taux de défaillance) d'où les trois listBox.
Que dois-je faire pour que quand je choisis un des 8 objects (qui sont dans mon tableau Excel dans la colonne A, lignes 2à9), apparaissent les données des colonnes B,C, et D (de la ligne de l'objet choisit)?
Merci d'avance pour vos réponse.
Clément

Salut et bienvenue sur le forum,
J'ai supposé les objets de A1 à A8, donc la RowSource.
Si j'ai bien compris, tu ne veux que récupérer le contenu des colonne B, C et D de la ligne équivalente à l'objet, je me suis donc permis d'utiliser des TextBox au lieu de Listbox:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ComboBox1_Change()   Nligne = UserForm1.ComboBox1.ListIndex + 1   UserForm1.TextBox1 = Sheets("Tafeuil").Cells(Nligne, 2) 'récupère la donnée de la colonne B UserForm1.TextBox2 = Sheets("Tafeuil").Cells(Nligne, 3) 'récupère la donnée de la colonne C UserForm1.TextBox3 = Sheets("Tafeuil").Cells(Nligne, 4) 'récupère la donnée de la colonne D   DoEvents   End Sub

---

A toi d'dapter le nom de la feuille et le nom des forms...

A+

Salut
A moi que ce soit pour au final utiliser une UserForm, je ne suis pas sur que VBA soit utile ici, pourquoi ne pas utiliser une liste déroulante via une validation de cellule et faire une rechercheV dans le tableau pour retourner tes 3 valeurs en Fct° de l'entrée choisi dans la liste déroulante (celle faite avec la validation)?

Mais peut être que je passe a coté d'un détail, car moi non plus, je ne vois pas l'intérêt ici du ListBox.
A++
Qwaz

Un grand merci à vous, ca fonctionne correctement.
Pour l'explication détaillé, le directeur de ma formation en Licence d'électricité générale ma demandé de travailler sur la création d'un logiciel en VBA sur Excel 2007, qui doit répertorie une documentation de transformateurs. Donc je n'avais en aucun cas la flexibilité d'accepter ou non, de travailler sur un autre logiciel. Mais avec mon tout petit niveau en informatique, ca a était une bel découverte. Assez rude à mon goût. Mais âpres un petit mois de "bidouille" (tel est le mots), j'arrive plutôt bien à m'en sortir. Merci encore pour votre aide qui m'a était très importante!

Une petite dernière question,
En feuil2 Excel, J'ai organisé le rendement et le MTBF (une autre donnée) en fonction de la température (en piece jointe une partie du tableau Excel) :

Dans la suite de mon programme j'insère une combobox :
- choix température.
et en dessous deux textbox :
- Rendement ;
- MTBF.
Cela doit, en fonction de la réponse donné précédemment par la combobox "choix du transformateur" (géré dans les mails précédent), afficher dans les 2 textbox le rendement et le MTBF du transformateur choisit.
exemple : On choisit le transfo3 (il est situé a LOUDUN), il s'affiche dans la textbox n°1, jusqu'a la ca fonctionne chez moi. Puis on choisit la température, par exemple 10° (A8) ca devrait m'afficher les résultats (case : F8 et G8)
J'ai essayé par moi même, je vous montre mais c'est complètement faux :

Code:

---

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

Private Sub TEMPERATURE_Change() LIEU2.Value = [Feuil2!B1] 'Si la valeur dans la textbox "LIEU2" correspond à ce qu'il y a dans la case B1 feuil2 Excel; Alors Nligne = .....) sinon continuer. Suis-je sur la bonne voie??? Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 3) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 4) LIEU2.Value = [Feuil2!D1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 5) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 6) LIEU2.Value = [Feuil2!F1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 7 UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 8) LIEU2.Value = [Feuil2!H1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 9) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 10) LIEU2.Value = [Feuil2!J1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 11) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 12) LIEU2.Value = [Feuil2!L1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 13) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 14) LIEU2.Value = [Feuil2!N1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 15) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 16) LIEU2.Value = [Feuil2!P1] Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 17) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 18) End Sub

---

Merci par avance de votre aide. Clément

Salut
A mon avis il te serait très salutaire de lire des tutoriels afin d'apprendre les principales commandes, comme les boucles with, If, Select case
En gros, pour éviter de retaper sheets("feuil2") partout, tu peux utiliser with, pour eviter les boucle if (que tu as pas utilisé) il serait intéressant ici d'utiliser une "boucle" select case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Worksheets("Feuil2") 'Tout ton code ecrit ainsi Select Case Lieu2.Text Case .Range("B1") Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = Sheets("feuil2").Cells(Nligne, 3) UserForm1.MTBF = Sheets("feuil2").Cells(Nligne, 4) Case .Range("D1") .... ... ..... End Select End With

---

Je n'ai pas regardé ton fichier, ni testé le code.

A++
Qwaz

Merci pour votre réponse, ca fonctionne correctement.
Je me suis trouvé un petit bouquin qui m'a l'air satisfaisant pour continuer mon petit programme.
Je trouve cet outil de travail bien intéressant. Je pense mis mettre quand j'aurais un peu plus de temps. Merci encore et à bientot Clément

Salut
Je me suis dépêché ce matin tu peux alléger un peu en enlevant les références a worksheet("feuil2")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Worksheets("Feuil2") 'Tout ton code ecrit ainsi Select Case Lieu2.Text Case .Range("B1") Nligne = UserForm1.TEMPERATURE.ListIndex + 3 UserForm1.RENDEMENT = .Cells(Nligne, 3) 'ici UserForm1.MTBF = .Cells(Nligne, 4)'et ici Case .Range("D1") .... ... ..... End Select End With

---

a++
Qwaz