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

Bonjour,

voir ceci:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F

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!

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à!

Erreur '380'

Impossible de définir la propriété Listindex. Valeur de propriété non valide

AHHHHHHHHHHHHHHH

 Sheets("aa").Select

La feuille où se trouve les données se nomme bien aa?

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!

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!!!

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à

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