Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [W98se][EXCEL2000] autofilter et macros

[W98se][EXCEL2000] autofilter et macros

2 réponses
Avatar
highvalue
bonjour,

encore moi, voilà mon PB :

j'ai défini des filtres autmatiques sur plusieurs colonnes, en particulier :

date, d'une part et mois (en lettre) d'autre part.

les contenus :

une cellule date, (B19 par ex) au format nombre standard présente la valeur
: 38434
au format date choisi (HA! le choix dans la date, mais je m'égare . . ) :
23/03/05

la cellule mois (C19) =textemois(MOIS(B19)) - textemois ramène Mars tout
simplement

J'ai défini des filtres qui fonctionnent très bien, à la main.

Mon objectif est d'opérer en un clic, à l'aide d'une macro une sélection
donnée.

Donc Macro enregistrer . . .Macro executer, pour le mois , une petite
adaptation . . . ça donne
lemois = textemois(Month(Date))
Selection.AutoFilter Field:=3, Criteria1:=lemois

et ça marche.

sur la zone date,macro enregistrer donne :
Selection.AutoFilter Field:=2, Criteria1:="22/03/05"

et tel quel, macro exécuter, ça ne marche pas.

j'essaie :
valeur = "22/03/05"
Selection.AutoFilter Field:=2, Criteria1:=valeur
nada

valeur = Chr(34) & "22/03/05" & Chr(34)
rien

valeur = "#" & "22/03/05" & "#"
toujours rien

avec
Dim valeur As Date
valeur = "22/03/05"
idem

Dim valeur As Date
valeur = 38433
toujours rien

et pour finir
Dim valeur
valeur = 38433
encore rien.

Voilà, j'ai fait le tour de tout ce qui me semblait plausible avec mes
humbles petits bras et mes mains pleines de doigts : JE SECHE

et je me tourne donc vers vous, source incommensurable de savoir hautement
technologique.
(j'ai un peu trop lu sanantonio je crois)

merci d'avance de la solution pertinente que vous ne manquerz pas de
m'indiquer

cordialement,

FF

ps.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - -
Pour les ceusses qui seraient intéressés, j'offre ce tableau de suivi
d'activité (apres cette dernière touche) :
ça marche comme ça :
cliquer sur bouton début pour insérer une nouvelle ligne. entrer le
code(nom) projet, un descriptif de la tache

quand une tache est finie, se positionner sur la ligne et cliquer sur le
bouton fin. Un décompte de temps est effectué. saisir OK si la tâche est
terminée.

il est possible de mettre en pause et de redémarrer.

des filtres automatiques sont définis sur projet/date/mois/semaine, avec un
sous-total du temps de la sélection.
il est donc hyper simple d'obtenir un rapport d'activité journalier, hebdo,
mensuel, et/ou par projet (client).
seule contrainte, le tableau doit être ouvert sur le poste de travail.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - -
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour HighValue,

Microsoft a jeté un sort au date ! ;-))

Avec un filtre automatique, il est impossible d'utiliser l'opérateur "=" ....même si ta version d'excel était
"Américaine".

L'alternative la plus appropriée lorsqu'il s'agit d'obtenir des filtres sur des champs date est l'utilisation du filtre
élaboré.


Salutations!




"highvalue" a écrit dans le message de news: 4241847c$0$5116$
bonjour,

encore moi, voilà mon PB :

j'ai défini des filtres autmatiques sur plusieurs colonnes, en particulier :

date, d'une part et mois (en lettre) d'autre part.

les contenus :

