Bonjour le forum,
Une macro me pose encore problème, je m'explique :
Je dois effectuer des sous totaux par 3 niveaux : name; nom du client; factures.
Lorsque j'effectue cette manip' par le biais de ma macro, elle ne fonctionne pas, le problème vient de ma sélection de tableau qui ne se modifie pas, je voudrais une macro qui sélectionne mon tableau (qui commence en cellule A5 avec les en tete de colonnes et qui varie selon le mois et les sous totaux) de la colonne A à la colonne AE jusqu'en bas du tableau, peut être en comptant le nombre de lignes je ne sais pas??
Quelqu'un peut-il m'aider??
La macro me donne ce code :
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
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 pense que le problème vient de la partie colorée qui ne fonctionne que pour le 1er sous total. Sachant que les sous totaux créent des cellules vides dans ma dernière colonne, le ctrl+maj+flèche ne fonctionne donc pas.
Merci d'avance.
Ophé
Une macro me pose encore problème, je m'explique :
Je dois effectuer des sous totaux par 3 niveaux : name; nom du client; factures.
Lorsque j'effectue cette manip' par le biais de ma macro, elle ne fonctionne pas, le problème vient de ma sélection de tableau qui ne se modifie pas, je voudrais une macro qui sélectionne mon tableau (qui commence en cellule A5 avec les en tete de colonnes et qui varie selon le mois et les sous totaux) de la colonne A à la colonne AE jusqu'en bas du tableau, peut être en comptant le nombre de lignes je ne sais pas??
Quelqu'un peut-il m'aider??
La macro me donne ce code :
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(18, 19, 20 _
, 21, 22, 23), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
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 pense que le problème vient de la partie colorée qui ne fonctionne que pour le 1er sous total. Sachant que les sous totaux créent des cellules vides dans ma dernière colonne, le ctrl+maj+flèche ne fonctionne donc pas.
Merci d'avance.
Ophé