Aide pour Macro de fusion

Version imprimable

10/12/2014, 11h30
grand debutant

1 pièce(s) jointe(s)

Aide pour Macro de fusion

Bonjour à tous,

je suis vraiment plus que débutant en macro donc j en appel à votre bon coeur ;)

Voila, je cherche une macro qui permettent de fusionner des cellules apres une recherche de contenu.

Exemple : je cherche sur la colonne A. Si la ligne 1 = la ligne 2 (et ainsi de suite pour une plage de 2000 lignes), je veux fusionner les cellules correspondantes en colonne c et également en Colonne D. Je n ai pas besoin du contenu des ligne mais uniquement de fusionner.

En gros, si A1 = A2 alors fusionner C1 et C2 et D1 et D2.

Pièce jointe 163492

Ci dessus un fichier exemple pour que ce soit plus claire.

Par avance Merci !

Bonjour,

Tu peux essayer ceci.
À mettre dans le code de la feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Fusionner()
    Dim I As Long, nbLignes As Long
    Dim Debut As Long, Fin As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Debut = 2
 
    For I = 2 To nbLignes
        If Range("A" & I) <> "" And Debut = 0 Then Debut = I
 
        If (Range("A" & I) <> Range("A" & I + 1) Or I = nbLignes) And Range("A" & I) <> "" Then
            Fin = I
        End If
 
        If Fin > 0 Then
            Range("C" & Debut & ":C" & Fin).Merge
            Range("D" & Debut & ":D" & Fin).Merge
            Debut = 0
            Fin = 0
        End If
    Next
End Sub

11/12/2014, 09h11
grand debutant

un énorme merci, ça fonctionne très bien!!!!!!