Fusionner 5 cellules par 5 cellules sur une colonne

gosselien à dit:

Bonjour,

pas sur de t'aider en VBA mais tu appelles quoi "fusionner ? Parce que dans Excel, fusionner c'est faire une cellule avec plusieurs autres qui sont alors "noyées" dans la première, voir Format de cellule/alignement/fusionner les cellules , c'est ça la fusion, ton terme est il bien adapté ?

P.

Cliquez pour agrandir...

laurent950 à dit:

Bonsoir

A toute hazar c'est peux être cela ? pas en horizontal car (j'ai 4 colonnes qui devront rester indépendantes)
mais les fusionner en verticale ?

voici le code en VBA :

VB:

Sub Macro1()
'
' Macro1 Macro
For i = 2 To Cells(65536, 1).End(xlUp).Row Step 5
    For j = 1 To 4
        With Range(Cells(i, j), Cells(i + 4, j))
                .HorizontalAlignment = xlGeneral
                .VerticalAlignment = xlTop
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = True
        End With
    Next j
Next i
End Sub

laurent

Cliquez pour agrandir...

laurent950 à dit:

Bonjour,

vous parler de :
- j'ai 4 colonnes qui devront rester indépendantes.

et dans votre fichier excel il y en a une 5 éme ?

Il faudrait la structure de la feuilles Original et le résultat voulu cela serait plus simple
et éviterais de deviner

au plaisir de vous aider si je peux

laurent

Cliquez pour agrandir...

laurent950 à dit:

Re,

Vous dite :

- Dans chacune de ces colonnes, je dois fusionner horizontalement 5 cellules par 5 cellules, la première cellule ayant une saisie.

Mais c'est de 6 cellules par 6 cellules, voir votre fichier excel qui correspond pas au premier.

VB:

Sub Macro1()
'
' Step = nombre de saut de dans la boucle
' ici le i saute de 6 en 6
' exemple i pour premier tour de boucle = 2
'         i pour le deuxieme tour de boucle = 8
' grace au step qui vaut 6
' je mais 6 dans une variable
Dim saut As Integer
 saut = 6

' Macro1 Macro
For i = 2 To Cells(65536, 1).End(xlUp).Row Step saut
    For j = 1 To 4
        With Range(Cells(i, j), Cells(i + (saut - 1), j))
                .HorizontalAlignment = xlGeneral
                .VerticalAlignment = xlTop
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = True
        End With
    Next j
Next i

' Nota :
' Cells(i + (saut - 1), j))
' i = 2 (Numéro de ligne)
' saut = 6 (Numéro de ligne)
' je dois fusioner 6 cellule verticallement dont
' i = 2 + (saut = 6) = 8 (Numéro de ligne)
' C'est trop je dois enlever une ligne
' saut - 1 donc saut = 5
' et i = 2 + (saut = 5) = 7 (Numéro de ligne)
' donc fusion de la ligne i = 2 à 7
' FIN
End Sub

laurent

Cliquez pour agrandir...