Liste Combobox selon critères
Bonjour le Forum,
Je cherche une macro qui me permettrait d'obtenir dans mon userform, la liste de mon combobox selon une serie de critères.
Dans mon exemple joint, si mon critère 1 = "a" critère 2 = "c" critère 3 = "d" et critère 4 = "25/09/2016", la liste de mon combobox serait:
acd1
acd3
acd4
Merci d'avance de votre aide.
Bruno
salut :
essai
Private Sub UserForm_Initialize()
Dim Sh As Worksheet, LsRow As Long
Set Sh = Sheets("Feuil1")
LsRow = Sh.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To LsRow
If Cells(r, 1) = "a" And Cells(r, 2) = "c" And Cells(r, 3) = "d" And Cells(r, 4) = "25/09/2016" Then
ComboBox1.AddItem Cells(r, 5)
End If
Next
End Sub
belkacem64 a écrit :salut :
essai
Private Sub UserForm_Initialize()
Dim Sh As Worksheet, LsRow As Long
Set Sh = Sheets("Feuil1")
LsRow = Sh.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To LsRow
If Cells(r, 1) = "a" And Cells(r, 2) = "c" And Cells(r, 3) = "d" And Cells(r, 4) = "25/09/2016" Then
ComboBox1.AddItem Cells(r, 5)
End If
Next
End Sub
Bonjour Belkacem64,
Le code marche très bien pour des valeurs figées indiquées entre "" dans le code .
Par contre en compliquant la chose, et en renseignant les critères sur l'userform, ca ne marche pas (problème avec le critère de date)
Pouvez-vous me dire où est le problème dans le code ? Nouveau fichier joint.
Merci
Bruno
Bonjour,
N'y a-t-il pas plus simple ? Sans rajout de nouveaux combobox, juste en modifiant le format de la date ?
Cordialement
Bruno
Salut
tu veux dire de cette façon
Si vous voulez supprimer la liste :
effacer ces lignes :
1
'==============================================
ListBox1.Clear
'==============================================
2
'==============================================
ListBox1.Column = Ary
'==============================================
3
'==============================================
ListBox1.Clear:
'==============================================
Impeccable Belkacem64,
J'arrive à faire fonctionner le combobox !
Maintenant j'abuse un peu... mais comment faire pour supprimer la ligne entière contenant T1+T2+T3+T4+combobox1 ?
Cordialement
Bruno