Fusion de cellules identiques

Résolu/Fermé
ReM - 15 avril 2005 à 16:47
maxclo69150 Messages postés 1 Date d'inscription jeudi 11 janvier 2018 Statut Membre Dernière intervention 11 janvier 2018 - 11 janv. 2018 à 11:53
Bonjour

J'ai trier des données et j'ai des répétitions de lignes (3fois la mêm valeur, puis 2 fois une autres etc). j'aimerai pouvoir fusionner les cellules automatiquement pour plus de clarté de lecture mais là je bloque...

merci
A voir également:

12 réponses

gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 628
29 sept. 2008 à 21:56
bonjour


Si tu veux une macro qui fusionne tous les doubles verticaux avec des paramètres de plage et sans message de confirmation, tu peux essayer ceci :
Sub fusion_doubles_vertical()
Dim l As Long       ' ligne
Dim d As Long       ' doubles
Dim c As Integer    ' colonne
Const minl = 1      ' début ligne
Const maxl = 6      ' fin ligne
Const minc = 1      ' début colonne
Const maxc = 2      ' fin colonne
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For c = minc To maxc
    For l = minl To maxl
        For d = l + 1 To maxl
            If (Cells(l, c) <> Cells(d, c)) Then Exit For
        Next d
        If d > l + 1 Then
            With Cells(l, c).Resize(d - l, 1)
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = True
            End With
        End If
    Next l
Next c
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
7
Salut gbinforme,

Ta macro fonctionne effectivement pour l'exemple que j'ai donne ci-dessus, mais ce que je cherche, c'est une macro qui me permette de faire le meme travail sans limite de lignes. Dans la mienne, le probleme c'est qu'il faut toujours modifier la macro selon le nombre total de lignes du tableau sur lequel je travaille.

Je suppose que pour eviter le message d'erreur, il suffisait en fait de rentrer la phrase: "Application.DisplayAlerts = True".
Merci pour cette astuce ;)

Allan
0
Super script merci!
0
maxclo69150 Messages postés 1 Date d'inscription jeudi 11 janvier 2018 Statut Membre Dernière intervention 11 janvier 2018
11 janv. 2018 à 11:53
Bonjour,

merci pour ce script.

j'essai de l'adpater en fusion horizontal sans succés. pouvez vous m'aider?
0