[Excel]Probleme d'affichage de liste

Yannanou Messages postés 25 Statut Membre -  
Yannanou Messages postés 25 Statut Membre -
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
Configuration: Windows XP
Firefox 2.0.0.6

3 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    1. Yannanou Messages postés 25 Statut Membre 1
       
      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
      1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744 > Yannanou Messages postés 25 Statut Membre
         
        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
  2. Yannanou Messages postés 25 Statut Membre 1
     
    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
  3. Yannanou Messages postés 25 Statut Membre 1
     
    L'erreur s'affiche au niveau du choix de la feuille " données"
    0