Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA: Problèmes avec les sous totaux

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Cacou78

XLDnaute Nouveau
Bonjour, j'ai ce code suivant,et j'obtiens une erreur de type 1004 au niveau de ce que j'ai surligné en rouge.
J'ai sorti ce code de l'enregistreur de macros que j'ai modifié, a la base à ce niveau il y avait " array(4,5,6)".
Mais en fet j'ai besoin d'avoir un code générale, car mon tableau peut avoir 4 colonne comme 21. Sauriez vous comment faire?
En vous remerçiant, d'avance.
Rébecca

Sub tableau()
Dim DerLigne As Long
Dim DerColonne As Integer, I As Integer
Application.ScreenUpdating = False
With Sheets("Synt_charge")
DerLigne = .[A65000].End(xlUp).Row 'dernière ligne de la feuille Synt_charge
DerColonne = .[IV2].End(xlToLeft).Column 'dernière colonne de la ligne 2 de la feuille Synt_charge
End With
Sheets("Synt_charge").Activate
ActiveWindow.SmallScroll Down:=-14
Range(Cells(1, 1), Cells(DerLigne, DerColonne)).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
"B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ 'tri les colonnes a et b
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Range(Cells(1, 4), Cells(1, DerColonne)), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne a, des colonnes 4 jusqu'à la derniere
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Range(Cells(1, 4), Cells(1, DerColonne)), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne b, des colonnes 4 jusqu'à la derniere
ActiveSheet.Outline.ShowLevels RowLevels:=3
End Sub
 
Trier par date Trier par votes
Re : VBA: Problèmes avec les sous totaux

Re,

à tester :

Code: 
Sub tableau()
Dim DerLigne As Long
Dim DerColonne As Integer, I As Integer, [COLOR=red]Tablo() as Long[/COLOR]
Application.ScreenUpdating = False
With Sheets("Synt_charge")
DerLigne = .[A65000].End(xlUp).Row 'dernière ligne de la feuille Synt_charge
DerColonne = .[IV2].End(xlToLeft).Column 'dernière colonne de la ligne 2 de la feuille Synt_charge
[COLOR=red]Redim Tablo(DerColonne - 4)[/COLOR]
[COLOR=red]For I = LBound(Tablo) to Ubound(Tablo)[/COLOR]
[COLOR=red]Tablo(I) = I + 4[/COLOR]
[COLOR=red]Next I[/COLOR]
End With
Sheets("Synt_charge").Activate
ActiveWindow.SmallScroll Down:=-14
Range(Cells(1, 1), Cells(DerLigne, DerColonne)).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
"B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ 'tri les colonnes a et b
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=1, Function:=xlSum, [COLOR=red]TotalList:=Tablo, _[/COLOR]
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne a, des colonnes 4 jusqu'à la derniere
Selection.Subtotal GroupBy:=2, Function:=xlSum, [COLOR=red]TotalList:=Tablo[/COLOR], _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne b, des colonnes 4 jusqu'à la derniere
ActiveSheet.Outline.ShowLevels RowLevels:=3
End Sub
 
Vote positif 0 Vote négatif
Re : VBA: Problèmes avec les sous totaux

Re,

essaye de remplacer

Code: 
Selection.Subtotal GroupBy:=1, Function:=xlSum, [COLOR=red]TotalList:=Tablo, _[/COLOR]
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne a, des colonnes 4 jusqu'à la derniere
Selection.Subtotal GroupBy:=2, Function:=xlSum, [COLOR=red]TotalList:=Tablo[/COLOR], _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne b, des colonnes 4 jusqu'à la derniere

par

Code: 
[COLOR=royalblue]Range("A1")[/COLOR].Subtotal GroupBy:=1, Function:=xlSum, [COLOR=red]TotalList:=Tablo, _[/COLOR]
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne a, des colonnes 4 jusqu'à la derniere
[COLOR=royalblue]Range("A1")[/COLOR].Subtotal GroupBy:=2, Function:=xlSum, [COLOR=red]TotalList:=Tablo[/COLOR], _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ' sous total en fonction de colonne b, des colonnes 4 jusqu'à la derniere
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
652
Gestionnaire_rh
G
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
484
CortoXls
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
146
Electron24
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
289
Dranreb
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
509
MBEPID
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
495
telemarrk
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
342
VBA_dev_Anne_Marie
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
510
tnion
T
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
210
Lau01150
L
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
814
jurassic pork
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
514
Gégé-45550
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
651
GClaire
G
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
301
spike29
S
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
298
Dranreb
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
501
89ric
8
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
699
Compte Supprimé 979
C
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
349
patricktoulon
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
472
Phil69970
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
406
rebatte
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…