Changer la RowSource d'une Listbox

Bonjour

Voilà, après avoir regardé plusieurs Tutosssssss, je n'arrive toujours pas à trouver la solution.
J'aimerais changer la rowsource de ma listbox, quand je change la date de DTPicker.
j'arrive, à changer et trouver l'onglet correspondant, sélectionner ma plage, mais je n'arrive pas a changer le contenu de ma Listbox....... Je ne vois ce que j'ai oublié dans mon code.
Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub UserForm_Initialize() LB1.ColumnHeads = True LB1.RowSource = "Didier!A10:T30" LB1.ColumnCount = 20 LB1.ColumnWidths = "200;0;0;0;0;0;0;0;200;200;0;0;0;0;0;200;0;0;0;0"   End Sub   Private Sub DTPicker1_CloseUp()   Convoc = CDate(Me.DTPicker1) DateConvoc = Left(Convoc, 2) & "-" & Mid(Convoc, 4, 2) & "-" & Mid(Convoc, 7, 4) & " " & Me.Lab1.Caption MsgBox DateConvoc   For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name = DateConvoc Then Feuille.Select 'Me.LB1.List() = Range("A10:T30").Value 'Ne fonctionne pas   'Me.LB1.RowSource = Range("A10:T29")'Ne fonctionne pas End If Next   End Sub

---

Bonjour
1) je ne vois dans cette partie de ton code aucune tentative (code en commentaire inclus) de modifier la propriété RowSource

Code:

---

1 2 3 4 5 6 7 8

For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name = DateConvoc Then Feuille.Select 'Me.LB1.List() = Range("A10:T30").Value 'Ne fonctionne pas   'Me.LB1.RowSource = Range("A10:T29")'Ne fonctionne pas End If Next

---

2) l'ensemble me laisse assez perplexe, dans la mesure où ta listbox LB1 est apparemment sur un Userform et que ta procédure évènementielle DTPicker1_CloseUp() semble vouloir la modifier sur ... chacune des feuilles de calcul Worksheets

Pour conclure :
- on ne sait pas trop ce que tu cherches à faire et surtout si tu as une seule listbox ou si tu en as plusieurs et où elles sont
- lorsque la propriété rowsource d'une listbox a été spécifiée, on ne peut (sauf à la remettre à vide préalablement) modifier de quelque manière que ce soit la propriété list de cette listbox. BIEN EVIDEMMENT

Bonjour,

Pour compléter la réponse de Jacques (que je salue au passage), la propriété RowSource n'accepte pas de Range, mais un String.
Du style :

Code:

---

ListBox1.RowSource = "Feuil1!A10:T29"

---

Pour voir cela :
F1 ==> aide. Taper RowSource nous donne :

Citation:

---

Spécifie la source de données fournissant une liste à un contrôle ComboBox ou ListBox.
Syntaxe
object.RowSource [= String]
La syntaxe de la propriété RowSource comprend les éléments suivants :
object : Objet valide.
String : Facultatif. Source de données de la liste du contrôle ComboBox ou ListBox.
Remarques
la propriété RowSource accepte des plages de feuilles de travail de Microsoft Excel.

---

Ou en ligne (saisir : msdn RowSource sous votre moteur de recherche préféré) :
https://msdn.microsoft.com/fr-fr/VBA...ource-property

Bonjour.

Je me suis certainement mal exprimé.

LB1 est ma listbox de base elle s'initialise sur une feuille spécifique "Didier" en l'occurence. la feuille "didier " à un planning qui se trouve à la date du jour.
avec un autre Userform, j'ai créé des feuilles qui me permette de faire des planning sur plusieurs jours (Dates et Noms différents.)

Code:

---

1 2	Convoc = CDate(Me.DTPicker_DateJour) DateConvoc = Left(Convoc, 2) & "-" & Mid(Convoc, 4, 2) & "-" & Mid(Convoc, 7, 4) & " " & Me.Lab_Agent.Caption ' Converti la Date en Texte pour l'onglet

---

