Je souhaite SVP connaître comment activer une macro depuis un bouton qui
permette de trier en fonction du contenu de deux cellules (date début dans
cellule F1) et (date fin dans cellule F2)
la zone a trier est de ("A3:J300"
J'ai essayé par cette macro sans succés ==>
Sub research()
Range("A3:J300").Select
ActiveWindow.LargeScroll Down:=-16
ActiveWindow.SmallScroll Down:=-4
ActiveWindow.LargeScroll Down:=-9
Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _
Criteria2:="<=$f$2"
End Sub
Merci pour votre aide
EB
Je souhaite SVP connaître comment activer une macro depuis un bouton qu i permette de trier en fonction du contenu de deux cellules (date début d ans cellule F1) et (date fin dans cellule F2) la zone a trier est de ("A3:J300" J'ai essayé par cette macro sans succés ==> Sub research() Range("A3:J300").Select ActiveWindow.LargeScroll Down:=-16 ActiveWindow.SmallScroll Down:=-4 ActiveWindow.LargeScroll Down:=-9 Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operato r:=xlAnd, _ Criteria2:="<=$f$2" End Sub Merci pour votre aide EB
Bonjour,
Sub filtre2Dates()
Range("A1")..AutoFilter Field:=5, _
Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"),
Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy")
End Sub
On 28 avr, 06:54, Solajoer <Solaj...@discussions.microsoft.com> wrote:
Je souhaite SVP connaître comment activer une macro depuis un bouton qu i
permette de trier en fonction du contenu de deux cellules (date début d ans
cellule F1) et (date fin dans cellule F2)
la zone a trier est de ("A3:J300"
J'ai essayé par cette macro sans succés ==>
Sub research()
Range("A3:J300").Select
ActiveWindow.LargeScroll Down:=-16
ActiveWindow.SmallScroll Down:=-4
ActiveWindow.LargeScroll Down:=-9
Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operato r:=xlAnd, _
Criteria2:="<=$f$2"
End Sub
Merci pour votre aide
EB
Je souhaite SVP connaître comment activer une macro depuis un bouton qu i permette de trier en fonction du contenu de deux cellules (date début d ans cellule F1) et (date fin dans cellule F2) la zone a trier est de ("A3:J300" J'ai essayé par cette macro sans succés ==> Sub research() Range("A3:J300").Select ActiveWindow.LargeScroll Down:=-16 ActiveWindow.SmallScroll Down:=-4 ActiveWindow.LargeScroll Down:=-9 Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operato r:=xlAnd, _ Criteria2:="<=$f$2" End Sub Merci pour votre aide EB
Solajoer
Merci pour votre aide, n'étant pas un expert des macros, la macro ne fonctionne pas comme attendu, c'est à dire que le résultat me donne des lignes vides, juste après la dernière ligne du tableau contenant des dates. Je suppose qu'il y a un format non correct sur les dates début et fin
ci-après le code que j'ai inscrit pour le Btn Private Sub CommandButton2_Click() Range("f4").Select Selection.AutoFilter Field:=6, _ Criteria1:=">" & Format(Range("E1"), "mm/dd/yy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(Range("E2"), "mm/dd/yy") End Sub
j'ai essayé d'inverser mm et dd avec toujours le même résultat.
le format choisi pour la colonne échéance est catégorie Date et type 03/14/98
Je pense avoir été assez explicite pour faire part du dysfonctionnement de la macro? Encore merci pour votre précieuse contribution, Cdlt, Eric BRAVI
"JB" a écrit :
Bonjour,
Sub filtre2Dates() Range("A1")..AutoFilter Field:=5, _ Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy") End Sub
On 28 avr, 06:54, Solajoer wrote: > Je souhaite SVP connaître comment activer une macro depuis un bouton qui > permette de trier en fonction du contenu de deux cellules (date début dans > cellule F1) et (date fin dans cellule F2) > la zone a trier est de ("A3:J300" > J'ai essayé par cette macro sans succés ==> > Sub research() > Range("A3:J300").Select > ActiveWindow.LargeScroll Down:=-16 > ActiveWindow.SmallScroll Down:=-4 > ActiveWindow.LargeScroll Down:=-9 > Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _ > Criteria2:="<=$f$2" > End Sub > Merci pour votre aide > EB
Merci pour votre aide,
n'étant pas un expert des macros, la macro ne fonctionne pas comme attendu,
c'est à dire que le résultat me donne des lignes vides, juste après la
dernière ligne du tableau contenant des dates.
Je suppose qu'il y a un format non correct sur les dates début et fin
ci-après le code que j'ai inscrit pour le Btn
Private Sub CommandButton2_Click()
Range("f4").Select
Selection.AutoFilter Field:=6, _
Criteria1:=">" & Format(Range("E1"), "mm/dd/yy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("E2"), "mm/dd/yy")
End Sub
j'ai essayé d'inverser mm et dd avec toujours le même résultat.
le format choisi pour la colonne échéance est catégorie Date et type 03/14/98
Je pense avoir été assez explicite pour faire part du dysfonctionnement de
la macro?
Encore merci pour votre précieuse contribution,
Cdlt,
Eric BRAVI
"JB" a écrit :
Bonjour,
Sub filtre2Dates()
Range("A1")..AutoFilter Field:=5, _
Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"),
Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy")
End Sub
On 28 avr, 06:54, Solajoer <Solaj...@discussions.microsoft.com> wrote:
> Je souhaite SVP connaître comment activer une macro depuis un bouton qui
> permette de trier en fonction du contenu de deux cellules (date début dans
> cellule F1) et (date fin dans cellule F2)
> la zone a trier est de ("A3:J300"
> J'ai essayé par cette macro sans succés ==>
> Sub research()
> Range("A3:J300").Select
> ActiveWindow.LargeScroll Down:=-16
> ActiveWindow.SmallScroll Down:=-4
> ActiveWindow.LargeScroll Down:=-9
> Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _
> Criteria2:="<=$f$2"
> End Sub
> Merci pour votre aide
> EB
Merci pour votre aide, n'étant pas un expert des macros, la macro ne fonctionne pas comme attendu, c'est à dire que le résultat me donne des lignes vides, juste après la dernière ligne du tableau contenant des dates. Je suppose qu'il y a un format non correct sur les dates début et fin
ci-après le code que j'ai inscrit pour le Btn Private Sub CommandButton2_Click() Range("f4").Select Selection.AutoFilter Field:=6, _ Criteria1:=">" & Format(Range("E1"), "mm/dd/yy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(Range("E2"), "mm/dd/yy") End Sub
j'ai essayé d'inverser mm et dd avec toujours le même résultat.
le format choisi pour la colonne échéance est catégorie Date et type 03/14/98
Je pense avoir été assez explicite pour faire part du dysfonctionnement de la macro? Encore merci pour votre précieuse contribution, Cdlt, Eric BRAVI
"JB" a écrit :
Bonjour,
Sub filtre2Dates() Range("A1")..AutoFilter Field:=5, _ Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy") End Sub
On 28 avr, 06:54, Solajoer wrote: > Je souhaite SVP connaître comment activer une macro depuis un bouton qui > permette de trier en fonction du contenu de deux cellules (date début dans > cellule F1) et (date fin dans cellule F2) > la zone a trier est de ("A3:J300" > J'ai essayé par cette macro sans succés ==> > Sub research() > Range("A3:J300").Select > ActiveWindow.LargeScroll Down:=-16 > ActiveWindow.SmallScroll Down:=-4 > ActiveWindow.LargeScroll Down:=-9 > Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _ > Criteria2:="<=$f$2" > End Sub > Merci pour votre aide > EB
Solajoer
Merci beaucoup pour votre collaboration. Vos pages sur le sujet sont trés bien renseigné et fort bien présentées. Encore merci, Cdlt, Eric BRAVI
"JB" a écrit :
Bonjour,
Sub filtre2Dates() Range("A1")..AutoFilter Field:=5, _ Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy") End Sub
On 28 avr, 06:54, Solajoer wrote: > Je souhaite SVP connaître comment activer une macro depuis un bouton qui > permette de trier en fonction du contenu de deux cellules (date début dans > cellule F1) et (date fin dans cellule F2) > la zone a trier est de ("A3:J300" > J'ai essayé par cette macro sans succés ==> > Sub research() > Range("A3:J300").Select > ActiveWindow.LargeScroll Down:=-16 > ActiveWindow.SmallScroll Down:=-4 > ActiveWindow.LargeScroll Down:=-9 > Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _ > Criteria2:="<=$f$2" > End Sub > Merci pour votre aide > EB
Merci beaucoup pour votre collaboration. Vos pages sur le sujet sont trés
bien renseigné et fort bien présentées.
Encore merci,
Cdlt,
Eric BRAVI
"JB" a écrit :
Bonjour,
Sub filtre2Dates()
Range("A1")..AutoFilter Field:=5, _
Criteria1:=">" & Format(Range("E1"), "mm/dd/yyyy"),
Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("E2"), "mm/dd/yyyy")
End Sub
On 28 avr, 06:54, Solajoer <Solaj...@discussions.microsoft.com> wrote:
> Je souhaite SVP connaître comment activer une macro depuis un bouton qui
> permette de trier en fonction du contenu de deux cellules (date début dans
> cellule F1) et (date fin dans cellule F2)
> la zone a trier est de ("A3:J300"
> J'ai essayé par cette macro sans succés ==>
> Sub research()
> Range("A3:J300").Select
> ActiveWindow.LargeScroll Down:=-16
> ActiveWindow.SmallScroll Down:=-4
> ActiveWindow.LargeScroll Down:=-9
> Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _
> Criteria2:="<=$f$2"
> End Sub
> Merci pour votre aide
> EB
On 28 avr, 06:54, Solajoer wrote: > Je souhaite SVP connaître comment activer une macro depuis un bouton qui > permette de trier en fonction du contenu de deux cellules (date début dans > cellule F1) et (date fin dans cellule F2) > la zone a trier est de ("A3:J300" > J'ai essayé par cette macro sans succés ==> > Sub research() > Range("A3:J300").Select > ActiveWindow.LargeScroll Down:=-16 > ActiveWindow.SmallScroll Down:=-4 > ActiveWindow.LargeScroll Down:=-9 > Selection.AutoFilter Field:=6, Criteria1:=">=$f$1", Operator:=xlAnd, _ > Criteria2:="<=$f$2" > End Sub > Merci pour votre aide > EB