XL 2013 Fusionner des lignes sur une colonne en fonction de la valeur

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 !

Leché

XLDnaute Junior
Bonjour,

Je souhaiterai avoir une macro permettant de fusionner un nombre x de ligne (dans la même colonne) en fonction du nombre de fois où la valeur qu’elle contient est présente. (A défaut d'avoir les connaissances nécessaires pour le faire moi même)

A savoir, les lignes sont déjà triées c’est-à-dire qu’il n’y a pas de ligne à récupérer puis à coller en dessous de la cellule ciblée pour la fusionner.

Je vous joins un exemple avec l’état actuel (en jaune) et l’état souhaité (en vert)

Cela ne doit toucher que les valeurs présentes en colonne A et en colonne B

Si vous avez des pistes sur ce sujet..

Cordialement,
 

Pièces jointes

Bonsoir,
C'est facile de vous fournir une macro permettant de fusionner les lignes de l'exemple que vous avez fourni.
Cependant, vous devrez accepter de ne plus pouvoir faire de tri ou d'exploiter de tableau .
En fait, une telle opération devrait se faire sur une autre feuille pour affichage uniquement .
Est-ce vraiment cela votre objectif ?
 
Bonsoir ,
Je n'ai pas besoin de faire des tris , cependant je peux être éventuellement amener a faire des modifications de texte. Le but final étant de faire une nomenclature de divers produits avec des liens hypertextes sur certaines cellules (mais pas celles qui seront fusionnés ; dans les colonnes d'a côté)

Bonne soirée,
 
Pour l'exemple fourni :
VB:
Option Explicit
Sub test_fusion()
     Fusionne 1
     Fusionne 2
End Sub
Sub Fusionne(C As Integer)
Dim I As Integer, L As Integer
Dim Dc As String, Df As String
Application.DisplayAlerts = False

    With Sheets("Exemple")
         L = .Cells(Rows.Count, C).End(xlUp).Row
         Dc = vbNullString
         For I = 2 To L + 1
            .Cells(I, C).Select
            If .Cells(I, C) <> .Cells(I - 1, C) Then
                If Dc <> vbNullString Then
                    With .Range(Dc, Df)
                        .Select
                        .Merge
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                    End With
                End If
                Dc = .Cells(I, C).Address
            End If
            Df = .Cells(I, C).Address
         Next
    End With

End Sub
 
Bonjour,

Après essai sur l'excel servant d'exemple c'est TOP.
Sur mon cas réel , le code bloque sur la ligne suivante :
1602134756879.png

Me donnant le visuel ci-dessous ( colonne de gauche OK , celle de droite manque le fusionnement des cellules)

1602134805661.png


Cordialement,
 
Pour l'exemple fourni :
VB:
Option Explicit
Sub test_fusion()
     Fusionne 1
     Fusionne 2
End Sub
Sub Fusionne(C As Integer)
Dim I As Integer, L As Integer
Dim Dc As String, Df As String
Application.DisplayAlerts = False

    With Sheets("Exemple")
         L = .Cells(Rows.Count, C).End(xlUp).Row
         Dc = vbNullString
         For I = 2 To L + 1
            .Cells(I, C).Select
            If .Cells(I, C) <> .Cells(I - 1, C) Then
                If Dc <> vbNullString Then
                    With .Range(Dc, Df)
                        .Select
                        .Merge
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                    End With
                End If
                Dc = .Cells(I, C).Address
            End If
            Df = .Cells(I, C).Address
         Next
    End With

End Sub


De plus , est-il possible de :

--> Surligner une ligne sur 2 ( du moins un ensemble de ligne avec le même numéro qui vient d'être fusionné) afin de mieux visualiser l’ensemble (comme sur la seconde photo ci-dessus : soit de A3 à la dernière cellule en G et de K3 a dernière cellule non vide en L)

--> Mettre une police et une taille (de A3 à la dernière cellule pleine en L)

Cordialement,
 
Fichier à tester ...

--> Surligner une ligne sur 2 ( du moins un ensemble de ligne avec le même numéro qui vient d'être fusionné) afin de mieux visualiser l’ensemble (comme sur la seconde photo ci-dessus : soit de A3 à la dernière cellule en G et de K3 a dernière cellule non vide en L)
Je ne vois pas de seconde photo illustrant la demande .
--> Mettre une police et une taille (de A3 à la dernière cellule pleine en L)
pareil ..

Si un problème existe encore, fournir un vrai fichier exemple .
 

Pièces jointes

Bonjour,

Si joint l'excel avec les cellules tel que le réel.
La macro bloque toujours au même moment lors du fusionnage des cellules. Le fait d'avoir fusionner sur la première colonne, la formule présente dans la seconde colonne (recherchev) devient N#A , et donc n'est plus considéré comme similaire a celle de la ligne supérieur..

Merci pour tout
 

Pièces jointes

Bonjour,

Merci pour ton retour,
Peux-t-on rajouter une ligne de code afin de supprimer automatiquement toutes les lignes après la dernière ligne remplis ? Dans mon fichier exemple , je n'avais mis que la tableau , mais en réalité , les formules sont tirés jusqu'à la ligne 300/400, car le nombre de ligne est censé varier entre deux projets différents..

Cordialement,
 
Bonsoir,
Les formules présentes dans les colonnes B et J sont tirés jusqu'au lignes 150. Elles sont déjà présentes a l'ouverture du fichier (modèle Excel ; donc elles le seront toujours)
Je les ai tiré plus loins car je ne sais jamais exactement le nombre de ligne que je vais avoir dans le rendu final 🙂
 
Bonjour,
Je reviens vers vous concernant cette même demande. J'ai une erreur de macro qui apparaît lors de la création des liens hypertextes. Voir l'erreur sur la PJ1 (ERROR 10).

Cependant sur mon fichier ou les liens doivent être crées, tout est OK sauf une cellule (voir PJ2 ERROR 20) , après une courte analyse, il s'avère que ce plan est un plan PDF, et non format TIF (comme je l'avais précisé lors de la demande) , est-ce lié ? Si oui , que dois-je modifier pour associer aussi bien des fichiers TIF et PDF ?

Merci pour votre disponibilité,
Cordialement,
 

Pièces jointes

  • error 10.PNG
    error 10.PNG
    23.2 KB · Affichages: 16
  • error 20.PNG
    error 20.PNG
    8.2 KB · Affichages: 17
- 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

Réponses
12
Affichages
692
Retour