Discussion :

[toniob44]

Bonjour,

je voudrais savoir si une ligne contient au moins une cellule fusionné.
j étant le numéro de ligne.

J'ai écris cela:

Code :

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

1
2
3
4
5
If Range(Cells(j, 0), Cells(j, 0)).MergeCells = True Then 
msgbox "Il y a au moins une cellule fusionné" dans la ligne " & j
else
msgbox "Il n'y a pas de cellule fusionné dans la ligne " & j
end if

cela ne fonctionne pas.

J'ai essayé également:

Code :

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

1
2
3
4
5
If Range(j:j).MergeCells = True Then 
msgbox "Il y a au moins une cellule fusionné" dans la ligne " & j
else
msgbox "Il n'y a pas de cellule fusionné dans la ligne " & j
end if

je suis obliger de tester toute les colonnes sinon.

Merci à vous

[mercatog]

Une petite fonction

Code :

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

1
2
3
4
Private Function IsMerged(ByVal Lig As Long) As Boolean
 
IsMerged = IsNull(Worksheets("Feuil1").Rows(Lig).MergeCells)
End Function

Qu'on peut appeler dans une autre procédure comme ceci

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
 
If IsMerged(3) Then
    MsgBox "Existence de cellules fusionnées"
Else
    MsgBox "Absence de cellules fusionnées ou toute la ligne est fusionnée"
End If
End Sub