Discussion :

[NEC14]

Voilà j'ai tapé ce code qui lorsque le contenu de la Combo (Cmbcat) change, l'affichage dans la ListBox est modifié automatiquement.
Mais je rencontre un problème, je suis obligé d'effacer le contenu de la Combo si je veux que l'affichage change.
Par exemple, j'ai tapé P au lieu de C, alors l'affichage dans le ListBox reste Professionnel alors que ce devrait être Cuisiniers.
Pouvez-vous m'apporter un éclairage dans mon code s'il vous plait ?
Merci par avance

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
 
Private Sub Cmbcat_Change()
With LstCat
    If Me.Cmbcat.Value = "P" Then
    .AddItem "Professionnels"
    End If
    If Me.Cmbcat.Value = "C" Then
    .AddItem "Cuisiniers"
    End If
    If Me.Cmbcat.Value = "A" Then
    .AddItem "Amateurs"
    End If
    If Me.Cmbcat.Value = "Ap" Then
    .AddItem "Apprentis"
    End If
    If Me.Cmbcat.Value = "J" Then
    .AddItem "Jeunes"
    End If
End With
End Sub

[NEC14]

J'ai fait autrement et ça fonctionne

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
 
Private Sub Cmbcat_Change()
Dim Cell As Range
Dim A1(0 To 500, 0 To 1) As String
Dim i As Byte
Dim L As Byte
    If UFsaisie.Cmbcat.Value <> "" Then
    L = Len(Cmbcat)
        For Each Cell In Sheets("Cat").Range("Cat")
            If UCase(Left(Cell.Text, L)) = UCase(Cmbcat.Text) Then
                A1(i, 0) = Cell.Offset(0, 1).Text
            i = i + 1
            End If
        Next
        UFsaisie.LstCat.List = A1()
        End If
End Sub

merci à ceux qui ont cherché