fusion lignes excel Résolu

Question

Bonjour, 

j'ai vu sur un précedent poste qu'il était possible de fusionner des lignes 

Voici mon tableau : 

A 25 
A 75 

B 55 
B 25 
B 20 

Et je voudrais tout sur la meme ligne...Serais ce possible? 


Merci beaucoup 

PS: je peux eventuellement poster mon tableau

lermite222 · Answer

Bonjour, :-)
Effectivement, ce serait bien si tu mettais ton classeur sur Cjoint.com
A+

youchlure · Answer

ok

youchlure · Answer

Il est trop gros...il fait 900ko

youchlure · Answer

https://www.cjoint.com/?ctpAUCzQsx

youchlure · Answer

J'ai essayer la focntion consolider, mais cela ne marche pas...

lermite222 · Answer

Si je comprend bien,
Tu voudrais sélectionner les lignes qui ont le même N° dans la colonne B et qu'il n'y ai plus qu'une seule ligne mais avec les données des autres lignes, ensuite supprimer les ligne en doublons ?
Tu dis

youchlure · Answer

oui tout à fait, comme dans le début de mon tableau en fait

youchlure · Answer

Pour le moment je fais tout à la main...

Mais c'est surtout pour avoir un modele car aprés j'aurai d'autres tableau à traité comme celui ci qui seront plus grand

Un modele pourrait me faire gagner beaucoup de temps :)

MErci

lermite222 · Answer

Encore une question, pour éviter de surcharger la fonctions
Je remarque que les N° en colonne B, quand il sont identiques les lignes se suivent !
Pourrait-il arriver que ce même N° se retrouve 25, ou xx nombre lignes plus loin.
Si oui, la macros va prendre un temps fou avec le nombre de lignes que tu a.

youchlure · Answer

non j'ai fait un classement par no de site donc ils se suivent

lermite222 · Answer

OK, mais je doit m'absenter, ce serra pour la soirée ou demain.
A+

youchlure · Answer

oui bien sur, il n'y a pas de probleme.

J'attends ta réponse soit ce soir soit pour demain.

Merci encore pour ton aide

Bonne fin de journée

lermite222 · Answer

Avant d'employer la macros fait une copie de la feuille... ont ne sait jamais.
Je l'ai tester et cela m'a l'air de correspondre à ce que tu veux.
Tu colle le code dans un module général.

Sub Dedouble()
Dim Lig As Long
Dim Col As Integer
Dim TP
    Application.ScreenUpdating = False
    Lig = 2
    With Sheets("Feuil1")
        TP = Cells(1, 2)
        While Cells(Lig, 2) <> ""
            If Cells(Lig, 2) = TP Then
                For Col = 4 To 26
                    If Cells(Lig, Col) <> "" Then
                        Cells(Lig - 1, Col) = Cells(Lig - 1, Col) + Cells(Lig, Col)
                    End If
                Next Col
                Rows(Lig).Delete
            Else
                TP = Cells(Lig, 2)
                Lig = Lig + 1
            End If
        Wend
    End With
    Application.ScreenUpdating = True
End Sub

Ca prend quand même quelques secondes.
Et tu peu avantageusement remplacer les formules que tu a en AA par

=SOMME(D1:Z1)

que tu met sur la 1ère ligne ensuite tu copie vers le bas.
Tu dis...

youchlure · Answer

Merci beaucoup pour ton travail.

Par contre ne connaissant pas du tout ce genre d'opération, je voulais savoir ou je devais mettre cette expression?

Et surtout comment je peux l'appliquer aux autres tableaux que j'aurai a traité par la suite

Encore merci

lermite222 · Answer

Dans Excel ...
Alt+F11 pour entrer dans l'IDE du VBA
sur le menu >> Insertion >> Module
C'est dans cette nouvelle fenêtre que tu colle le code.
Tu peu ensuite mettre le curseur DANS la macros et taper F5 pour exécuter.
Pour éviter les erreurs j'ai rectifier la macros, emploi celle ci-dessous.

Sub Dedouble()
Dim Lig As Long
Dim Col As Integer
Dim TP
    Application.ScreenUpdating = False
    Lig = 1
    With Sheets("Feuil1")
        TP = .Cells(Lig, 2)
        Lig = Lig + 1
        While .Cells(Lig, 2) <> ""
            If .Cells(Lig, 2) = TP Then
                For Col = 4 To 26
                    If .Cells(Lig, Col) <> "" Then
                        .Cells(Lig - 1, Col) = .Cells(Lig - 1, Col) + .Cells(Lig, Col)
                    End If
                Next Col
                .Rows(Lig).Delete
            Else
                TP = .Cells(Lig, 2)
                Lig = Lig + 1
            End If
        Wend
    End With
    Application.ScreenUpdating = True
End Sub

