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

somme de cellule sous condition et copie des lignes sous condition vers onglet

  • Initiateur de la discussion Initiateur de la discussion manpower
  • 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 !

M

manpower

Guest
slt je souhaiterais fait une macro qui insere deux ligne vide si la valeur de cellule du haut est differente de celle du bas en colonne A(bon ca c'est deja fait),faire aussi la somme des montant en colonne c et enfin copier sur chaque onglet les ligne correspondant a la somme de ces montants
voici un aperçu de mon fichier
merci a vous
 

Pièces jointes

Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

Bonsoir.

Normalement cette macro fait déjà le plus gros :
VB:
Sub Macro1()
Range("A1").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
   Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.ClearOutline
End Sub

… Et comme ça ça fait tout et même plus:
VB:
Sub Macro1()
Range("A1").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
   Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").ClearOutline
Columns("C:C").SpecialCells(xlCellTypeFormulas, 1).EntireRow.Offset(1).Insert
End Sub
 
Dernière édition:
Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

mercii le code marche parfaitement pour ce qui est du sous total,ms j'ai deux preocupations encor d'abors je voulais copier toutes les ligne rattaché a chaque sous total vers onglet et aussi
comment faire dans le cas simplement d'une somme(total) par exemple en colonne c
 
Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

tu px m'expliqué un peu ce code qui tu ma donné et aussi est-il possible de metttre une couleur a chaque sous-total
 
Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

Essayez comme ça :
VB:
Sub Macro1()
Dim Zon As Range, Coul As Long
Range("A1").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
   Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").ClearOutline
With Columns("C:C").SpecialCells(xlCellTypeFormulas, 1).EntireRow
   Coul = 2
   For Each Zon In .Areas
      Coul = Coul + 1: Zon.Interior.ColorIndex = Coul
      Next Zon
   .Copy Destination:=FeuilX.[A1]
   .Offset(1).Insert: End If
End Sub
Et utilisez la touche F1 sur les mot que vous ne connaissez pas.
 
Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

merciiiiiiiiiiiiii c marche tres bien neu nivo des couleurs mais pour la copie ca ne marche pas au niveau de ce ccode
.Copy Destination:=FeuilX.[A1]
.Offset(1).Insert: End with
tu peux corrigé ca stp
 
Re : somme de cellule sous condition et copie des lignes sous condition vers onglet

Bonjour.
Il faut bien évidemment remplacer FeuilX par le CodeName de la feuille souhaitée.
Vous l'avez fait je suppose. Il y a donc un problème parce que ce sont des formules qui sont copiées et qu'elle ne donnent plus le bon résultat ?
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…