Discussion :

[ulyssia]

Bonjour,

Lorsque je sélectionne une machine dans ma ComboBox, cela ne m'affiche que le nom de la machine dans ma ListBox alors qu'il devrait également y avoir la date ain l'intervention à faire. Je veux donc que cela m'affiche la ligne entière et pas seulement la deuxième colonne.

Voici le code que j'ai écris, pouvez-vous m'aider à résoudre mon problème ?

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
Private Sub cbChoix40_Change()
 
           Application.ScreenUpdating = False
           lbPlanning.Clear
 
        If cbChoix40 <> "" Then
                  For Row = 1 To 40
           If Cells(Row, 2) Like cbChoix40 Then
 
                lbPlanning.AddItem Cells(Row, 2)
            ' j'ai également essayer la fonction RowEntire mais lorsque je l'utilise rien ne s'affiche
           End If
         Next
     End If
 
        'affiche le planning pour toutes les machines
       If cbChoix40 = "Toutes les machines" Then
 
              lbPlanning.List = AfficherPlanning()
 
       End If
End Sub

J'ai joint mon fichier Excel ça sera peut-être plus simple à comprendre..
Merci d'avance pour votre aide.

[ARTURO83]

Bonjour,

Remplacez cette ligne

Code :

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

lbPlanning.AddItem  Cells(Row, 2)

par

Code :

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

 lbPlanning.AddItem Cells(Row, 1) & " " & Cells(Row, 2)

Cdlt

[ulyssia]

Super merci ça a fonctionné par contre je ne vois pas tout ce qui est écrit dans mes colonnes comment faire pour les agrandir ? J'ai essayé avec lbPlanning.ColumnWidths = "100;100;100" mais les colonnes sont toutes serrées.

Merci encore pour ton aide

[ARTURO83]

Alors faites ceci

Code :

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

1
2
3
4
5
6
7
    Set c = Sheets("data_Planning").Columns(2).Find(cbChoix40.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        lbPlanning.AddItem
        lbPlanning.List(n, 0) = Cells(Row, 1)
        lbPlanning.List(n, 1) = Cells(Row, 2)
        n = n + 1
    End If

[ulyssia]

Super merci ça marche parfaitement !!!