liste déroulanle Fermé

Question

Bonjour,
Je vien de trouver cette formule

Private Sub UserForm_Initialize()
ComboBox1.List = Range("listresp1").Value
End Sub

Cette formule fonctionne que pour une seule liste
Or dans ma userform, J'ai 3 combobox ou j'intègre 3 listes ecxel différentes, donc avec cette formule cela ne fonctionne pas.

Est-ce que quelqu'un pourrait m'éclaircir sur cette formule svp.

Merci

Polux31 · Answer

Bonjour,

Et si tu fais ça :

Private Sub UserForm_Initialize() 
   ComboBox1.RowSource = Range("listresp1").Value 
   ComboBox2.RowSource = Range("listresp2").Value
   ComboBox3.RowSource = Range("listresp3").Value
End Sub 

Ca ne marche pas ???

;o)

dim1403 · Answer

Bonjour

Non ca ne marche pas.
Il m'indique une erreur d'execution de type 13 et je ne sait pas se que cela veut dire.
Est-ce moi qui ai fait une erreur?

Polux31 · Answer

re

Tu as la réponse là ...j'ai répondu trop vite au 1er post. Dsl

Private Sub UserForm_Initialize() 
   ComboBox1.RowSource = "Feuil1!listresp1"
   ComboBox2.RowSource = "Feuil1!listresp2"
   ComboBox3.RowSource = "Feuil1!listresp3"
End Sub 

Bonne continuation

;o)

dim1403 · Answer

c'est bon j'ai trouvé

Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Feuil1!liste1"
Me.ComboBox2.RowSource = "Feuil1!liste2"

C'est un mélange des 2 codes que tu a mis sur mes autre msg

Je te remercie pour ton aide

dim1403 · Answer

Bonjour

J'ai un autre problème
Quand j'ouvre mon programme, mon 1er UserForm s'affiche. Lorsque l'on clique sur suivant, mon deuxième UserForm s'affiche et mon 1er se ferme. Or lorsque je revien au 1er par l'intermédiaire du bouton précédent je perd toutes mes données.

Y-aurait il un moyen de sauvegarder ces données?

Je peux vous mettre à disposition mon fichier si vous le voulez.

Merci

Polux31 · Answer

re,


Oui mets ton fichier sur cjoint.com et copie/colle le lien ici. Je vais y jeter un oeil.

;o)

Liste déroulanle

6 réponses

Discussions similaires