Fusionner plusieurs lignes en une seule + additionner valeur colonne

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'975
Appréciations reçues : 881
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 21 janvier 2019, 18:17

Je pensais que les CHSCT avaient été remplacés par les CSE !
fusion ligne et addition valeur.xlsm
(20.84 Kio) Téléchargé 5 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
f
fatal1ty
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 30 septembre 2014
Version d'Excel : 2010

Message par fatal1ty » 22 janvier 2019, 10:42

Je te confirme que les CHSCT et les CE vont disparaitre au profit des CSE ^^

Merci pour la macro, je n'ai pas encore pu la tester car je suis en déplacement mais je ne manquerai pas de te faire un retour
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'975
Appréciations reçues : 881
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 22 janvier 2019, 11:03

fatal1ty a écrit :
22 janvier 2019, 10:42
CHSCT
dont j'ai assuré la présidence un certain temps ...
1 membre du forum aime ce message.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Klin89
Membre dévoué
Membre dévoué
Messages : 636
Appréciations reçues : 29
Inscrit le : 28 mai 2011
Version d'Excel : 2003 FR

Message par Klin89 » 22 janvier 2019, 19:52

Bonsoir à tous, :)

Via un dico :
Option Explicit
Sub test()
Dim a, i As Long, j As Long, n As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    n = 1
    a = Sheets("Actuel").Range("a1").CurrentRegion.Value
    For i = 2 To UBound(a, 1)
        If Not dico.Exists(a(i, 14)) Then
            n = n + 1
            For j = 1 To UBound(a, 2)
                a(n, j) = a(i, j)
            Next
            dico(a(i, 14)) = n
        Else
            For j = 15 To UBound(a, 2)
                a(dico(a(i, 14)), j) = a(dico(a(i, 14)), j) + a(i, j)
            Next
        End If
    Next
    With Sheets("Souhaité").Range("a1")
        .CurrentRegion.ClearContents
        .Resize(n, UBound(a, 2)).Value = a
    End With
    Set dico = Nothing
End Sub
klin89
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message