Sélection de plusieurs choix d'une liste déroulante dans un

Bonsoir à tous

J'ai cherché et trouvé sur le forum des dizaines de réponses mais toutes font références à des listes de validation,

Ce n'est pas ce que je cherche

Mon souhait, c'est d'ouvrir une liste déroulante avec un 1er choix, qui me donne accès à un 2ème choix

Je souhaite que les deux valeurs s'insèrent dans mes cellules de tableau.

Voir le fichier joint

Merci d'avance de m'aider encore une fois

Amicalement

Pierrot

bonjour

ici plusieurs suggestions

http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm

je ne comprends pas ce que ta question a de particulier qui ne se trouve déjà sur internet...

Bonjour Pierre,

Ton fichier en retour

A+

Bonsoir, frangy, jmd

Merci à vous deux de votre aide, ceci dit, la réponse de frangy me convient mieux

celle de jmd, m'a appris beaucoup de chose sur Boisgontier

encore merci et bonne soirée à vous deux

Amitiés

Pierrot

Bonjour frangy,

Je souhaiterais une modification du code que tu m'as fourni hier,ce code fonctionne parfaitement

dans les cellules de la feuille, mais je désire que ces valeurs soit affectées à des TextBox fans le formulaire

je ne vois pas quoi changer dans le code ?

merci de m'aider encore une fois

Amitiés

Pierrot

Bonjour Pierre,

Voici ton fichier en retour.

Les TextBox affichent le choix opéré.

J'ai conservé l'inscription de ces choix dans la feuille. Dis-moi si cela correspond à ta demande.

A+

Re bonjour, frangy,

C'est tout bonnement parfait,

maintenant je vais transposer ces code dans mon grand fichier

en réalité, ce code d'exemple va me servir pour déterminer un type de cercueil dans un 1er choix et ensuite les dimensions de ce cercueil dans un 2ème choix, c'est pour cela que les deux choix doivent être afficher.

Un tout grand merci, ça répond parfaitement à ma demande.

Passe un bon week-end

Amitiés

Pierrot

frangy, j'ai crié victoire un peu trop vite,

l'affichage des valeurs sur la feuille active perturbe mon tableau

voir la note sur le fichier joint.

Amitiés

Pierrot

Re-bonjour Pierre,

Voici la partie de code modifiée

Private Sub OK_Click()
Dim LigneC As Long
    If Me.LB_Noms.ListIndex = -1 Then Exit Sub
    LigneC = Range("R" & Rows.Count).End(xlUp).Offset(1).Row
    Range("R" & LigneC) = Me.LB_Noms.List(Me.LB_Noms.ListIndex) 'Nom
    Range("S" & LigneC) = Me.CB_Fonction.Value 'Fonction
    Unload Me
End Sub

A+

Merci beaucoup, frangy,c'est exactement ce qu'il me fallait

Bon W-E

Amitiés

pierrot

frangy, c'est encore moi,

ça fonctionne pour les colonnes R et S, mais je n'arrive pas à sélectionner la bonne feuille

la feuille "Fiches Convoi"

avec toutes mes excuses

Pierrot

Private Sub OK_Click()
Dim LigneC As Long
    If Me.LB_Noms.ListIndex = -1 Then Exit Sub
    LigneC = Range("R" & Rows.Count).End(xlUp).Offset(1).Row
    Set Ws = Sheets("Fiches Convoi")  
    Range("S" & LigneC) = Me.LB_Noms.List(Me.LB_Noms.ListIndex) 'Nom
    Range("R" & LigneC) = Me.CB_Fonction.Value 'Fonction
    Unload Me
End Sub

On va y arriver Pierre

Private Sub OK_Click()
Dim LigneC As Long
    If Me.LB_Noms.ListIndex = -1 Then Exit Sub
    With Worksheets("Fiches Convoi")
        LigneC = .Range("R" & Rows.Count).End(xlUp).Offset(1).Row
        .Range("R" & LigneC) = Me.LB_Noms.List(Me.LB_Noms.ListIndex) 'Nom
        .Range("S" & LigneC) = Me.CB_Fonction.Value 'Fonction
    End With
    Unload Me
End Sub

A+

frangy,

maintenant, c'est parfait

merci beaucoup pour ton aide et ta disponibilité

Amitiés sincères

Pierrot

Bonjour à toutes et tous,

Je poursuis ce fil, sachant que j'ai repris certains code des feuilles échangées ici pour mon travail en cours.

là où je pêche :

- j'aimerais que les "services" précédemment sélectionnés restent si je dois compléter la cellule,

En effet, si seul un service est déjà sélectionné, il reste en surbrillance dans la liste déroulante. à partir de 2, si je sélectionne un nouveau service dans la liste, la cellule se réinitialise...

- j'aimerais intégrer la deuxième liste dans la colonne d'à côté (il n'y a pas de rapport de logique entre un service et un chef de service "prénom".

J'avais trouvé une feuille de calcul hier, mais impossible de remettre la main dessus !!!

Merci de vos retours.

Bien cordialement,

Stéphane.

Bonjour Stéphane,

Ce n'est pas bien de squatter le post d'un camarade de jeu.

Sans chercher plus loin, j'ai simplement reproduit l'élaboration de la liste avec la même logique.

A+

Bonsoir à toutes et tous.

Ma démarche n'avait rien d'un Bernard L'Hermite ! La prochaine fois, j'ouvrirai donc un post spécifique !

Merci pour ce retour ! Je n'ai que Open Office à la maison, je verrai donc la semaine prochaine ce qu'il en est...

En effet, avec open office, les macros ont un peu de mal...

Merci !

Stéphane.

Bonjour à toutes et tous.

Tout d'abord, pardon Pierre, d'avoir squatté ton post, qui ressemblait à ma demande... Promis, je ne le ferai plus !

Ensuite, merci Frangy, c'est tout à fait ce qu'il me fallait !

En analysant les formules, je vois où il me fallait poursuivre mes demandes. Merci !

cet exercice m'invite à continuer à bosser en ce sens !

Merci encore, et à bientôt dans d'autres posts (évidemment).

Stéphane.