Discussion :

[INFINITY100]

Bonjour à tous,

Voila j'ai ci-dessous un code qui fonctionne très bien en terme d'affichage des matricules et la saisie semi-automatique de ces derniers, seulement je suis face à un petit soucis que j'arrive pas à résoudre, en effet je voudrai ajouter au code ci-dessous une ligne qui élimine l'affichage des doublons et les cellules vides ou celles qui contiennent un trait d'union (-) lors du clique sur le Combobox.

Merci à vous tous pour votre aide.

Voici 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
19
20
21
22
23
24
25
26
27
28
29
30
Dim Feuille As Worksheet, Choix
 
'Déterminer la feuille source qui va alimenter le Combobox (N° de matricules)
  Set Feuille = Sheets("BD_Préstation_service + H.C 18")
'La plage débute de la ligne 31 jusqu'à la dernière ligne 5000 (le Max)
  If Feuille.[B5000].End(xlUp).Row > 31 Then
'Variable qui transpose les noms dans le Combobox
  Choix = Application.Transpose(Feuille.Range("B31:B" & Feuille.[B5000].End(xlUp).Row))
  Me.Par_Bord_ComboBox.List = Choix
'Assosier le nom dans le Combobox avec la variable Choix pour le filtrage
  Else
      ReDim Choix(1 To 1)
      If Feuille.[B5000].End(xlUp).Row = 31 Then
      Me.Par_Bord_ComboBox.Clear
      Me.Par_Bord_ComboBox.AddItem Feuille.[B31]: Choix(1) = Feuille.[B31]
    End If
  End If
End Sub
 
 
'Macro de l'application de filtrage des N° de matricules à la saisie semi-automatique
'en fonction des lettres tapées dans le Combobox
Private Sub Par_Bord_ComboBox_Change()
'Ne pas raffrichir pendant le code
  Application.ScreenUpdating = False
  If Me.Par_Bord_ComboBox.ListIndex = -1 And IsError(Application.Match(Me.Par_Bord_ComboBox, Choix, 0)) Then
     Me.Par_Bord_ComboBox.List = Filter(Choix, Me.Par_Bord_ComboBox.Text, True, vbTextCompare)
     Me.Par_Bord_ComboBox.DropDown
  End If
End Sub

Merci encore

Cordialement

[Invité]

Bonjour,

Vous pourriez peut-être trouver une solution en adaptant ma réponse dans ce message formule-index-ligne-userform.
Dans cet exemple, les valeurs de la colonne Journal alimentent une ListBox sans doublons.