Macro pour fusionner certaines cellules

Résolu
Eline -  
 Eline -
Bonjour à tous et à toutes.

Pouvez-vous m'aider svp à simplifier mon tableau excel à l'aide d'une macro. Je ne suis pas une grande spécialiste ? Voici mon souci.

Je souhaiterais que : si même chiffre en colonne D7 à D1000 et même chiffre en colonne E7 à E1000 fusionner les cellules de la colonne E.

Exemple :

28 3
25 2
28 1
28 1

Fusionner les deux chiffres 1 et mettre une seule cellule avec le chiffre 1.
Merci vraiment pour votre aide.


4 réponses

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie avec cette macro
Sub test()
Dim Cel As Range
Dim Ligne As Long
    For Each Cel In ThisWorkbook.ActiveSheet.Range("D7:D1000")
        If Cel = Cel.Offset(1, 0) Then
            If Cel.Offset(0, 1) = Cel.Offset(1, 1) Then
                Application.DisplayAlerts = False
                Cel.Offset(0, 1).Resize(2, 1).Merge
                Application.DisplayAlerts = True
            End If
        End If
    Next Cel
End Sub

A+
1
Eline
 
Je n ai malheureusement pas la possibilité de répondre tout de suite mais je regarde demain matin. En tout cas merci déjà pour cette réponse :@)
0
Eline
 
Bonjour Gyrus,

Ta macro fonctionne très bien mais c'est moi qui ai oublié de t'informer de qqch de très important. Il s'agit d'un tableau ! Du coup, elle ne fonctionne plus :-(

Peux-tu m'aider ? :-)
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Je ne crois pas que l'on puisse fusionner les cellules d'un tableau (ce qui ne me parait pas illogique du fait même de la fonctionnalité du tableau).

A+
0
Eline
 
Ok, merci en tout cas pour ta formule :-) ça m a déjà bien aidé.
0