• Initiateur de la discussion Initiateur de la discussion flo2002
  • Date de début Date de début

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 !

flo2002

XLDnaute Impliqué
Bonjour le forum,

un petit probleme sur mes sous totaux, quand je click sur le bouton de la macro il me met un message d'erreur sur le faitqu'il ne trouve pas les etiquettes et donc je voudrais enlever ce message.
Voici le code:
Sub Ajouter_SsttxRF()
'
' Ajouter_Ssttx Macro
' Macro enregistrée le 09/05/2006 par fllecorr
'

'
Range('B9:gc300').Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, _
62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, _
88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110 _
, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, _
130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149 _
, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, _
169, 170, 171, 172, 173, 174, 175, 176, 177, 178), Replace:=True, PageBreaks:=False _
, SummaryBelowData:=True
Range('a1').Select

End Sub

Une idée? Merci!
 
Salut,

Sub zzz()
Application.DisplayAlerts = False
'blabla
Application.DisplayAlerts = True
End Sub

PS : C'est une très, très mauvaise idée d'a&voir des tableaux sans étiquettes de colonnes (ou lignes) !

AV [aaa]
 
- 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

  • Question Question
XL 2013 Aide VBA
Réponses
4
Affichages
1 K
Réponses
3
Affichages
3 K
Compte Supprimé 979
C
Retour