Discussion :

[herve.gendron5]

Bonjour,

Je suis tout nouveau sur le forum, et je me lance dans la fusion de cellules.
Je sais que ce n'est pas recommandé. Mais dans ce cas il s'agit uniquement de rendre plus clair un tableau qui sera ensuit insérer dans Word.
Il n'y aura donc pas de trie pas la suite.

Voici le tableau que j'ai :



Et voici ce à quoi je souhaiterais qu'il ressemble :



Je ne suis pas du tout expert en macro, mais d'habitude je m'en sors avec l'enregistreur de macro, et les recherches sur le web.

Mais là, je n'arrive pas au résultat que je souhaite. J'ai arrivé à fusionner les cellules identiques sur la première colonne avec ce code que j'ai bricolé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim datas, lig As Long, Nb As Long
    datas = [C1].Resize(Cells(Rows.Count, 3).End(xlUp).Row + 1).Value
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Nb = 1
    For lig = 3 To UBound(datas)
        If datas(lig, 1) = datas(lig - 1, 1) Then
            If datas(lig, 1) <> "" Then Nb = Nb + 1
        ElseIf Nb > 1 Then
            Cells(lig, 3).Offset(-Nb).Resize(Nb).Merge: Nb = 1
        End If
    Next lig
    Application.DisplayAlerts = True

Mais quand je duplique pour les colonnes 6 à 10, cela ne fonctionne pas du tout.
Est ce parce que ma première colonne est fusionnée ?

J'espère avoir été clair et que l'exemple est parlant.

Je vous remercie par avance pour votre aide.