Fusionner cellules en boucle

[Kernoz]

Bonjour à tous ...

Je bloque sur un truc à priori facile mais bon ...

Je cherche à fusionner les cellules d'une colonne toutes les 5 lignes ... J'ai essayé avec des boucles mais je n'arrive pas à faire ce que je veux.

Cf. Pièce jointe pour exemple.

D'avance merci pour votre aide. 🙂

 

[pierrejean]

Re : Fusionner cellules en boucle

Bonjour kernoz

Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For n = 4 To Range("A" & Rows.Count).End(xlUp).Row - 4 Step 5
    With Range("A" & n & ":A" & n + 4)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With
 Next
 Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[JBARBE]

Re : Fusionner cellules en boucle

Bonjour,

Essayer ceci :

Sub essai()
Application.ScreenUpdating = False
Dim i As Long
Dim j As Long
For i = 4 To 65536 Step 5
 If Cells(i, 1) = "" Then Exit Sub
 For j = 4 To 65536 Step 5
  Cells(i, 3) = Cells(i, 1)
 Next j
Next i
Application.ScreenUpdating = True
End Sub

bonne journée

 

[Kernoz]

Re : Fusionner cellules en boucle

Merci à vous, ca fonctionne 🙂