Filtre personalisé
benoitbriseferpam
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voilà quand je veux récupérer dans les 2 cellules les critères >=date et and <=date la selection se fait avec inversion du mois et du jour
dep = DateValue(Tb1.Caption): arr = DateValue(Tb6.Caption)
If dep > arr Then x = dep: dep = arr: arr = x
Sheets("mém").Range("E2") = "'>=" & Str(dep): Sheets("mém").Range("E3") = "'<=" & Str(arr)
Range("A1").AutoFilter Field:=3, Criteria1:=Sheets("mém").Range("E2"), Operator:=xlAnd, Criteria2:=Sheets("mém").Range("E3")
Voilà quand je veux récupérer dans les 2 cellules les critères >=date et and <=date la selection se fait avec inversion du mois et du jour
dep = DateValue(Tb1.Caption): arr = DateValue(Tb6.Caption)
If dep > arr Then x = dep: dep = arr: arr = x
Sheets("mém").Range("E2") = "'>=" & Str(dep): Sheets("mém").Range("E3") = "'<=" & Str(arr)
Range("A1").AutoFilter Field:=3, Criteria1:=Sheets("mém").Range("E2"), Operator:=xlAnd, Criteria2:=Sheets("mém").Range("E3")
A voir également:
- Filtre personalisé
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Filtre manga - Accueil - TikTok
- Télécharger filtre lumière bleue pc gratuit - Télécharger - Divers Utilitaires
