[Excel]Probleme d'affichage de liste

Fermé
Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008 - 10 août 2007 à 16:13
Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008 - 13 août 2007 à 10:02
Bonjour j'ai un probléme d'affichage de liste que puige faire????

Je vous joind mon script (la liste de données se trouve dans la colonne B)

Merci d'avance de votre interet.

Yann



Script:



'*******************************************************************************************/
' /
'Nom: ListeDeroulanteModifiable /
'Auteur: Yann Ivart /
'Date: 13/7/2007 /
' /
'Déscription: Pour afficher la fenetre "choix date" et lancer la macro qui lui /
' incombe. Celle-ci conciste à récuperer les information des incidents /
' entre deux dates, de les copiers dans la feulle "tri daté", et de les /
' mettre en forme. /
' /
'*******************************************************************************************/

Private Sub UserForm_Activate()

'********************************************************************************************/
' Renvoit à la mise en forme de la fenetre "ListeDeroulanteModifiable"***********************/
'********************************************************************************************/

Sheets("Données").Select
Dim Arr() As String
Dim I As Integer, NbSheets As Integer
Dim Liste As Object
Set Liste = Worksheets(1).Cells(1, 1).Resize(Worksheets("Données").Cells(1, 1).CurrentRegion.Rows.Count - 1, 1)
Dim nbligne As String
nbligne = Application.WorksheetFunction.CountA(Range("B:B"))
ListeDeroulanteModifiable.Listedate.Clear
ReDim Arr(1 To nbligne)
For I = 1 To nbligne
Arr(I) = Liste(I).Value
ListeDeroulanteModifiable.Listedate.AddItem Arr(I)
ListeDeroulanteModifiable.Listedate2.AddItem Arr(I)
Next
Listedate.ListIndex = 0

End Sub

3 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
11 août 2007 à 10:08
bonjour

Je te suggère :
 Sheets("Données").Select
Dim I As Integer
Dim nbligne As long
nbligne = Application.WorksheetFunction.CountA(Range("B:B"))
ListeDeroulanteModifiable.Listedate.Clear
For I = 1 To nbligne
ListeDeroulanteModifiable.Listedate.AddItem cells(I,2).value
ListeDeroulanteModifiable.Listedate2.AddItem cells(I,2).value  ' ???
Next
Listedate.ListIndex = 0

End Sub


' ??? Avec cela tu as deux listes identiques mais c'est ce que tu avais...
0
Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008 1
13 août 2007 à 08:18
En fait j'ai une fenetre avec deux listes identiques et j'aimerai pouvoir prendre la liste de B2 a B nbligne comme même liste pour les deux.

En tout cas merci beaucoup d'apporter de l'interet à ma question.

Bonne journée

Yann
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657 > Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008
13 août 2007 à 08:39
bonjour

Tu aurais dû essayer le code plutôt que de répondre à la question.

Ce qui compte c'est que notre réponse serve et que tu nous le dise.
0
Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008 1
13 août 2007 à 09:56
Oui je suis désolé je me suis mal exprimé.

Merci beaucoup cela marche mais j'avais une question suplémentaire qui était est ce que cela est normal qu'il m'affiche une erreur "9" lorsque je lance l'ouvreture de la liste?

Encor une fois dsl et merci pour votre aide.

Yann
0
Yannanou Messages postés 25 Date d'inscription mercredi 18 juillet 2007 Statut Membre Dernière intervention 11 mars 2008 1
13 août 2007 à 10:02
L'erreur s'affiche au niveau du choix de la feuille " données"
0