Liste déroulante et combobox

Bonjour,

Je cherche à faire apparaitre dans un useform la liste déroulante présente en feuil 2.

Cette liste est disponible en a6 (ce serra la même sur l'ensemble de la colonne A par la suite).

Si la case en A6 est déjà sélectionnée (par exemple "NEIGE"), j'aimerais que l'ouverture de USEFORM indique directement "NEIGE"

dans la combobox.

Est ce possible ?

Ci-joint un petit fichier si besoin.

Merci de votre aide.

COrdialement.

Bonjour,

Il faut que ce soit Feuil2 la feuille active:

Private Sub UserForm_Initialize()
   Me.ComboBox1.List = Range("B2:B5").Value
   Me.ComboBox1 = ActiveCell
End Sub

Boisgontier

bonjour,

De manière (très) rudimentaire on pourrait voir la chose comme en pièce jointe

Nota : la liste est nommée "Démo" dans le Gestionnaire de nom

EDIT : Bonjour jb (Je suis toujours incapable de lire le message d'avertissement quand quelqu'un répond entre temps ! !

A+

Bonjour,

Pour la solution de Monsieur Boisgontier, j'ai bien le renvoi de l'information dans le combobox.

En revanche quand je viens sur le combobox, il est vide, je n'ai pas les choix de la liste en feuille 2.

Qu'est ce que j'ai loupé ?

Bonjour abricot, bonjour à tous

A VOIR

Bonne soirée

Bonjour,

Pour la version de Monsieur GALOPIN il ne me renvoi pas l'information dans le combobox lorsqu’il y a déjà une information

Par exemple lorsque la case en a6 est déjà sélectionnée "PLUIE", le combobox affiche "SOLEIL".

Bonjour.

Pour la version de Patty

Le useform renvoi toujours sur "neige" au lieu de renvoyer la valeur indiquer dans la case.

Bonjour

Excuse, j'avais compris le problème différemment

Voilà :

Private Sub UserForm_Initialize()
DLig = Sheets("Feuil2").Range("B65536").End(xlUp).Row
ComboBox1.List = Application.Transpose(Sheets("Feuil2").Range("B2:B" & DLig))
ComboBox1.Value = Range("A6").Value
End Sub

Encore DSL

Bye

cf PJ

Boisgontier

Merci Tout fonctionne et j'ai pu avec un peu de temps adapter le code.

Ce fut long mais c'est bon.

Passons à la suite pour d'interminable nuits blanches.

Merci .

Bon courage pour la suite

Dors un peu de temps en temps tout de même LOL