Valider deux choix dans un UserForm

Bonjour à tous et à toutes,

J'utilise un UserForm à choix multiple,

4 colonnes de listes avec des sous-listes

Exemple : A,B,C,D et sous listes A1,A2,A3....etc

mon souhait serait de pouvoir sélectionner et afficher sur la feuille les deux chois, soit : A et en-dessous A3

Voir le fichier joint.

Merci de jeter un oeil sur ce fichier qui doit servir pour un membre de ce forum.

Amicalement

Pierrot

Bonjour,

Code du bouton OK :

Private Sub OK_Click()

    Dim Cel As Range

    With Worksheets("Listes")

        Set Cel = .Cells(.Rows.Count, ComboBox_Pays.ListIndex + 9).End(xlUp).Offset(1, 0)

    End With

    Cel.Value = TextBox_Choix.Text

End Sub

Hervé.

Bonjour Hervé

merci de ta réponse, mais je ne trouve pas de changement , le résultat est toujours le dernier choix, je vais travailler avec deux UF.

Merci et bonne soirée

Pierrot

Bonsoir Theze,

je suis désolé de t'avoir confondu avec Hervé, j'avais vu son nom en bas du message.

Je le répète, je ne vois pas de changement avec ta méthode, je n'affiche que le dernier choix opéré.

Je vais utiliser deux UF.

Bonne soirée et encore merci

Pierrot

Bonjour,

mon souhait serait de pouvoir sélectionner et afficher sur la feuille les deux chois, soit : A et en-dessous A3

J'ai probablement mal compris ta demande dans ce cas !

Mon code inscrit, dans la colonne correspondante du tableau encadré rouge (soit A dans ta demande ci-dessus), le choix final fait dans la liste, choix qui est reporté dans le TextBox soit (A3).

Si ce n'est pas ce que tu souhaite, il faudrait un peu plus d'explications.

Hervé.

Bonjour Pierrot,

Private Sub OK_Click()
       ActiveCell = ComboBox_Pays.Value
       ActiveCell.Offset(1, 0).Select
       ActiveCell = ListBox_Villes.Value

End Sub

Bonjour et1000lio,

Un tout grand merci, c'est génial et de plus, ça fonctionne.

passe un bon W-E et amitiés

Pierrot