Discussion :

[DenisHen]

Bonjour à la communauté.
J'ai une ligne de code qui me dit que ma cellule est fusionnée :

Code :

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

1
2
Col = 15
Debug.Print Cells(18, Col).MergeCells

Mais comment connaitre le nombre de colonnes que contient cette fusion, car la fusion est horizontale ?

[Franc]

Salut, comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub NombreColonnesFusion()
    Dim Col As Integer
    Col = 15
    Dim rng As Range
    Set rng = Cells(18, Col)
    If rng.MergeCells Then
        Debug.Print rng.MergeArea.Columns.Count
    Else
        Debug.Print "La cellule n'est pas fusionnée."
    End If
End Sub

[DenisHen]

Salut, et un grand merci Franc.
Ca semble évident quand on regarde la solution, Et pourtant, j'ai cherché...
Ma solution, pour garder la forme de mon code, est :

Code :

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

Debug.Print Cells(18, Col).MergeArea.Columns.Count

Je poste ma réponse pour certains, qui seraient encore plus mauvais que moi
Et ça me renvoi bien le nombre de colonne utilisées dans la fusion.
Encore un grand merci Franc...