ComboBox Afficher si la ligne contient

[Jeremy011991]

Bonsoir,

Je me suis posé un petit problème pour un classeur de gestion de clients...
Je possède un Usf qui contient un Combobox qui m'affiche les clients. Cependant j'aimerai que ce combo ne m'affiche QUE les clients d'un certain type.

Le fichier que je joins vous semblera peut-être plus clair.

Je pensais à une sorte de requête SQL...mais je ne sais pas si cela est possible sous VBA.. Si quelqu'un a plus d'infos également à ce sujet, je suis preneur...


Merci à tous, Bonne soirée !

 

[xhudi69]

Re : ComboBox Afficher si la ligne contient

bonsoir Jeremy011991 , le Forum,

un essais si j'ai compris

@+

 

[job75]

Re : ComboBox Afficher si la ligne contient

Bonsoir à tous,

Utilisez la méthode AddItem :

Private Sub UserForm_Initialize()
Dim t, i As Long
t = Range("C6:E" & [C65536].End(xlUp).Row)
For i = 1 To UBound(t)
  If UCase(t(i, 3)) Like "M*" Then ComboBox1.AddItem t(i, 1)
Next
End Sub

Fichier joint.

A+

 

[job75]

Re : ComboBox Afficher si la ligne contient

Re,

Avec 2 tableaux et la méthode List c'est plus rapide :

Private Sub UserForm_Initialize()
Dim tablo, i As Long, t() As String, n As Long
tablo = Range("C6:E" & [C65536].End(xlUp).Row)
For i = 1 To UBound(tablo)
  If UCase(tablo(i, 3)) Like "M*" Then
    ReDim Preserve t(n)
    t(n) = tablo(i, 1)
    n = n + 1
  End If
Next
If n Then ComboBox1.List = Application.Transpose(t)
End Sub

Fichier (2).

Edit : ajouté If n Then au cas où il n'y a pas de nom.

A+