Discussion :

[elngoma]

s'il vous plait j'aimerais savoir comment mentionner la colonne qui permettra le filtrage des donn¨¦es dans le code suivants. et la colonne qui me servira de filtrage est la colonne B.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()If TextBox1 = ""Then MsgBox "Entrer Une Date De D¨¦but"ElseIf TextBox2 = ""Then MsgBox "Entrer Une Date De Fin" 
Else 
Dim datedbut As String Dim datefin As String datedebut = CDate(TextBox1)datefin = CDate(TextBox2) 
ActiveSheet.Range("a8").AutoFilter Field:=1, Criteria1:=">=" & datedebut,_        Operator:=xlAnd, Criteria2:="<=" & datefin Sheets("BaseDeDonneeProduction").SelectRange("a10 : i100").CopySheets("feuil3").SelectRange("a1").PasteSpecialUserForm1.HideApplication.CutCopyMode = False
 EndIf 
EndIf 
EndSub

je suis nouveau a apprendre ce langage. bref si quelqu'un pourrait m'aider a expliquer chaque ligne de ce code. je vous remercie d'avance.

[boisgontierjacques]

Bonjour,

cf exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Bfiltre_Click()
    If Not IsDate(Me.date_début) Or Not IsDate(Me.date_fin) Then Exit Sub
    [A1].AutoFilter Field:=3, Criteria1:=">=" & Format(CDate(Me.date_début), "mm/dd/yy"), _
       Operator:=xlAnd, Criteria2:="<=" & Format(CDate(Me.date_fin), "mm/dd/yy")
End Sub
 
Private Sub Btout_Click()
 On Error Resume Next
 ActiveSheet.ShowAllData
End Sub

Boisgontier