Trier par date

[trapua]

Bonjour,

Je lis des tutos et forums pour essayer le VBA mais là je bloque.

J'ai un "controle calendar" qui m'inscrit la date en A2.
puis je clique sur un bouton de commande qui me filtre le tableau suivant la date indiquée en A2.


Je souhaite que ces opérations se réalisent en une fois :
Choisir la date dans le "controle calendar" et le filtre se fait automatiquement.

Pouvez-vous m'aider ?
Merci

 

[vmax01]

Re : Trier par date

bonjour le forum et bonjour traqua.

pourquoi ne fusionne tu pas tes deux macros ??

comme suit:

Private Sub Calendar1_Click()
Range("A2").Value = Me.Calendar1.Value
Me.Calendar1.Visible = True
[A5].AutoFilter field:=3, Criteria1:=--Range("A2")

End Sub

ou tous simplement comme suit:

Private Sub Calendar1_Click()
[A5].AutoFilter field:=3, Criteria1:=Calendar1
End Sub

il te fera les deux en meme temps.

bonne journée.

 

[trapua]

Re : Trier par date

Merci beaucoup !!!

Il me semblait avoir fait ta première proposition mais ça ne me fonctionnait pas. J'avais dû faire des erreurs.

Merci encore

 

[trapua]

Re : Trier par date

J'ai trouvé mon ancienne erreur.

Dernière petite question sur la ligne :
[A5].AutoFilter field:=3, Criteria1:=--Range("A2")

Que veut dire : [A5]

Merci

 

[vmax01]

Re : Trier par date

bonsoir le forum et bonsoir trapua.

le [A5] est en fait la célulle A5 de ton filtre.... on aurai tres bien pu marquer Range("A5").AutoFilter field:=3, Criteria1:=--Range("A2") ... ça marchai aussi.

bonne soirée.