Discussion :

[Nonno 94]

Bonjour le Forum,

j'ai besoin de votre aide pour modifier le code ci-dessous afin de récupérer dans la cellule [F1] la valeur saisie dans une ComboBox contenant une liste déroulante et insérée dans un UserForm.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CmbList1_Nom()
 
USFListe.Show       'test
 
[F1] = USFListe.CmbListe1.Value
 
End Sub

Avec ce code "bricolé", j'affiche l'UserForm, je saisis une valeur de la liste mais ne récupère pas la valeur saisie dans la cellule [F1].

Je vous remercie pour vos réponses et vous souhaite un bon après-midi.
Cordialement.

Nonno 94.

[Daniel.C]

Si l'utilisateur a spécifié "UnLoad Me" pour fermer l'userform, les valeurs saisies sont perdues. Deux syntaxes sont possibles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[F1] = USFListe.CmbListe1.Value
UnLoad Me

à mettre dans l'userform; soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Hide

dans l'userform à la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UnLoad Me

L'userform n'est pas déchargé, c'est à dire qu'il conserve les valeurs saisies. Et ta macro devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CmbList1_Nom()
 
USFListe.Show       'test
 
[F1] = USFListe.CmbListe1.Value
 
Unload USFListe
 
End Sub

[Nonno 94]

Bonsoir Daniel.C,

vos deux propositions me conviennent mais je ne récupère toujours pas les valeurs saisies dans les 2 Combobox(es) dans les cellules [F1] et [G1] de la feuille active !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[F1] = USFListe.CmbListe1.Value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[G1] = USFListe.CmbListe2.Value

Peut-être est-ce impossible ?

Cordialement.

[Daniel.C]

Regarde un exemple sur le classeur joint.

[Nonno 94]

Merci pour ce fichier dont je m'inspirerai pour modifier le mien dès que j'en aurai la possibilité en début de semaine prochaine j'espère !

Je vous tiendrai informé de mes "avancées".
Bonne fin de semaine et à bientôt.

[Nonno 94]

Bonjour Daniel.C,

comme promis, je vous joins le fichier modifié avec votre aide. Il correspond parfaitement à ma demande mais me pose un problème que je ne parviens pas à résoudre et que je vous soumets.
Il concerne la variante "sélection par le nom".

Dans cette variante, si le 1 er nom est sélectionné en déroulant la liste, le nom proposé pour la 2 ème valeur est bien le suivant dans l'ordre alphabétique.

Par contre, si pour sélectionner le 1 er nom, je saisis son initiale puis le sélectionne, le nom proposé pour la 2 ème valeur sera le 2 ème de la liste commençant par la même initiale et donc antérieur au 1 er dans l'ordre alphabétique si le 1 er sélectionné n'est pas le 1 er de la liste commençant par cette initiale.

Exemple :
Si le 1 er nom sélectionné en saisissant son initiale (L) est L'Oréal, le nom proposé pour la 2 ème valeur sera : Lagardère S C qui est le 2 ème nom de la liste commençant par L alors que le nom proposé aurait dû être LVL Médical qui suit l'Oréal par ordre alphabétique dans la liste.

Si L'Oréal avait été sélectionné directement dans la liste, LVL Médical aurait bien été proposé pour la 2 ème valeur.

Existe-t-il une solution ?

Cordialement.
Nonno 94.