Donc mes feuilles ont la date et le nom de l'agent. Style : 4-11-2017 DIDIER
mais ce sont des copie de la feuille initial Didier, sauf l'intérieur du tableau contenu dans les cellules A10:T30
Donc ce que j'aimerais faire c'est pouvoir rechercher la feuille en changeant ma date de DTPicker cela selectionne la feuille correspondante afin de pouvoir complèter le tableau
d'ou :

Code:

---

1 2 3 4 5 6 7 8 9

Convoc = CDate(Me.DTPicker1) DateConvoc = Left(Convoc, 2) & "-" & Mid(Convoc, 4, 2) & "-" & Mid(Convoc, 7, 4) & " " & Me.Lab1.Caption MsgBox DateConvoc   For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name = DateConvoc Then Feuille.Select End if Next

---

Jusqu'ici j'arrive bien à sélectionner la feuille, mais c'est a ce moment là ou je bug.....
j'aimerais sélectionner la plage A10:T30 de cette feuille, afin qu'elle devienne la nouvelle Rowsource de ma Listbox.
Si je change la date de Dtpicker, je changerais de feuille.
d'ou

Code:

---

1 2 3

For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name = DateConvoc Then Feuille.Select

---

Je vérifie si la feuille existe, ensuite " si then
Changement de rowsource
ou
exit sub

Voilà j'espère avoir été plus clair.

Cordialement

Citation:

---

Code:

---

1 2 3

For Each Feuille In ThisWorkbook.Worksheets If Feuille.Name = DateConvoc Then Feuille.Select

---

Je vérifie si la feuille existe, ensuite " si then
Changement de rowsource

---

Hé bien ? Pijaku, que je salue, te l'a indiquée, cette solution, non ?
Pour mémoire :

Citation:

---

Pour compléter la réponse de Jacques (que je salue au passage), la propriété RowSource n'accepte pas de Range, mais un String.
Du style :

Code:

---

ListBox1.RowSource = "Feuil1!A10:T29"

---

---

Ou Feuil1 est à remplacer par le nom de ta variable Feuille suivi de "!A10:T29"
Il est où, ton problème ? Dans la construction d'une chaîne par concaténation ? (j'espère que non car ce serait plus qu'inquiétant).

Bonjour

j'ai essayé

Code:

---

Me.LB1.RowSource = "DateConvoc(A10:T30)"

---

mais j'ai un message d'erreur : Impossible de définir la propriété Rowsource. Valeur de propriété non valide.

Je n'en crois pas mes yeux !
compare donc ce que j'ai écrit avec ce que tu as écrit.
Et tu ne sembles de surcroît toujours pas savoir concaténer avec le contenu d'une variable. C'est vraiment inquiétant !
Regarde (et je refuse d'aller plus loin à un tel ... "niveau". Ne pas confondre un forum de développement avec un salon de découverte et d'enseignement des rudiments)

Code:

---

1 2 3

toto = "voilà" titi = "%" msgbox toto & titi & "vu ?"

---

Bonne chance.

Bonjour,
Quelqu'un qui décompose ses date avec des mid ne peut pas être foncièrement méchant!

Suis les conseils avisés de unparia

Citation:

---

Ou Feuil1 est à remplacer par le nom de ta variable Feuille suivi de "!A10:T29"
Il est où, ton problème ? Dans la construction d'une chaîne par concaténation ? (j'espère que non car ce serait plus qu'inquiétant).

---

Code:

---

1 2	Me.LB1.RowSource = format (Me.DTPicker_DateJour,"dd-mm-yyyy") & " " & Me.Lab_Agent.Caption & "!A10:T29" ' Converti la Date en Texte pour l'onglet

---

Bonjour

Voilà c''est résolu.

Le problème était dans le nom de la feuille 10-10-2017 DIDIER ne passe pas même quand j'indiquais la Rowsource dans la fenêtre propriété.
Donc en changeant le Nom en 10_10_2017_DIDIER, cela fonctionne.

Merci à Unparia et dysorthographie pour votre aide.

Cordialement

Bonjour,

quand tu as un espace dans le nom d'une feuille inscrit-le entre 2 ' ' dans vba.
eric