fusion cellules ayant même valeur

[cathodique]

Bonsoir,

Je voudrai fusionner des cellules contigües d'une même ligne et d'une même colonne (ligne 7 et colonne A).

a- pour la ligne 7: de la 1ère colonne à la dernière colonne non vide, fusionner les cellules contigües ayant la même valeur.
b- pour la colonne A: de la 7ème ligne à la dernière ligne non vide, fusionner les cellules contigües ayant la même valeur.

Je vous remercie beaucoup.

Bonne soirée.

Cordialement,

 

[cathodique]

Re : fusion cellules ayant même valeur

Bonjour,

Je viens trouver un code que j'ai adapté pour la colonne A à partir de la ligne 7.

Sub mergeColonne()
  Application.DisplayAlerts = False
  i = 7
  Do While Cells(i, 1) <> ""
  m = i
  Do While Cells(i, 1) = Cells(m, 1)
    i = i + 1
  Loop
  Cells(m, 1).Resize(i - m).VerticalAlignment = xlCenter
  Cells(m, 1).Resize(i - m).HorizontalAlignment = xlCenter
  Cells(m, 1).Resize(i - m).MergeCells = True
Loop
End Sub

J'ai essayé de l'adapter sans succès pour la ligne 7. Même avec 2 macros distinctes, ça m’intéresse. Merci pour votre aide.

Cordialement,

 

[cathodique]

[Résolu] : fusion cellules ayant même valeur

Bonjour,🙁😕

Merci pour la non participation. Voici un code qui fonctionne bien même si la casse est différente (majuscule ou minuscule), ça pourrait peut-être servir à quelqu'un d'autre.

Sub merging()
    Dim i As Long
 Dim nbcol As Long
 
    With Feuil1 'lenomdetafeuille
 
        For i = .Range("A" & .Rows.Count).End(xlUp).Row To 7 Step -1
            If UCase(.Cells(i, 1)) = UCase(.Cells(i - 1, 1)) Then
                .Cells(i - 1, 1) = ""
                .Range(Cells(i, 1), Cells(i - 1, 1)).merge
            End If
        Next i
 
        For i = .Cells(7, .Columns.Count).End(xlToLeft).Column To 2 Step -1
            If UCase(.Cells(7, i)) = UCase(.Cells(7, i - 1)) Then
                .Cells(7, i - 1) = ""
                .Range(Cells(7, i), Cells(7, i - 1)).merge
            End If
        Next i
 
    End With
 
End Sub

Bonne journée.

Cordialement,