une cellule date, (B19 par ex) au format nombre standard présente la valeur
: 38434
au format date choisi (HA! le choix dans la date, mais je m'égare . . ) :
23/03/05

la cellule mois (C19) =textemois(MOIS(B19)) - textemois ramène Mars tout
simplement

J'ai défini des filtres qui fonctionnent très bien, à la main.

Mon objectif est d'opérer en un clic, à l'aide d'une macro une sélection
donnée.

Donc Macro enregistrer . . .Macro executer, pour le mois , une petite
adaptation . . . ça donne
lemois = textemois(Month(Date))
Selection.AutoFilter Field:=3, Criteria1:=lemois

et ça marche.

sur la zone date,macro enregistrer donne :
Selection.AutoFilter Field:=2, Criteria1:="22/03/05"

et tel quel, macro exécuter, ça ne marche pas.

j'essaie :
valeur = "22/03/05"
Selection.AutoFilter Field:=2, Criteria1:=valeur
nada

valeur = Chr(34) & "22/03/05" & Chr(34)
rien

valeur = "#" & "22/03/05" & "#"
toujours rien

avec
Dim valeur As Date
valeur = "22/03/05"
idem

Dim valeur As Date
valeur = 38433
toujours rien

et pour finir
Dim valeur
valeur = 38433
encore rien.

Voilà, j'ai fait le tour de tout ce qui me semblait plausible avec mes
humbles petits bras et mes mains pleines de doigts : JE SECHE

et je me tourne donc vers vous, source incommensurable de savoir hautement
technologique.
(j'ai un peu trop lu sanantonio je crois)

merci d'avance de la solution pertinente que vous ne manquerz pas de
m'indiquer

cordialement,

FF

ps.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - -
Pour les ceusses qui seraient intéressés, j'offre ce tableau de suivi
d'activité (apres cette dernière touche) :
ça marche comme ça :
cliquer sur bouton début pour insérer une nouvelle ligne. entrer le
code(nom) projet, un descriptif de la tache

quand une tache est finie, se positionner sur la ligne et cliquer sur le
bouton fin. Un décompte de temps est effectué. saisir OK si la tâche est
terminée.

il est possible de mettre en pause et de redémarrer.

des filtres automatiques sont définis sur projet/date/mois/semaine, avec un
sous-total du temps de la sélection.
il est donc hyper simple d'obtenir un rapport d'activité journalier, hebdo,
mensuel, et/ou par projet (client).
seule contrainte, le tableau doit être ouvert sur le poste de travail.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - -
Avatar
highvalue
L'alternative la plus appropriée lorsqu'il s'agit d'obtenir des filtres
sur des champs date est l'utilisation du filtre

élaboré.


Bon ben voilà, c'est fait, un petit filtre élaboré dans ma macro :
----------------------------------------------------------------------------
------
Call sub_developper (ça c'est pour développer tous les filtres auto
précédents - show all data ne me convient pas)

'Filtre élaboré
Range("afiltrer").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("A20:B21"), Unique:úlse
----------------------------------------------------------------------------
------
en A20:B21 :
-----------------
Date
¢4<>$A$22 =AUJOURDHUI()
-----------------

Y a plus qu'à

merci encore,

FF


Salutations!




"highvalue" a écrit dans le message de
news: 4241847c$0$5116$

bonjour,

encore moi, voilà mon PB :

j'ai défini des filtres autmatiques sur plusieurs colonnes, en particulier
:


date, d'une part et mois (en lettre) d'autre part.

les contenus :

une cellule date, (B19 par ex) au format nombre standard présente la
valeur

: 38434
au format date choisi (HA! le choix dans la date, mais je m'égare . . ) :
23/03/05

la cellule mois (C19) =textemois(MOIS(B19)) - textemois ramène Mars tout
simplement

J'ai défini des filtres qui fonctionnent très bien, à la main.

Mon objectif est d'opérer en un clic, à l'aide d'une macro une sélection
donnée.

Donc Macro enregistrer . . .Macro executer, pour le mois , une petite
adaptation . . . ça donne
lemois = textemois(Month(Date))
Selection.AutoFilter Field:=3, Criteria1:=lemois

et ça marche.

sur la zone date,macro enregistrer donne :
Selection.AutoFilter Field:=2, Criteria1:="22/03/05"

et tel quel, macro exécuter, ça ne marche pas.

j'essaie :
valeur = "22/03/05"
Selection.AutoFilter Field:=2, Criteria1:=valeur
nada

valeur = Chr(34) & "22/03/05" & Chr(34)
rien

valeur = "#" & "22/03/05" & "#"
toujours rien

avec
Dim valeur As Date
valeur = "22/03/05"
idem

Dim valeur As Date
valeur = 38433
toujours rien

et pour finir
Dim valeur
valeur = 38433
encore rien.

Voilà, j'ai fait le tour de tout ce qui me semblait plausible avec mes
humbles petits bras et mes mains pleines de doigts : JE SECHE

et je me tourne donc vers vous, source incommensurable de savoir hautement
technologique.
(j'ai un peu trop lu sanantonio je crois)

merci d'avance de la solution pertinente que vous ne manquerz pas de
m'indiquer

cordialement,

FF

ps.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

- - - - - - - - - - - - - -
Pour les ceusses qui seraient intéressés, j'offre ce tableau de suivi
d'activité (apres cette dernière touche) :
ça marche comme ça :
cliquer sur bouton début pour insérer une nouvelle ligne. entrer le
code(nom) projet, un descriptif de la tache

quand une tache est finie, se positionner sur la ligne et cliquer sur le
bouton fin. Un décompte de temps est effectué. saisir OK si la tâche est
terminée.

il est possible de mettre en pause et de redémarrer.

des filtres automatiques sont définis sur projet/date/mois/semaine, avec
un

sous-total du temps de la sélection.
il est donc hyper simple d'obtenir un rapport d'activité journalier,
hebdo,

mensuel, et/ou par projet (client).
seule contrainte, le tableau doit être ouvert sur le poste de travail.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

- - - - - - - - - - - - - -