XL 2019 choix multiple entre fournisseurs diffèrent et tarifs différents

[eric123]

Bonjour a toutes et tous,
J'espère trouvez une aide pour un fichier de suivi des couts de formation.
le besoin: si je sélectionne un centre de formation dans la colonne A2 ou 3 ou 4.. la colonne d'a coté B 2 ou 3 ou 4 me donne la possibilité de choisir le catalogue de formation désiré et la colonne C le tarif associé a la formation vendu par le centre formation.
en PJ en fichier de ma recherche si un boss aurai une solution.
Merci a tous et bonne soirée,
Eric,

 

[goube]

Bonsoir,
Une proposition avec des tableaux structurés, des cellules nommées, la fonction indirect et une macro pour vider le champ formation suite au changement du centre.
Cordialement.

 

[eric123]

Bonsoir,
Une proposition avec des tableaux structurés, des cellules nommées, la fonction indirect et une macro pour vider le champ formation suite au changement du centre.
Cordialement.

Bonjour Goube,
Merci,
Et comment fait-on pour ajouter des centres de formation en supplément ?

 

[goube]

Bonjour,
Il suffit de saisir les données à la suite des autres sur le tableau concerné.
Avantage des tableaux structurés.
Cordialement
Un peu de doc
https://www.excel-pratique.com/fr/astuces/tableau-structure

 

[cp4]

Bonjour, @eric123 ,@goube

@eric123 : Via formulaire

 

[eric123]

Bonjour,
Un grand merci à vous 2.
Bon week-end,

 

[eric123]

CP4,
une question, si je veux étendre à d'autres colonne je modifie le code de quelle façon ?
Bonne Soirée

 

[cp4]

CP4,
une question, si je veux étendre à d'autres colonne je modifie le code de quelle façon ?
Bonne Soirée

code ci-dessous et en agrandissant le formulaire en largeur

Private Sub Bt_Valider_Click()
   Dim Lig As ListRow
   If ListBox1.ListIndex = -1 Then MsgBox "Choisissez un centre de formation!": Exit Sub
   Set Lig = Sheets("stagiaires").ListObjects("TbStage").ListRows.Add()
   Lig.Range.Cells(1).Value = TextBox1
   Lig.Range.Cells(2).Value = ListBox1.List(ListBox1.ListIndex, 0)
   Lig.Range.Cells(3).Value = ListBox1.List(ListBox1.ListIndex, 1)
   Lig.Range.Cells(4).Value = CCur(ListBox1.List(ListBox1.ListIndex, 2))
   ' pour les autres colonnes comme lignes ci-dessus en adaptant les numéros

MsgBox "Transfèrt terminé!"
   Unload Me
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3 'nb colonnes titre à adapter
ListBox2.ColumnCount = 3 ' nb colonnes données à adapter
ListBox1.List = Range("tbcout").Value
ListBox2.List = Range("tbcout[#Headers]").Value
TextBox1.SetFocus
End Sub

Bonne journée

 

[eric123]

Bonjour a tous,
Merci cp4, je vais avoir une longue liste de centres de formation et panel de formations.
dans l'userForm, il est possible d'avoir la possibilité de recherche par début de nom recherche intuitive des les premières lettres écrites ? ?
Bon dimanche a tous,

 

[cp4]

Bonsoir,
Ton fichier en retour. Un site avec plein d'exemples de Feu Jacques Boisgontier (Repose en Paix).
http://boisgontierj.free.fr/

 

[eric123]

Bonjour cp4 un grand merci !
oui cela à l'air bien documenté mais je ne suis un novice.

 

[cp4]

mais je ne suis un novice

Nous avons tous étaient novices. Il faut bien apprendre à devenir autonome

 

[Staple1600]

Bonsoir le fil

[Question existentielle du dimanche soir, juste avant le film]
Est-ce qu'un XLDNaute inscrit sur le forum depuis le 4/12/2005 peut se qualifier de novice ?
Si oui, comme est-ce possible?
Faille spatio-temporelle ?
Abuction par des extraterrestres vers la planète CandyCrush ?
[/Question existentielle du dimanche soir, juste avant le film]

PS: Post écrit avec un crayon à mine amicalement humoristique.
Donc tout va bien

 

[cp4]

Bonsoir le fil

[Question existentielle du dimanche soir, juste avant le film]
Est-ce qu'un XLDNaute inscrit sur le forum depuis le 4/12/2005 peut se qualifier de novice ?
Si oui, comme est-ce possible?
Faille spatio-temporelle ?
Abuction par des extraterrestres vers la planète CandyCrush ?
[/Question existentielle du dimanche soir, juste avant le film]

PS: Post écrit avec un crayon à mine amicalement humoristique.
Donc tout va bien

Bonjour @Staple1600 ,

Je t'avoue que je n'ai pas eu le réflexe de vérifier depuis quand @eric123 fait partie des membres d'XLD.
Depuis un moment, en effet beaucoup de gens viennent sur ce forum pour une prestation de service à l’œil.
Je ne suis pas au top, mais j’essaie d'aider avec tout ce que j'ai pu apprendre et retenu sur ce forum.
Je ferai plus attention la prochaine fois et limiterai mon aide juste à la question posée.
Merci d'avoir attiré mon attention.

Bonne journée.