Discussion :

[Invité]

Bonjour,

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

Les cellules comprises dans la plage entre la ligne 7 et la colonne A se seront pas concernées par le code.

1- pour la ligne 7: de A7 à A&DernièreColonne non vide, fusionner les cellules contigües ayant la même valeur.

2- pour la colonne A: de A7 à A&DernièreLigne ligne non vide, fusionner les cellules contigües ayant la même valeur.

J'ai bien trouvé des codes, mais ils fusionnent toute la plage. Je ne cherche à fusionner que pour la ligne 7 et la colonne A qui débute en ligne 7.

Je vous remercie beaucoup.

Bonne journée.

Cordialement,

[EngueEngue]

Tiens:

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
22
Sub merging()
    Dim i As Long
 
    With Feuil1 'lenomdetafeuille
 
        For i = .Range("A" & .Rows.Count).End(xlUp).Row To 7 Step -1
            If .Cells(i, 1) = .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).Row To 2 Step -1
            If .Cells(7, i) = .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

[Invité]

Bonjour EngueEngue,

Je te remercie beaucoup d'avoir répondu à ma discussion.

Pour la fusion des cellules de la colonne A, le code s’exécute parfaitement.

Par contre pour la ligne 7, les cellules sont fusionnées jusqu'à la colonne G;

H7:I7, J7:K7 et P7:R7 ne sont pas fusionnées.

Je te remercie beaucoup pour ton aide.

Cordialement,

[EngueEngue]

En effet, je suis allé trop vite

Remplace dans la deuxième boucle

Code :

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

 For i = .Cells(7, .Columns.Count).End(xlToLeft).row To 2 Step -1

par :

Code :

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

 For i = .Cells(7, .Columns.Count).End(xlToLeft).column To 2 Step -1

[Invité]

Re,

Je pense que j'ai trouvé l'erreur

Code :

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

1
2
For i = .Cells(7, .Columns.Count).End(xlToLeft).Row To 2 Step -1
il fallait mettre Column au lieu de Row

Comme ceci le code s'éxecute bien, sauf pour P7:R7 dont la casse est différente.
Je voudrais que quelque soit la casse (minuscule ou majuscule), la fusion se fasse.

Merci beaucoup.

Cordialement,

[EngueEngue]

En effet. Bien joué.

Dans la première boucle:

Code :

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

If UCASE(.Cells(i, 1)) = UCASE(.Cells(i - 1, 1)) Then

Dans la deuxième:

Code :

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

If UCASE(.Cells(7, i)) = UCASE(.Cells(7, i - 1)) Then

[Invité]

Re,

Mon problème est résolu. Je vous remercie beaucoup.

Voici le code qui fonctionne bien

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
22
23
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

Cordialement,