Macro pour fusionner certaines cellules Résolu/Fermé

Question

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.


Configuration: Windows Vista / Firefox 10.0.2

Gyrus · Answer

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+

Eline · Answer

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 ? :-)

Gyrus · Answer

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+

Eline · Answer

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

Macro pour fusionner certaines cellules

4 réponses

Discussions similaires