Discussion :

[picsou66]

Bonjour,
J'ai un fichier qui se présente ainsi.

je vais avoir des cellules qui se répètent pour les collonnes A,B et C.

Je souhaiterais fusionner les lignes identique pour chaque colonne indépendamment.

j'ai d'ores et déja trouvé une macro, mais elle ne marche que pour les colonnes A et B:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub FusionCellules()
Dim i As Long, j As Long, h As Long, k As Long
Application.DisplayAlerts = False
For i = 1 To Range("B65536").End(xlUp).Row - 1 'étude colonne A
  j = i + 1
  While Cells(j, 1) = Cells(i, 1)
    Range(Cells(i, 1), Cells(j, 1)).MergeCells = True
    j = j + 1
  Wend
    For h = i To j - 2 'étude colonne C
    k = h + 1
    While Cells(k, 3) = Cells(h, 3) And k < j
      Range(Cells(h, 3), Cells(k, 3)).MergeCells = True
      k = k + 1
    Wend
    h = k - 1
  Next h
  i = j - 1
Next i
Application.DisplayAlerts = True
End Sub

Si quelqu'un pouvait m'aider

Merci d'avance

[laetitia]

bonjour picsou66 le forum un code dans ce style peut être suffisant dans ton cas pas approfondi!!! a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub es()
Dim i As Long
 Application.ScreenUpdating = False
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Cells(i, 1) & Cells(i, 2) & Cells(i, 3) = Cells(i + 1, 1) & Cells(i + 1, 2) & Cells(i + 1, 3) Then
  Cells(i, 1) = "": Cells(i, 2) = "": Cells(i, 3) = ""
End If: Next i
End Sub

[mercatog]

Bonjour picsou, bisou l'amie laetitia
dans le même sens, et hormis il est conseillé d'éviter la fusion de cellules, ci-joint proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim LastLig As Long, i As Long
Dim j As Byte
Application.DisplayAlerts = False
Application.ScreenUpdating = False
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 3 Step -1
    If Range("A" & i) & Range("B" & i) & Range("C" & i) = Range("A" & i - 1) & Range("B" & i - 1) & Range("C" & i - 1) Then
        For j = 1 To 3
            Range(Cells(i, j), Cells(i - 1, j)).Merge
        Next j
    End If
Next i
Columns("A:C").VerticalAlignment = xlTop
Application.DisplayAlerts = True