modif de code

[rudy dehaudt]

Bonsoir a tous,
je galère sur le code ci dessous qui fonctionne très bien mais il m'affiche le compte-tenu de ma feuil8 dans la listbox1 a partir de la colonne A et non comme je le souhaiterai de la colonne B (?)
merci d avance de la leçon.

A+


Private Sub CommandButton11_Click()
Dim c As Range
Dim condition As Boolean
Feuil8.Select
ListBox1.Clear
If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then _
MsgBox "Une date n'est pas valide !": Exit Sub
For Each c In Range("b3:b" & Range("b65536").End(xlUp).Row)
condition = c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2)
If ComboBox1.ListIndex > -1 Then condition = condition And c.Offset(, 1) = ComboBox1.Value
If condition Then
With UserForm2.ListBox1
.AddItem c.Offset(0, -1).Value
.List(.ListCount - 1, 1) = c.Offset(0, 0).Value
.List(.ListCount - 1, 2) = c.Offset(0, 1).Value
.List(.ListCount - 1, 3) = c.Offset(0, 2).Value
.List(.ListCount - 1, 4) = c.Offset(0, 3).Value
.List(.ListCount - 1, 5) = c.Offset(0, 4).Value
End With
End If
Next c
End Sub

 

[Staple1600]

Re : modif de code

Bonsoir


A ton avis ?

AddItem c.Offset(0, -1).Value

 

[rudy dehaudt]

Re : modif de code

bonjour staple1600 et merci, bonjour a tous
j ai encore une question sur le code ci-dessu,
le combobox1 n affiche plus la colonne des fournisseur et donc ne la filtre donc pas j ai modifier comme ci dessou
pour info la liste des fournisseurs et en colonne C (a partir de C3 pour le filtrage)
qu est ce cloche ( a part moi..)


Private Sub CommandButton11_Click()
Dim c As Range
Dim condition As Boolean
Feuil8.Select
ListBox1.Clear
If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then _
MsgBox "Une date n'est pas valide !": Exit Sub
For Each c In Range("b3:b" & Range("b65536").End(xlUp).Row)
condition = c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2)
If ComboBox1.ListIndex > -1 Then condition = condition And c.Offset(, 1) = ComboBox1.Value
If condition Then
With UserForm2.ListBox1
.AddItem c.Offset(0, 0).Value
.List(.ListCount - 1, 0) = c.Offset(0, 0).Value
.List(.ListCount - 1, 1) = c.Offset(0, 1).Value
.List(.ListCount - 1, 2) = c.Offset(0, 2).Value
.List(.ListCount - 1, 3) = c.Offset(0, 3).Value
.List(.ListCount - 1, 4) = c.Offset(0, 4).Value
End With
End If
Next c
End Sub