Bonjour le forum,
Je fais des macros sans écrire moi même le code, je fais simplement les manipulations en enregistrant, j'ai fais une macro qui consiste à étirer une formule de la cellule S6 à la fin de la colonne du tableau. Le code écris la dernière cellule, du tableau donc si j'utilise la même macro pour un autre tableau où il y a plus ou moins de lignes elle ne fonctionne pas que dois-je changer dans le code :
Range("S6").Select
Selection.AutoFill Destination:=Range("S6:S1785")
Dans le même esprit, j'effectue 3 sous totaux à la suite, mais je n'arrive pas à obtenir la sélection du tableau comme il le faut le ctrl+maj+flèche ne fonctionne pas puisque des trous se créent à cause des sous totaux, et cette macro sert également pour des tableaux de différentes tailles (changement du nombre de lignes seulement) comment puis-je arranger ça :
Range("A5:AE1785").Select
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=12
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=30, Function:=xlSum, TotalList:=Array(18, 19, _
20, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Je fais des macros sans écrire moi même le code, je fais simplement les manipulations en enregistrant, j'ai fais une macro qui consiste à étirer une formule de la cellule S6 à la fin de la colonne du tableau. Le code écris la dernière cellule, du tableau donc si j'utilise la même macro pour un autre tableau où il y a plus ou moins de lignes elle ne fonctionne pas que dois-je changer dans le code :
Range("S6").Select
Selection.AutoFill Destination:=Range("S6:S1785")
Dans le même esprit, j'effectue 3 sous totaux à la suite, mais je n'arrive pas à obtenir la sélection du tableau comme il le faut le ctrl+maj+flèche ne fonctionne pas puisque des trous se créent à cause des sous totaux, et cette macro sert également pour des tableaux de différentes tailles (changement du nombre de lignes seulement) comment puis-je arranger ça :
Range("A5:AE1785").Select
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=12
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=30, Function:=xlSum, TotalList:=Array(18, 19, _
20, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True