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.