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 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 oct. 2014 à 15:04
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 oct. 2014 à 15:04
A voir également:
- Changer la liste de référence pour une listbox
- Liste déroulante excel - Guide
- Piratage facebook changer mot de passe - Guide
- Changer dns - Guide
- Changer clavier qwerty en azerty - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
9 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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!