contrôle listboxRésolu

Question

salut,
je cherche une soluce pour afficher dans une listbox les données d'une feuille.Xls en entrant dans un textbox la date de début et dans un autre textbox la date de fin.
Ma colonne A contient les dates, puis les 9 autres colonnes des informations diverses.

Merci pour votre coup de main

mortalino · Accepted Answer

Salut, je rajouterai que l'utilisation des textbox pour le créneau des dates est à proscrire, il faut préférer l'utilisation du Date And Time Picker. Ensuite tu parcours les cellules de la colonne A avec une boucle de type For i = 1 To DernierLigne et If Cells(i, 1).Value > DTPickerDateDebut.Value And Cells(i, 1).Value < DTPickerDateDebut.Value Then Listbox1.AddItem Cells(i, 1).Value & " / " & Cells(i, 2).Value & " / " & Cells(i, 3).Value 'etc.. End If En gros, t'as plus qu'à adapter.. @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

jmfmarques · Answer

Voilà un problème complet !

Alors :
Que ne sais-tu pas faire ? (lis les règles de ce forum : pas de question globale) :

1) sélectionner, à partir des saisies dans les textboxes, les cellules adéquates
ou 
2) tu sais sélectionner ces cellules mais ne sais pas comment alimenter une listbox par les valeurs (lesuqelle, d'ailleurs, exactement , parmi les 9 colonnes des lignes ?)ainsi sélectionnées 

3) tu ne sais faire ni la 1ère ni la 2ème de ces 2 choses et attends un code tout fait (ou presque) ...

cs_stef26 · Answer

merci pour vos réponse est désolé si ce n'était pas très précis comme demande, mais cétait ma 1ère et avec le temps cela devrait s'améliorer.
Je suis un autodidacte en la matière et j'ai crée un programme de gestion de stock sur lequel je bosse depuis quelques mois. En fait je navigue sur les forums et les sites Vba en essayant humblement de me faire une formation.
Si cela vous interresse je vous présenterais mon projet, qui demanderais tout de même quelques améliorations je pense.
Mais je trouve cela passionnant.

merci à bientôt

mortalino · Answer

De rien !
(j'en profite pour dire que j'ai fait une erreur dans mon code, il y a en premier DTPickerDateDebut.Value, et en second, j'ai mis pareil, il faut un DTPickerDateFin.Value, donc il en faut deux)

Et si tu veux, n'hésite pas à nous mettre ton code pour optimisation.
Ps : le Date And Time Picker, pour l'avoir, il faut faire un clique droit sur le pavé où se trouvent les contrôles de bases, ajouter contrôles, puis coche Microsoft Date And Time Picker.

ça ressemble à ça :

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_stef26 · Answer

Grand merci Mortalino,
je devrait m'en sortir avec tes précieuses info. Dès aujourd'hui je vais essayer, je te tiens au courant

ciao

cs_stef26 · Answer

salut,
c'est encore moi, j'ai bien mis ta ligne de commande mais rien n'apparait dans ma listbox1....???

Private Sub UserForm_Activate()
For i = 1 To DernierLigne


If Feuil3.Cells(i, 1).Value > DTPickerDateDebut.Value And Feuil3.Cells(i, 1).Value < DTPickerDateDebut.Value Then
    ListBox1.AddItem Feuil3.Cells(i, 1).Value & " / " & Feuil3.Cells(i, 2).Value & " / " & Feuil3.Cells(i, 3).Value 'etc..
End If
Next
End Sub

mortalino · Answer

salut,

c'est normal, car déjà t'es dans le mauvais évènement (userform_activate).
PLace plutôt un CommandButton.
Ensuite, t'as laissé DerniereLigne comme je te l'avais mis mais il faut lui attribuer une valeur :

DerniereLigne =  Sheets("Feuil3").Range("A65536").End(xlUp).Row

Et pour finir, tu as mis a plusieurs reprise : If  Feuil3 .Cells(i, 1).Value
Et bah non, c'est pas bon.
Soit If Sheets("Feuil3").Cells(..
Soit If Sheets(N° index).Cells

@++ 

<hr size ="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_stef26 · Answer

Génial ça marche, merci

Par contre, il faut mettre seulement Feuil3.Cells pour que cela fonctionne.

Encore merci du coup de main, j'ai encore beaucoup à apprendre. Alors je risque de te solliciter souvent.

Salut

PS: je vais essayer de continuer la suite, c'est à dire remettre le listbox à zéro à chaque changement de date du DTPicker, les impressions du Listbox...etc...

Si problème je te  Help me

cs_stef26 · Answer

c'est encore moi peut-on faire la même chose avec un listview ???
car j'ai un souci je n'arrive pas à aligner les colonnes.

Peut-tu me donner les premiers pas pour démarrer?

merci

mortalino · Answer

Salut,

désolé, je n'utilise pas le contrôle ListView.

Par contre, pour effacer les données d'un ListBox, il faut utiliser ListBox.Clear

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_MPi · Answer

J'ajouterais que si tu veux de l'aide sur divers problèmes que tu rencontres, tu devrais démarrer de nouveaux messages.

Si les gens passent sur le site et voient des messages "marqués" comme acceptés, ils pourraient passer outre et ne pas voir que tu as d'autres questions... sans réponses...

MPi

jmfmarques · Answer

J'ajouterais quant à moi que sa réponse est dans l'aide en ligne.
Je la mets là car elle n'apporte rien en soi à d'autres (ceux qui ouvrent leur aide en ligne) et qu'elle permet de clore ce sujet :

pour une listview nommée ListView1

ListView1.ColumnHeaders.Clear

mortalino · Answer

C'est cadeau, ça fait plaisir !
AIDE VB6 Gratuite et en Français

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_stef26 · Answer

merci pour vos conseil

à bientôt je vais essayer de me débruiller avec l'AIDE VB6

CIAO

Contrôle listbox

14 réponses

Votre réponse

Discussions similaires