fusion cellules tableau

Après de longues recherches et n'arrivant pas à adapter je m'en remets à vous.

En fait j'ai un classeur avec plusieurs onglet dans lequel je voudrais fusionner chaque lignes pour les colonnes BCD. Je ne sais pas si je suis très clair mais en gros si je prends la ligne 1 j'aimerai que BCD soient fusionnés.

D'avance merci !

Bonjour,

Si les cellules à fusionner contiennent des valeurs, la plage est définie sur la colonne B de B1 à la dernière non vide. Si les cellules sont vides, il te faut définir la plage comme dans mon exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub Fusionner()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'la plage en définie en colonne B de la feuille active
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
    End With
 
    'si les cellules sont vides, la plage est à définir manuellement ici...
    '''''Set Plage = ActiveSheet.Range("B1:B50")
 
    'évite l'apparition des alertes si les cellules contiennent des valeurs
    '(seule la valeur de la colonne B sera gardée)
    Application.DisplayAlerts = False
 
    'bouclage sur la plage
    For Each Cel In Plage
 
        Range(Cel, Cel.Offset(0, 2)).Merge
 
    Next Cel
 
    Application.DisplayAlerts = True
 
End Sub

Hervé.

Parfait ! Merci beaucoup