Afficher valeurs d'une colonne dans la comboBox d'un formulaire Fermé

Question

Bonjour, 
J'ai créée un formulaire de consultation. Je souhaiterais qu'à l'ouverture du formulaire, dans une combobox, il s'affiche les données d'une colonne présente sur une autre feuille.
mais après avoir effeuillé les aides sur le net et essayer divers codes, je bloque.
Merci d'avance pour votre aide!
Izou3165
Configuration: Configuration: Windows / Chrome 56.0.2924.87

cs_Le Pivert · Answer

Bonjour,
voir ceci:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F

Izou3165 · Answer

Merci pour ta réponse, mais cela ne fonctionne pas.
Mon tableau est dans une autre feuille, je l'appelle avec With Sheets("aa"). et après j'arrive pas à récupérer les données présentes dans la colonne A, à partir de la ligne 8) de cette feuille; et de tout lister dans ma fameuse combo box!

cs_Le Pivert · Answer

en suivant l'exemple donné:
Private Sub UserForm_Initialize()
 Dim j As Integer
     Sheets("aa").Select
    'Récupère les données de la colonne A...
    For j = 8 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A8" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
  ComboBox1.ListIndex = 0
End Sub
 
voilà!

Izou3165 · Answer

Erreur '380'
Impossible de définir la propriété Listindex. Valeur de propriété non valide
AHHHHHHHHHHHHHHH

cs_Le Pivert · Answer

Sheets("aa").Select 
La feuille où se trouve les données se nomme bien aa?

cs_Le Pivert · Answer

On ne nous dit pas tout!!!!!!!!!!!!!!
Private Sub UserForm_Initialize()
 Dim j As Integer
  Sheets("Base_de_donnees").Visible = True
     Sheets("Base_de_donnees").Select
    'Récupère les données de la colonne A...
    For j = 8 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A8" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
  ComboBox1.ListIndex = 0
   Sheets("Base_de_donnees").Visible = False
End Sub
 
sans  les tenants et aboutissants, on va dans le mur!

Izou3165 · Answer

Ca fonctionne merci!! 
Mais je me rend compte qu'avec cette logique, je n'arrive pas à mon aboutissant qui est, lors de la sélection de cette fameuse ligne, je clique sur OK et "normalement" des données doivent s'afficher ,des cases se cocher en fonction du contenu de la ligne.
mais merci beaucoup!!!

cs_Le Pivert · Answer

Dans le lien que je t'ai donné, il y a cela:
Private Sub CommandButton1_Click()
    MsgBox ComboBox1.Value
End Sub 
donc en fonction de la ligne cliqué, c'est a toi de mettre le code qui correspond!
si combobox1.Value = "toto" alors
je mets "bonjour" sur la ligne 4 et je coche cette ligne
fin de si
pour avoir le code qui correspond, sers-toi de l'enregistreur de macro en faisant exactement ce que tu veux.
voilà

Izou3165 · Answer

En fait c'est beaucoup plus compliqué.
J'ai mi sen place un formulaire à remplir avec différents cases text, des check box et optionbutton. Lorsque le formulaire est rempli, les données sont reportées sur le ligne  de la fameuse feuille Base de donnees.
Le but de ce second formulaire est de lire ces données avec un nouveau formulaire quasi identique au premier, qui n'a la vocation que de consultation. En venant chercher la réf d'un objet ça vient renseigner tous le champs (checkbox textbox et optionbutton).
COmpliqué hihihhi

Afficher valeurs d'une colonne dans la comboBox d'un formulaire

9 réponses

Discussions similaires