...j'ai encore un ptit hic....
tout se passe plutot bien, sauf qu'au moment de s'afficher, le datalist me demande de préciser le paramètre du filtre renseigné!
ci-dessous le code pour 7 filtres:
<code>
If Form_Général.checkan Then
xfiltre1 = Form_Général.listan.value
Else
xfiltre1 = ""
End If
If Form_Général.checkmois Then
xfiltre2 = Form_Général.listmois.value
Else
xfiltre2 = ""
End If
If Form_Général.checkresp Then
xfiltre3 = Form_Général.listresp.value
Else
xfiltre3 = ""
End If
If Form_Général.checkcli Then
xfiltre4 = Form_Général.txtcli.value
Else
xfiltre4 = ""
End If
If Form_Général.checkplan Then
xfiltre5 = Form_Général.txtplan.value
Else
xfiltre5 = ""
End If
If Form_Général.checkactiv Then
xfiltre6 = Form_Général.txtactiv.value
Else
xfiltre6 = ""
End If
If Form_Général.checkra Then
xfiltre7 = Form_Général.txtra.value
Else
xfiltre7 = ""
End If
req1 = "SELECT * FROM [stock kam+]"
If xfiltre1 <> "" Or xfiltre2 <> "" Or xfiltre3 <> "" Or xfiltre4 <> "" Or xfiltre5 <> "" Or xfiltre6 <> "" Or xfiltre7 <> "" Then
If xfiltre1 <> "" Then
req1 = req1 & " WHERE Année=" & xfiltre1
If xfiltre2 <> "" Then _
req1 = req1 & " And mid(Date_pass_exe,4,2)=" & xfiltre2
If xfiltre3 <> "" Then _
req1 = req1 & " And Resp_plan=" & xfiltre3
If xfiltre4 <> "" Then _
req1 = req1 & " And Num_client=" & xfiltre4
If xfiltre5 <> "" Then _
req1 = req1 & " And Num_plan=" & xfiltre5
If xfiltre6 <> "" Then _
req1 = req1 & " And Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre2 <> "" Then
req1 = req1 & " Where mid(Date_pass_exe,4,2)=" & xfiltre2
If xfiltre3 <> "" Then _
req1 = req1 & " And Resp_plan=" & xfiltre3
If xfiltre4 <> "" Then _
req1 = req1 & " And Num_client=" & xfiltre4
If xfiltre5 <> "" Then _
req1 = req1 & " And Num_plan=" & xfiltre5
If xfiltre6 <> "" Then _
req1 = req1 & " And Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre3 <> "" Then
req1 = req1 & " Where Resp_plan=" & xfiltre3
If xfiltre4 <> "" Then _
req1 = req1 & " And Num_client=" & xfiltre4
If xfiltre5 <> "" Then _
req1 = req1 & " And Num_plan=" & xfiltre5
If xfiltre6 <> "" Then _
req1 = req1 & " And Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre4 <> "" Then
req1 = req1 & " Where Num_client=" & xfiltre4
If xfiltre5 <> "" Then _
req1 = req1 & " And Num_plan=" & xfiltre5
If xfiltre6 <> "" Then _
req1 = req1 & " And Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre5 <> "" Then
req1 = req1 & " Where Num_plan=" & xfiltre5
If xfiltre6 <> "" Then _
req1 = req1 & " And Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre6 <> "" Then
req1 = req1 & " Where Num_Activite=" & xfiltre6
If xfiltre7 <> "" Then _
req1 = req1 & " And Num_RA=" & xfiltre7
Else
If xfiltre7 <> "" Then
req1 = req1 & " Where Num_RA=" & xfiltre7
End If
End If
End If
End If
End If
End If
End If
End If
List1.RowSource = req1
</code>
ci-dessous, "RA34208" est la valeur du filtre renseigné!

Mis à part ca, le datalist s'alimente correctement
si je rerenseigne la valeur
Si qqun à une idée du pourquoi du comment..... Je suis tout ouie! merci