Discussion :

[khelilo]

Bonjour,

Je voudrais fusionner des cellules sur la même colonne tout en gardant les données de chaque cellule exemple:

Colonne 1 Colonne 2 Colonne 3
01 . 02

Résultat

Colonne 1
01.02

Merci pour votre aide qui me sera très précieuse

[Oliv-]

Salut,

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
24
 Sub testfus()
 
    Set MaSelection = Selection
    ' caractère de sséparation entre les enregistrements
    carac = " "
 
    nblignes = MaSelection.Rows.Count
    nbColonnes = MaSelection.Columns.Count
    For l = 1 To nblignes
        Set RangeDebut = MaSelection.Cells(l, 1)
        result = RangeDebut.Value
        For c = 2 To nbColonnes
            Set CellTraitee = MaSelection.Cells(l, c)
            If Not CellTraitee.HasFormula Then
                result = result & carac & CellTraitee.Value
                CellTraitee.Value = ""
            End If
 
        Next c
        RangeDebut.Value = result
 
 
    Next l
End Sub