[VBA-E] Sélection des lignes en utilisant AUJOURDHUI()

**gabygaby** · 10/04/2007, 18h21

Je débute sous excell et dans une macro je ne suis pas foutu de sélectionner les lignes dont une colonne contient la date d'aujourdhui :

Merci si vous avez un moment.

Code :

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

1
2
3
4
5
6
7
8
9
Sub RendezVousDuJour()
 
Dim variable As Date
variable = AUJOURDHUI()  => il me sort que cette fonction est indéfinie alors 
                                        que je l'utilise dans des cellules !!
 
    Selection.AutoFilter Field:=2, Criteria1:="rendez vous"
     'Selection.AutoFilter Field:=6, Criteria1:=variable
 End Sub

**ouskel'n'or** · 10/04/2007, 18h30

Aujourdhui est une fonction Excel que tu ne peux utiliser comme ça. Je ne crois même pas que tu puisses l'utiliser avec WorksheetFunction (à vérifier)

Code :

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

1
2
3
4
5
6
7
Sub RendezVousDuJour()
Dim variable As Date
variable = cdate(Int(CDbl(Now)))
 
Selection.AutoFilter Field:=2, Criteria1:="rendez vous"
'Selection.AutoFilter Field:=6, Criteria1:=variable
End Sub

Teste ça, ça devrait coller
Explication : Aujourdhui donne un entier mais Now un double. En faisant ça tu obtiens un entier que tu transformes en date.
A+

NB - Il y a peut-être plus direct mais tout de suite, je ne vois pas

**gabygaby** · 10/04/2007, 19h22

Envoyé par ouskel'n'or

Aujourdhui est une fonction Excel que tu ne peux utiliser comme ça. Je ne crois même pas que tu puisses l'utiliser avec WorksheetFunction (à vérifier)

Code :

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

1
2
3
4
5
6
7
Sub RendezVousDuJour()
Dim variable As Date
variable = cdate(Int(CDbl(Now)))
 
Selection.AutoFilter Field:=2, Criteria1:="rendez vous"
'Selection.AutoFilter Field:=6, Criteria1:=variable
End Sub

Teste ça, ça devrait coller
Explication : Aujourdhui donne un entier mais Now un double. En faisant ça tu obtiens un entier que tu transformes en date.
A+

NB - Il y a peut-être plus direct mais tout de suite, je ne vois pas

Merci de la réponse rapide: j'ai testé, dommage mais il y a tj un pb

**ouskel'n'or** · 10/04/2007, 19h26

Une erreur ? Laquelle ? Le message ?
Je pense que c'est un pb de format de date. Fais un essai en formatant, dans Excel, tes dates en format "Nombre". Format -> Cellules -> Nombre -> Nombre (bis)
Juste pour tester, ensuite, on verra pour le code.
A+

**gabygaby** · 10/04/2007, 19h48

Envoyé par ouskel'n'or

Une erreur ? Laquelle ? Le message ?
Je pense que c'est un pb de format de date. Fais un essai en formatant, dans Excel, tes dates en format "Nombre". Format -> Cellules -> Nombre -> Nombre (bis)
Juste pour tester, ensuite, on verra pour le code.
A+

Variable est exprimée au format jj/mm/20aa
Si j'arrive à la mettre au format jj/mm/aa c'est gagné, comment faire ?

**ouskel'n'or** · 10/04/2007, 19h56

Tu as une solution simple consistant à formater ta colonne en nombre, ta variable, itout, à placer ton filtre, puis à reformater ta colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RendezVousDuJour()
Dim variable As Date
Dim ColDates As Integer
Dim f1 As Worksheet
Set f1 = Worksheets("Feuil1")
    ColDates = 9 'Tu mets le N° de ta colonne
    f1.Columns(ColDates).NumberFormat = "0"
    variable = cdate(Int(CDbl(Now))) 
    f1.Range("A1").CurrentRegion.Select
    Selection.AutoFilter Field:=2, Criteria1:="rendez vous"
    Selection.AutoFilter Field:=6, Criteria1:=variable
    f1.Columns(ColDates).NumberFormat = "dd/mm/yyyy"
End Sub

Juste pour l'idée, j'ai testé pour un tri, pas pour un filtre mais ça devrait coller

A+

**gabygaby** · 10/04/2007, 20h33

Envoyé par ouskel'n'or

Tu as une solution simple consistant à formater ta colonne en nombre, ta variable, itout, à placer ton filtre, puis à reformater ta colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RendezVousDuJour()
Dim variable As Date
Dim ColDates As Integer
Dim f1 As Worksheet
Set f1 = Worksheets("Feuil1")
    ColDates = 9 'Tu mets le N° de ta colonne
    f1.Columns(ColDates).NumberFormat = "0"
    variable = cdate(Int(CDbl(Now))) 
    f1.Range("A1").CurrentRegion.Select
    Selection.AutoFilter Field:=2, Criteria1:="rendez vous"
    Selection.AutoFilter Field:=6, Criteria1:=variable
    f1.Columns(ColDates).NumberFormat = "dd/mm/yyyy"
End Sub

Juste pour l'idée, j'ai testé pour un tri, pas pour un filtre mais ça devrait coller

A+

Le filtre ne donne rien.
Par contre si je suis ta précédente idée et que dans mon tableau j'entre les dates en jj/mm/20aa cela marche !
Mais comme dans mon tableau j'entre les dates en j/m/aa cela ne marche pas => il suffirait que "variable" soit freormaté en j/m/aa