Changer la liste de référence pour une listbox
Fermé
Del
-
Modifié par pijaku le 21/10/2014 à 10:23
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 28 oct. 2014 à 15:04
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 28 oct. 2014 à 15:04
A voir également:
- Changer la liste de référence pour une listbox
- Changer dns - Guide
- Liste déroulante excel - Guide
- Changer clavier qwerty en azerty - Guide
- Liste déroulante en cascade - Guide
- Liste de diffusion whatsapp - Guide
9 réponses
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
21 oct. 2014 à 15:30
21 oct. 2014 à 15:30
Bonjour,
Or je n'arrive pas à changer la liste de référence de ma feuille excel qui est prise pour la listbox Ben oui, mais vu que vous ne montrez pas comment vous affectez cette "liste de référence" colonne 5 a la listbox1, pas possible de vous aidez
Or je n'arrive pas à changer la liste de référence de ma feuille excel qui est prise pour la listbox Ben oui, mais vu que vous ne montrez pas comment vous affectez cette "liste de référence" colonne 5 a la listbox1, pas possible de vous aidez
i = Dialogue.ListBox1.Listselected + 1 = True?????????
Et bien justement je n'ai que cette ligne avec i pour la sub
(ce n'est pas moi qui ai tapé ce code)
et je ne sais pas comment est affecté cette liste.
le code précédent pour cette ligne était
i = Dialogue.ListBox1.ListIndex
mais même problème impossible de savoir comment elle est affecté
(ce n'est pas moi qui ai tapé ce code)
et je ne sais pas comment est affecté cette liste.
le code précédent pour cette ligne était
i = Dialogue.ListBox1.ListIndex
mais même problème impossible de savoir comment elle est affecté
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
23 oct. 2014 à 08:28
23 oct. 2014 à 08:28
Bonjour,
mais même problème impossible de savoir comment elle est affecté Va pas etre simple a resoudre sans le fichier.
Pouvez-vous mettre votre fichier a disposition sur https://www.cjoint.com/ en modifiant les donnees sensibles
mais même problème impossible de savoir comment elle est affecté Va pas etre simple a resoudre sans le fichier.
Pouvez-vous mettre votre fichier a disposition sur https://www.cjoint.com/ en modifiant les donnees sensibles
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
24 oct. 2014 à 08:55
24 oct. 2014 à 08:55
Bonjour,
c'est dans ce Sub (Module1) que lisbox1 est remplie:
Probleme: ce code n'est pas appele !!!!!!!!!!!!!!
c'est dans ce Sub (Module1) que lisbox1 est remplie:
Sub RempliBoite()
Probleme: ce code n'est pas appele !!!!!!!!!!!!!!
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
24 oct. 2014 à 11:48
24 oct. 2014 à 11:48
Bonjour,
Pour initialiser la listBox où vous voulez, doublecliquez sur l'UserForm Dialogue et choisissez Initialize en haut à droite et collez ce code:
Là j'ai choisi les clients chargeur, a vous de voir ce que vous voulez afficher
Pour initialiser la listBox où vous voulez, doublecliquez sur l'UserForm Dialogue et choisissez Initialize en haut à droite et collez ce code:
Private Sub UserForm_Initialize() ListBox1.List() = Feuil4.Range("A2:A14").Value End Sub
Là j'ai choisi les clients chargeur, a vous de voir ce que vous voulez afficher
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
24 oct. 2014 à 11:59
24 oct. 2014 à 11:59
J'ai oublié dans le module1 changer ceci:
Sub Aller_Formulaire() Sheets("Formulaire").Activate Dialogue.Show End Sub
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
24 oct. 2014 à 12:01
24 oct. 2014 à 12:01
Bonjour,
Ce n'est pas si simple, le nom de la feuille pour remplir la listbox est ecrit par programme, mais le code qui doit remplir la listbox n'est pas appele, donc il manque une ligne de code quelque part, j'ai bien une idee, mais pourquoi cette ligne manque si ca marchait avant
Ce n'est pas si simple, le nom de la feuille pour remplir la listbox est ecrit par programme, mais le code qui doit remplir la listbox n'est pas appele, donc il manque une ligne de code quelque part, j'ai bien une idee, mais pourquoi cette ligne manque si ca marchait avant
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
24 oct. 2014 à 15:27
24 oct. 2014 à 15:27
allez dans le module1 et changer comme ceci:
Sub RempliBoite() Dim table(15) As String Dim i As Integer Dim Nom1, Nom2, Nom3, Nomfeuille As String Nom1 = CStr(Day(Sheets("Formulaire").Cells(6, 5))) Nom2 = CStr(Month(Sheets("Formulaire").Cells(6, 5))) Nom3 = CStr(Year(Sheets("Formulaire").Cells(6, 5))) If Day(Sheets("Formulaire").Cells(6, 5)) < 10 Then Nom1 = "0" + Nom1 End If If Month(Sheets("Formulaire").Cells(6, 5)) < 10 Then Nom2 = "0" + Nom2 End If Nomfeuille = Nom1 + Nom2 + Nom3 'MsgBox Nomfeuille If Sheets(Nomfeuille).Cells(2, 1) <> "" Then For i = 2 To 15 table(i - 1) = Sheets(Nomfeuille).Cells(i, 2)'ici 2 a la place du 5 Next i End If Load Dialogue Dialogue.ListBox1.List() = table Dialogue.TextBox12 = "Date : " & CStr(Sheets("Formulaire").Cells(6, 5)) RAZ 'For i = 1 To 15 ' table(i) = "" 'Next i 'Dialogue.ListBox1.List() = table AdaptationListe Dialogue.Show End Sub
Rebonjour,
J'ai fait tous les changement comme indiqués ci-dessus et le même message d'erreur apparaît toujours.
J'ai fait tous les changement comme indiqués ci-dessus et le même message d'erreur apparaît toujours.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 oct. 2014 à 15:04
28 oct. 2014 à 15:04
Je n'ai indiqué qu'un changement dans la macro Sub RempliBoite() :
Chez moi cela fonctionne, je n'ai aucun message d'erreur!
table(i - 1) = Sheets(Nomfeuille).Cells(i, 2)'ici 2 a la place du 5
Chez moi cela fonctionne, je n'ai aucun message d'erreur!