FUSIONNER DES COLONNES

FUSIONNER DES COLONNES

SI VOUS AVEZ EXCEL 2003 ET SUPÉRIEUR VOUS POUVEZ CRÉER DES MACROS

DONT LA POUR FUSIONNER DES COLONNES OU LIGNES ENTRE ELLE (POUR EN FAIRE PLUS QUE UNE)

CRÉER UN MACRO PUIS RENTRER LE CODE SUIVANT ET LE METTRE DANS UN MODULE DE TON  CLASSEUR.

LE CODE SUIVANT :

Sub eliot()

    Set vzone = Selection

    vtxt = vzone.Range("a1").Value

    For i = 2 To vzone.Rows.Count

        vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value

        vzone.Cells(i, 1).ClearContents

    Next

    vzone.Range("a1").Value = vtxt

    With vzone

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = True

    End With

    vzone.Range("a1").Value = vzone.Range("a1").Value

End Sub


PUIS ENSUITE :
SÉLECTIONNER TES CELLULES ET LANCE LE MACRO QUE TU A CRÉER
ET  ENSUITE LES COLONNES OU LIGNE QUE TU A SÉLECTIONNER ELLE CONCATÈNE AVEC SAUT DE LIGNE TOUT CE QUI EST CONTENU DANS LES CELLULES DE LA COLONNE DE GAUCHE DE TA SÉLECTION. CELA MARCHE AVEC LE NOMBRE DE LIGNES ET DE COLONNES QUE L'ON VEUT.


AVANT D'AVOIR FUSIONNER

avant-fusion.jpg

APRÈS AVOIR FUSIONNER

apres-fusion.jpg

Découvrez la Radio Rap / Hip Hop

Date de dernière mise à jour : samedi 03 Novembre 2012

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site