Afficher valeurs d'une colonne dans la comboBox d'un formulaire
Fermé
Izou3165
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
-
Modifié par Izou3165 le 13/02/2017 à 11:26
Izou3165 Messages postés 19 Date d'inscription mardi 15 novembre 2016 Statut Membre Dernière intervention 13 février 2017 - 13 févr. 2017 à 18:42
Izou3165 Messages postés 19 Date d'inscription mardi 15 novembre 2016 Statut Membre Dernière intervention 13 février 2017 - 13 févr. 2017 à 18:42
A voir également:
- Afficher valeurs d'une colonne dans la comboBox d'un formulaire
- Déplacer une colonne excel - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
- Colonne word - Guide
- Additionner colonne excel - Guide
- Figer une colonne excel - Guide
9 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2017 à 12:46
13 févr. 2017 à 12:46
Bonjour,
voir ceci:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
voir ceci:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Izou3165
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 13:41
13 févr. 2017 à 13:41
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!
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
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2017 à 13:49
13 févr. 2017 à 13:49
en suivant l'exemple donné:
voilà!
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
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 16:07
13 févr. 2017 à 16:07
Erreur '380'
Impossible de définir la propriété Listindex. Valeur de propriété non valide
AHHHHHHHHHHHHHHH
Impossible de définir la propriété Listindex. Valeur de propriété non valide
AHHHHHHHHHHHHHHH
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2017 à 16:43
13 févr. 2017 à 16:43
Sheets("aa").Select
La feuille où se trouve les données se nomme bien aa?
Izou3165
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 16:49
13 févr. 2017 à 16:49
elle se nomme "Base_de_donnees"
sans le é mais bien ees
sans le é mais bien ees
Izou3165
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 16:55
13 févr. 2017 à 16:55
Erreur 1004 La méthode select de la classe Worksheet a échoué
J'ai peut eêre oublié de préciser que cette feuille es tmasquée et doit le rester...
J'ai peut eêre oublié de préciser que cette feuille es tmasquée et doit le rester...
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2017 à 17:05
13 févr. 2017 à 17:05
On ne nous dit pas tout!!!!!!!!!!!!!!
sans les tenants et aboutissants, on va dans le mur!
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
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 17:15
13 févr. 2017 à 17:15
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!!!
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
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2017 à 17:23
13 févr. 2017 à 17:23
Dans le lien que je t'ai donné, il y a cela:
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à
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
Messages postés
19
Date d'inscription
mardi 15 novembre 2016
Statut
Membre
Dernière intervention
13 février 2017
13 févr. 2017 à 18:42
13 févr. 2017 à 18:42
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
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
