Aide pour un travail sous exel Fermé

Question

salut toulemonde 
j'ai un problem ;  j'ai un fichier exel et dans ce fichier j'ai
           colonne a     colonne b    colonne c       colonne d 
              CODE             BD                BT                 ORG   
            101210            10                0                     15
            101210            20                30                   17
            101210            0                  24                   13
            201433            70                35                    0
            201433            62                41                   23
            345587            10                11                    0
            345587            10                0                     39
            345587              0                11                   10
            345587            28                31                   60
            514255            15                11                    0
            514255            25                10                   33
            514255            35                 0                    10
                .                    .                    .                      .
                .                    .                    .                      .
                .                    .                    .                      .
                .                    .                    .                      .
  et ce tableau contient plus de 9000 lignes et plusieurs numero de code .
le problem comment faire pour faire la somme de meme CODE  pour   le BD et BT et ORG dans un seul ligne et eviter le doublont pour tous les CODE par exemple pour le CODE 101210 ont trouve:
                     CODE             BD                BT                 ORG   
                  101210             30                 54                  45
c'est-à-dir la somme de BD et BT et ORG pour le code 101210 dans un seul ligne 
et aussi pour tous les codes , éviter le doublonts 
moi j'ai besoin d'une formule oubien  pour faire ce travail   
et Merci .

via55 · Answer

Bonsoir

une possibilité en rajoutant une colonne en tête de tableau pour comptabiliser et être utilisée par une recherchev dans la seconde feuille où se fait le regroupement des données

https://www.cjoint.com/?0HrthGhSMo4

Cdlmnt

Gyrus · Answer

Bonjour,

Une autre solution avec VBA
https://www.cjoint.com/c/CHrt2qlePd2

A+

Houari100 · Answer

Merci pour ton aide votre programme marche chez moi avec succes
merci boucoup. et A+

foo · Answer

bonjour

tu peux me dire si cette macro fonctionne 

Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Temp = Range("A" & L)
      If Temp <> Range("A" & L - 1) Then
            Range("K" & I).Value = Range("A" & L).Value
            Range("B" & I & ":D" & I).Copy
            Range("L" & I).PasteSpecial Paste:=xlPasteValues
            I = I + 1
         Else
            Range("B" & L & ":D" & L).Copy
            Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
      End If
   Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Merci de me repondre
A+
Maurice

Houari100 · Answer

ce macro n'est pas valable , résultat defferent ,

Frenchie83 · Answer

Bonjour
Une autre méthode, simple à mettre en oeuvre, sans macro, et qui pourra vous resservir dans d'autres cas, il suffit de créer un filtre "Avancé" sans doublon, puis d'appliquer une simple formule.
Si vous ne connaissez pas les filtres "avancés", la procédure est fournie avec le fichier
https://www.cjoint.com/c/CHsiC7T6Elj
Même si vous ne retenez pas cette méthode, je vous invite à la tester car comment je l'ai dit précédemment, un jour ou l'autre le problème peut se représenter, et alors vous serez en mesure de vous débrouiller tout seul.
Bonne journée 
cdlt

Houari100 · Answer

Bonjour 
et Merci pour ton aide cette méthode est réussite .100%.
Mais le cas ou j'ai des colonnes àcote du colonne CODE  , colonne NOM et colonne PRENOM et colonne FILS  ; Par exemple:
CODE        NOM         PRENOM       FILS                               BD BT ORG 
101210     xxxx          yyyyy          aaaaa                             10 0 15 
101210     xxxx          yyyyy          aaaaa                             20 30 17 
101210     xxxx          yyyyy          aaaaa                              0 24 13 
201433     aaaa         bbbb           ccccc                               70 35 0 
201433     aaaa         bbbb           ccccc                               62 41 23 
345587     eeee         rrrrr             ttttt                                10 11 0 
345587     eeee         rrrrr             ttttt                                10 0 39 
345587     eeee         rrrrr             ttttt                                0 11 10 
.
.
.
.
.
Maintenant comment je vais faire pour atteindre le meme code avec le meme nom ,prenom et fils et le total dans un seul ligne
Merci

foo · Answer

Bonjour
merci pour ton test

je devais etre pas en forme

Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Temp = Range("A" & L)
      If Temp <> Range("A" & L - 1) Then
            Range("K" & I).Value = Range("A" & L).Value
            Range("B" & L & ":D" & L).Copy
            Range("L" & I).PasteSpecial xlPasteValues
            I = I + 1
         Else
            Range("B" & L & ":D" & L).Copy
            Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
      End If
   Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub

celle la elle doit marcher
j'ais remis la bonne Ligne 

A+

Maurice

foo · Answer

Bonjour

macro avec les noms

Sub Cumul1()
Application.ScreenUpdating = False
I = 2
Range("K2:Q" & Rows.Count).ClearContents
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Temp = Range("A" & L)
      If Temp <> Range("A" & L - 1) Then
            Range("A" & L & ":G" & L).Copy
            Range("K" & I).PasteSpecial xlPasteValues
            I = I + 1
         Else
            Range("E" & L & ":G" & L).Copy
            Range("O" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
      End If
   Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub

A+
Maurice

Aide pour un travail sous exel

9 réponses

Discussions similaires