Discussion :

[sissi00000]

Merci jacques_jean et fring.
Ca marche tres bien pour une cellule et vous avez raison jacques_jean, c'est bien ca le probleme.
Avant je remplissais ma listBox avec une selection de 4 colonnes, mais la c'est juste une seule cellule, comment faire pour prendre ma selection de 4 colonnes?
Merci encore a vous deux

[Invité]

Bonjour,

Essayez ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Init_List()
Dim i%, j%, dl%
ListBox1.Clear
dl = Range("A65536").End(xlUp).Row
 
ListBox1.ColumnCount = 5
 
    For i = 1 To dl
    j = 1
    ListBox1.AddItem Cells(i, j)
 
        For j = 2 To 5
        ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j)
        Next j
 
    Next i
End Sub

[sissi00000]

Encore une fois merci mais ca marche pas
voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Init_Combo()
Dim dl As Integer
 
With Sheets("Sheet1")
    .ListBox1.Clear
    dl = .range("A65536").End(xlUp).Row
    ListBox1.ColumnCount = 5
    For i = 10 To dl
         j = 27
        If .Cells(i, j).Text <> "" Then
            .ListBox1.AddItem Cells(i, j).Text
          For j = 27 To 31
                 .ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j)
          Next
        End If
    Next i
End With
End Sub

Ca bloque au niveau .ListBox1.List(ListBox1.ListCount - 1, j) = Cells(i, j)
ca me fait (Run-time error 380, Invalid property value)

[Invité]

C'est normal, il faut dans votre cas utiliser en plus d'autres variables.

Je regarde.

[Invité]

Voici le code à essayer (chez moi cela fonctionne).

Si ce code se trouve sur la feuille contenant la ListBox, il n'est pas utile d'utiliser With et le point devant les lignes de code, mais je l'ai laissé, qui peut le plus peut le moins.

La plage définie suppose que votre zone de liste se trouve en colonne "AA" jusque "AD" et commence en ligne 10 (celle-ci n'étant pas une ligne de titres).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Init_Combo()
Dim dl%, i%, j%
 
With Sheets("Sheet1")
    .ListBox1.Clear
    dl = .Range("AA65536").End(xlUp).Row
    ListBox1.ColumnCount = 5
    For i = 10 To dl
         j = 27
 
'la ligne ci-dessous était prévue au départ pour le traitement d'une seule
 'colonne. Si vous pouvez avoir une 1ère colonne vide et d'autres contenant
 'des données, il faut la supprimer ainsi que le End If.
 
        If .Cells(i, j).Text <> "" Then
            .ListBox1.AddItem Cells(i, j).Text
          For j = 28 To 31
                 .ListBox1.List(ListBox1.ListCount - 1, j - 27) = Cells(i, j)
          Next
        End If
    Next i
End With
End Sub

[sissi00000]

c super , ca marche
Merci beaucoup.
Vous etes genial et merci aussi a fring et Godzestla.

[sissi00000]

Bojour jacques_jean

je te reviens sur ce probleme car il y a un petit soucis.
tous marche nickel sur ma listebox, c'est juste qu'elle se rafraichit pas au lencement de la macro, faut que je bouge ma feuille excel ou cliquer sur les items un par un pour afficher le resultat de la nouvelle recherche.
Y a t il un truc que je dois rajouter dans mon code?