Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Filtrer les dates sur 2 colonnes

2 réponses
Avatar
alain Lebayle
Bonsoir,
J'ai un tableau avec dans la colonne F des dates ainsi que dans la colonne I
Je souhaite filtrer les dates afin d'avoir quelquechose du genre :
Cela ne fonctionne pas correctement, je crois savoir que dans mon cas il
faut passer par un filtre élaboré, mais là, je ne sais pas faire du tout...
Je vous remercie beaucoup
Alain

Sub Macro1()
Mavar = Range("Année_départ").Value
Mavar2 = Range("Année_fin").Value
Range("A1:I250").Select
Selection.AutoFilter Field:=6, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
Selection.AutoFilter Field:=9, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
End Sub

2 réponses

Avatar
JPMonnier
Bonsoir,
proc pour filtre élaboré
Sub Macro1()
Mavar = Range("Année_départ").Value
Mavar2 = Range("Année_fin").Value
Range("A1:I250").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"K1:L3"), CopyToRange:=Range("N1:Q1"), Unique:úlse
'K1 = dep ou nom de champ de la base)
'L1 = arr (ou nom de champ de la base)
'K2 = valeur de Année_Départ
'L3 = valeur de Année_Fin
'N1:Q1 = Sorties des données filtrées
'N1 et Q1 = noms des champs de la base à extraire
End Sub
--
Cordialement


"alain Lebayle" a écrit dans le message de
news:48e8f9d3$0$7935$
Bonsoir,
J'ai un tableau avec dans la colonne F des dates ainsi que dans la colonne
I
Je souhaite filtrer les dates afin d'avoir quelquechose du genre :
Cela ne fonctionne pas correctement, je crois savoir que dans mon cas il
faut passer par un filtre élaboré, mais là, je ne sais pas faire du
tout...
Je vous remercie beaucoup
Alain

Sub Macro1()
Mavar = Range("Année_départ").Value
Mavar2 = Range("Année_fin").Value
Range("A1:I250").Select
Selection.AutoFilter Field:=6, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
Selection.AutoFilter Field:=9, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
End Sub




Avatar
alain Lebayle
Bonsoir JP
C'est parfait merci beaucoup
Alain

"JPMonnier" a écrit dans le message de news:

Bonsoir,
proc pour filtre élaboré
Sub Macro1()
Mavar = Range("Année_départ").Value
Mavar2 = Range("Année_fin").Value
Range("A1:I250").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"K1:L3"), CopyToRange:=Range("N1:Q1"), Unique:úlse
'K1 = dep ou nom de champ de la base)
'L1 = arr (ou nom de champ de la base)
'K2 = valeur de Année_Départ
'L3 = valeur de Année_Fin
'N1:Q1 = Sorties des données filtrées
'N1 et Q1 = noms des champs de la base à extraire
End Sub
--
Cordialement


"alain Lebayle" a écrit dans le message
de news:48e8f9d3$0$7935$
Bonsoir,
J'ai un tableau avec dans la colonne F des dates ainsi que dans la
colonne I
Je souhaite filtrer les dates afin d'avoir quelquechose du genre :
Cela ne fonctionne pas correctement, je crois savoir que dans mon cas il
faut passer par un filtre élaboré, mais là, je ne sais pas faire du
tout...
Je vous remercie beaucoup
Alain

Sub Macro1()
Mavar = Range("Année_départ").Value
Mavar2 = Range("Année_fin").Value
Range("A1:I250").Select
Selection.AutoFilter Field:=6, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
Selection.AutoFilter Field:=9, Criteria1:=">=" & Mavar * 1, _
Operator:=xlAnd, Criteria2:="<=" & Mavar2 * 1
End Sub