Macro pour fusionner certaines cellules

Résolu/Fermé
Eline - Modifié par Eline le 28/08/2013 à 16:51
 Eline - 29 août 2013 à 21:52
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
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
527
28 août 2013 à 17:33
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
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
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
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
527
29 août 2013 à 11:58
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
Ok, merci en tout cas pour ta formule :-) ça m a déjà bien aidé.
0