selection date dans userform

[OLIV67]

lorsque je clique sur bouton 3

je souhaiterai selectionner une date et que seule les lignes concernées soient filtrées.

de plus est il possible de sélectionner par défaut dans la liste déroulante la date du jour systeme.

Merci pour votre aide

Message édité par: oliv67, à: 15/11/2005 11:32

 

[MichelXld]

bonjour

apparament ton classeur contient des données confidentielles qui n'ont rien à faire sur le forum :merci d'editer ton message et de modifier ton fichier


sinon pour filtrer une date lorsque tu la selectionne dans la ListBox , tu peux tester

Private Sub LstDate_Click()
Range('A2').AutoFilter 1, Format(LstDate, Range('A3').NumberFormat)
End Sub


la 2eme partie de ta question :
pour que le filtre soit effectué sur la date du jour lors de l'affichage de l'USF


Private Sub UserForm_Initialize()
LstDate.RowSource = 'codes!Listedate' 'Ajoute les informations au menu déroulant

Range('A2').AutoFilter 1, Format(Date, Range('A3').NumberFormat)
End Sub



bonne ojurnée
MichelXld

Message édité par: michelxld, à: 15/11/2005 06:18

 

[OLIV67]

pour la premiere question c'est ok

merci beaucoup

pour la deuxieme, je souhaite

non pas que la selection se fasse des l'ouverture sur la date du jour dans la feuille, mais je souhaite que dans lstdate une selecion bleue sa fasse par defaut sur 15/11/2005 pour aujourd'hui, afin de simplifier la recherche.


meci pour vore aide

 

[MichelXld]

bonjour

tu peux tester cette autre solution


Option Explicit
Dim Cible As Boolean

Private Sub LstDate_Click()
If Cible = True Then _
Range('A2').AutoFilter 1, Format(LstDate, Range('A3').NumberFormat)
End Sub


Private Sub UserForm_Initialize()
Dim i As Integer

Cible = False
LstDate.RowSource = 'codes!Listedate'

For i = 0 To LstDate.ListCount - 1
If CDate(LstDate.List(i)) = Date Then
LstDate.TopIndex = i
Exit For
End If
Next i

Cible = True
End Sub



bonne soirée
MichelXld

 

[OLIV67]

merci cela fonctionne

Message édité par: oliv67, à: 15/11/2005 22:49