> Tous les forums > Forum Bureautique
 Filtrage via VBA avec parametre Variable (Date du jour en cours) RESOLUSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
sgh.chafaa
  Posté le 22/01/2018 @ 19:57 
Aller en bas de la page 

Je cherche de faire le trie automatisé de la date avec un Macro VBA, le critère est que la date à choisir doit être la date en cour du système

donc c'est un paramètre de date variable.

mon code actuel pour une date fixe (10/31/2017) est comme suit:

Sub filtedate1()

ActiveSheet.Range("$C$6:$AI$1283").AutoFilter Field:=4, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, "10/31/2017")

End Sub

J'ai chercher de changer la date "10/31/2017" par les paramètres suivants :

Date

Aujourd'hui

AUJOURDHUI()

LDate

"Date"

"Aujourd'hui()"

"LDate"

Aussi j'ai essayé d'attribuer la resultat de la fonction AUJOURDHUI() à une cellule E1 que j'ai nommé (datedaujourdhui) puis je l'ai mis parmis les variable de syntexe : Criteria2:=Array(2,datedaujourdhui)

Mais toujours erreur de Debogage, y a -t-il une solution s'il vous plait ?



Modifié par sgh.chafaa le 22/01/2018 20:25
Publicité
sgh.chafaa
 Posté le 22/01/2018 à 20:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Merci Pour Monsieur Jea-ERIC

CODE : TOUT SÉLECTIONNER

Sub filtedate1()
    ActiveSheet.Range("$C$6:$AI$1283").AutoFilter _
            Field:=4, _
            Criteria1:=xlFilterToday, _
            Operator:=xlFilterDynamic
End Sub
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
56,79 €Boitier PC Cooler Master MasterBox NR400 (Micro/Mini ATX, verre trempé) à 56,79 €
Valable jusqu'au 20 Octobre

Cdiscount fait une promotion sur le boitier PC Cooler Master MasterBox NR400 (Micro ATX, verre trempé) qui passe à 56,79 € avec le code AFFAIRE20 au lieu de 75 €. Le MasterBox NR400 de Cooler Master est un boitier au format mini tour au design sobre et élégant qui arbore une fenêtre latérale en verre trempé. Compatible avec les cartes mères mini-ITX et micro-ATX, son espace intérieur optimisé permet d'accueillir les composants gaming les plus volumineux sans sacrifier l'efficacité du refroidissement. 

Le MasterBox NR400 mise sur une bonne qualité de refroidissement et est armé de 2 ventilateurs de 120 mm (1 à l'avant et 1 à l'arrière). De nombreux emplacements 120/140 mm disponibles vous permettront d"accroître l'efficacité du refroidissement.


> Voir l'offre
349,99 €Ecran 34 pouces incurvé LG Ultragear 34GN73A-B (IPS, QHD, 144 Hz, HDR10, FreeSync/GSync) à 349,99 €
Valable jusqu'au 20 Octobre

Amazon fait une belle promotion sur l'écran incurvé LG 34 pouces LG Ultragear 34GN73A-B qui passe à 349,99 € livré gratuitement. On le trouve ailleurs à partir de 449 €. Cet écran possède une dalle incurvée 34 pouces IPS QHD (2560x1440) à 144 Hz, un temps de réponse de 1 ms. Il est compatible FreeSync et GSync. Il dispose d'entrées HDMI et DP.


> Voir l'offre
549,99 €Portable 15,6 pouces HP (FullHD, Core i7 1165G7, 8 Go, SSD 256 Go, Windows 10) à 549,99 €
Valable jusqu'au 20 Octobre

RueDuCommerce fait une promotion sur l'ordinateur portable HP Pavilion 15-eg0041nf qui passe à 699,99 € alors qu'on le trouve ailleurs autour de 800 €. Or HP rembourse actuellement 150 € pour l'achat de cet ordinateur qui vous reviendra à 549,99 € après remboursement. Ce portable possède un écran 15,6 pouces anti reflet Full HD (1920x1080), un processeur Intel Core i7-1165G7, un chip graphique Intel Irois Xe, 8 Go de RAM et un SSD de 256 Go. Le tout tourne sous Windows 10 que vous pouvez passer gratuitement à Windows 11. Il pèse 1,75 kg et offre une autonomie de 8h.


> Voir l'offre

Sujets relatifs
Excel : Comment jouer avec la date du jour
colorier cellule avec la date du jour
Date du jour avec Excel
problème Date avec macro
sommeprod avec date
Macro...Date de Mise a jour
Word insérer date du jour dans nom du fichier
Money 2005 accéder à la mise à jour automatique des cours
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
échelle des x avec deux colonnes date et heure
Plus de sujets relatifs à Filtrage via VBA avec parametre Variable (Date du jour en cours) RESOLU
 > Tous les forums > Forum Bureautique