Discussion :

[gabygaby]

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]

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]

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]

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]

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]

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+