Actualisation de listbox dans un usf
Avé le forum,
Dans ma Quête de Maîtrise d'Excel et Vba, je cherche le moyen d'actualiser dans un USF, toutes les listbox en fonction d'une combobox...
Je m'explique: J'ai un tableau (B5:F17) de 5 colonnes (NOM, Type, date début,Date Fin, Montant)
l'USF en question a pour but de changer une ou plusieurs données de ce tableau.A son ouverture, je choisis dans la premiere combobox le Nom (ça j'ai pu le faire), et je voudrais que les 4 listbox qui suivent affichent le Type, la Date de début, la date de Fin et le Montant figurant sur la même ligne que le Nom dans le tableau en question( ça j'ai PAS pu le faire, et c'est très énervant)
Merci à ceux et celles qui peuvent m'accompagner dans ma quête du Saint Excel
D'ailleurs je remercie encore ceux qui ont déjà voulu m'accompagner jusque là, c'était pas gagné
J'attends de vos nouvelles
Bonsoir,
Pas facile sans fichier. Mais bon un essai :
Private Sub Cbx_CLIENTS_Change()
Usf_Intervention.COMMUNES = Range("BO" & Usf_Intervention.Cbx_CLIENTS.ListIndex + 2)
End subAvec
Cbx_clients = nom de la combobox dans l'USF
USF_Intervention = Nom de l'USF
communes : nom de la rubrique (textbox) dans l'USF où l'on va mettre les données
Range BO : Référence de la colonne
le +2, on commence sur la deuxième ligne du tableau. Ici juste en dessous du tttre de colonne.
A te lire
Dan
Avé le forum
Merci de te pencher à nouveau sur mes lacunes exceliennes
J'ai dû mal adapter cette macro, ou manquer de clarté dans mon énoncé (ou les deux)
J'aurais effectivement dû joindre un fichier...C'est chose faite à présent.Tu vas retrouver le fichier sur lequel tu as travaillé récemment, avec du code en plus...Ne fais pas attention au bazar (dans le code) je n'ai pas eu le temps de ranger...l'USF en question s'appelle EchModif.
Merci again and again
https://www.excel-pratique.com/~files/doc/4LyTdParametres_exemple2.xls
Bonjour,
En faisant ce que Myta te dit, ta macro deviendrait ceci :
Private Sub ListNomEch_Change()
EchModif.TextBAncNomEch = Range("C" & EchModif.ListNomEch.ListIndex + 6)
End SubLe 2 doit être changé en 6 comme je te l'ai expliqué avant.
A te lire
Dan
Avé le forum
Bonjour à Myta et Nad-dan,
Merci pour ces réponses ultra-rapides.En mélangeant vos deux suggestions, j'ai trouvé ceci :
EchModif.TextBAncNomEch = Cells((6 + ListNomEch.ListIndex), 2)
EchModif.TextBAncTypEch = Cells((6 + ListNomEch.ListIndex), 3)
EchModif.TexttBAncDAteD = Cells((6 + ListNomEch.ListIndex), 4)
et ainsi de suite pour chaque textbox (et non pas listbox,merci myta pour ton intervention judicieuse) jusqu'à la column 6 de Cells
Je vais pouvoir continuer l'élaboration de mon USF grâce à vous
A bientôt et merci encore.