Pour adapter à d'autre feuille faut changer
"Feuil1" par le nom de la feuille
Lig = la 1ère ligne à traiter
Exemple: si tu a 2 lignes de titres faut mettre 3
Tu dis...

youchlure · Answer

Super, tout fonctionne!!!

Merci beaucoup pour ton aide

Bonne journée et à bientot

youchlure · Answer

Bonjour,

voila j'aurai de nouveau besoin d'un petit programme pour me simplifier la vie :)

Je pense qu'il s'agit presque du meme que celui précedent, je poste mon tableau ci joint : 

http://www.cijoint.fr/cjlink.php?file=cj200903/cijtZvIivg.xls 

en fait j'ai un numéro de site(premiere colonne)
               des valeurs d'occupâtions du sol
               des pourcentages

J'aimerais obtenir une seule ligne par numéro de site avec un pourcentage pour chaque occ sol

Je pensais pouvoir réutiliser celui du dessus mais apparement pas....

Merci beaucoup une nouvelle fois pour votre aide si précieuse
Cordialement, nicolas

lermite222 · Answer

Re.. bonjour,
Effectivement le code précédant ne va pas convenir.
Si j'ai bien compris tu veux remettre toutes les donnée sur les première lignes et supprimer quand elle sont déplacées ?
Ca va être beaucoup plus compliquer comme macros, laisse moi un peu de temps, je cogite pour avoir une solution.
Tu a beaucoup de fichier de ce genre ? parce qu'une macros pour une seule fois ça ne vaut pas la peine.
Tu dis

lermite222 · Answer

Bon, beh BV pour moi... ça veux rien dire
et oui, met moi un résulat souhaiter pour que je comprenne
parce que jusqu' ici.. j'ai pas compris.

lermite222 · Answer

Prennons plutôt le 2632, si j'ai compris, tu veux 7,4 dans la colonne D ?

lermite222 · Answer

Fusionner les lignes n'aditionne pas leurs contenu, du moins à ma connaissance.

lermite222 · Answer

OK, compris ta demande, laisse moi un peu de temps, pour le moment je suis pas trop disponnible, si un autre intervenant veux t'aider.. sinon ce sera pour demain ou après demein.
A+

Krys · Answer

Bonsoir
En attendant mieux, une solution mi-macro :

les données en feuil1
feuil2, en B2 on entre :   =SOMME.SI(Feuil1!$A$2:$A$2279;$A2;Feuil1!B$2:B$2279)*(Feuil1!B$1=Feuil2!B$1)
on étire jusqu'a AB2
en AC2, on entre bien sur :    =SOMME(B2:AB2)
On sélectionne de B2 à AC2 et on étire vers le bas d'un nombre de lignes égal ou supérieur au nombre de valeurs différentes en colonne A de feuil1.

On colle la macro suivante en feuil2 :

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 12/03/2009 par
'
'
 Dim Lig     As Long
 Dim Col     As String
 Dim NbrLig  As Long
 Dim NumLig  As Long
  
  Sheets("feuil2").Activate
  Col = "a"
  NumLig = 1
  Lig = 1
  With Sheets("feuil1")
  .Cells(Lig, Col).EntireRow.Copy
  ActiveSheet.Paste Destination:=Worksheets("feuil2").Range("A1")

  NumLig = 2
  Lig = 2
  .Cells(Lig, Col).Copy
  Sheets("feuil2").Paste Destination:=Cells(NumLig, Col)
  
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig
    If .Cells(Lig, Col).Value <> .Cells(Lig - 1, Col).Value Then
      .Cells(Lig, Col).Copy
      NumLig = NumLig + 1
      Sheets("feuil2").Paste Destination:=Cells(NumLig, Col)
    End If
  Next
  End With

End Sub

et on éxécute Macro2

Bien sur, si le nombre de valeurs en ligne 1 est supérieur à l'exemple, il faudra modifier, mais on peut prévoir +large dés le début.

youchlure · Answer

bonjour,

merci pour votre aide, je vais essayer cette solution en attendant la macro définitive

MErci encore et bonne journée

lermite222 · Answer

Sub Fusion() Dim lig As Long, Col As Integer Application.ScreenUpdating = False lig = 2 With Sheets("Feuil1") While .Cells(lig, 1) <> "" While .Cells(lig, 1) = .Cells(lig + 1, 1) For Col = 2 To 28 If .Cells(lig + 1, Col) <> "" Then .Cells(lig, Col) = .Cells(lig, Col) + .Cells(lig + 1, Col) Debug.Print .Cells(lig, Col) End If Next Col .Rows(lig + 1).Delete Wend lig = lig + 1 Wend End With Application.ScreenUpdating = True End Sub Pour appliquer tu fais la même chose que la 1ère fois. Met les largeurs colonnes à 4,3 Tu dis..

Fusion lignes excel

25 réponses

Discussions similaires

Newsletters