bb3n
XLDnaute Nouveau
Bonjours,
Je vous contacte car j'ai un assez gros soucis avec mes macro.
J'aimerais mettre en place un sous total après filtre sur un document
Le problème, c'est que le nombre de ligne vas en s'agrandissant et que les références de suivent pas. Je ne suis pas une flèche sur VBA, je requiers votre aide.
Voici la partie concerné de la macro:
Selection.autofilter Field:=1
Selection.autofilter Field:=1, Criteria1:=numMonthStart, Operator:=xlAnd
ActiveSheet.Range("$A$1:$K$3634").autofilter Field:=4, Criteria1:="704400"
Cells.Find(What:="bleblebleble", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
(Le "blebleble" c'est un un petit bidouillage qui me renvoie a la première cellule vide)
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-3633]C:R[-1]C)"
Ici arrive mon problème car la première référence (3633) devient caduc a la première mise a jours et fausse tout les résultats. Y a t'il un moyen de la rendre dynamique?
Merci
Je vous contacte car j'ai un assez gros soucis avec mes macro.
J'aimerais mettre en place un sous total après filtre sur un document
Le problème, c'est que le nombre de ligne vas en s'agrandissant et que les références de suivent pas. Je ne suis pas une flèche sur VBA, je requiers votre aide.
Voici la partie concerné de la macro:
Selection.autofilter Field:=1
Selection.autofilter Field:=1, Criteria1:=numMonthStart, Operator:=xlAnd
ActiveSheet.Range("$A$1:$K$3634").autofilter Field:=4, Criteria1:="704400"
Cells.Find(What:="bleblebleble", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
(Le "blebleble" c'est un un petit bidouillage qui me renvoie a la première cellule vide)
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-3633]C:R[-1]C)"
Ici arrive mon problème car la première référence (3633) devient caduc a la première mise a jours et fausse tout les résultats. Y a t'il un moyen de la rendre dynamique?
Merci