Trinitybarb
XLDnaute Junior
Je n'en fini pas. Je pensais que tout serait ok après la réponse de BrunoM45 mais non.
Quand je fais cette première manipulation tout est ok, la première case est B17 et il va bien dessus.
Selection.AutoFilter Field:=2, Criteria1:="Q1"
Selection.AutoFilter Field:=1, Criteria1:="<40179", Operator:=xlAnd
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
C'est quasiment comme un CTRL+Home il se place sur la première case du volet figer.
Mais lorsque je le fais avec cette commande il me met encore sur B17 et il devrai être sur B57 car après avoir activer le filtre Q2, la première cellule des volets figer est B57. Je ne peux pas lui dire d'aller sur la cellule B57 car le Q2 va changer au courant des changements.
Selection.AutoFilter Field:=2, Criteria1:="Q2"
Selection.AutoFilter Field:=1, Criteria1:="<40179", Operator:=xlAnd
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Pouvez-vous m'aider encore une fois
Quand je fais cette première manipulation tout est ok, la première case est B17 et il va bien dessus.
Selection.AutoFilter Field:=2, Criteria1:="Q1"
Selection.AutoFilter Field:=1, Criteria1:="<40179", Operator:=xlAnd
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
C'est quasiment comme un CTRL+Home il se place sur la première case du volet figer.
Mais lorsque je le fais avec cette commande il me met encore sur B17 et il devrai être sur B57 car après avoir activer le filtre Q2, la première cellule des volets figer est B57. Je ne peux pas lui dire d'aller sur la cellule B57 car le Q2 va changer au courant des changements.
Selection.AutoFilter Field:=2, Criteria1:="Q2"
Selection.AutoFilter Field:=1, Criteria1:="<40179", Operator:=xlAnd
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Pouvez-vous m'aider encore une fois