Discussion :

[DenisHen]

Bonjour à tous,

Voilà, j'ai un petit souci avec une macro VBA, comment savoir si une cellule (ex A5) est fusionnée avec d'autre cellules (ex B5, C5,...).

Cette fusion le sera qu'en ligne, aucune cellule n'est fusionnée avec celle du dessus ou du dessous. C'est systématiquement avec celle de droite, si ça peut servir...

Déjà, merci au forum d'exister...

Ensuite, merci aux éventuelles réponses...

Denis...

[joe.levrai]

Bonjour,

une technique pour détecter si une cellule est fusionnée, c'est de tester si son adresse est égale (ou différente) de la plage des cellules fusionnées dont elle fait partie :

Code :

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

If Cells(1, 1).MergeArea.Address = Cells(1, 1).Address Then MsgBox "pas fusionné"

Prenons deux exemples :

- A1 n'est pas fusionné : son adresse est donc "$A$1" || l'adresse de sa plage fusionnée est également "$A$1"
- A1 est fusionné avec B1 : son adresse est donc "$A$1" || l'adresse de sa plage fusionnée est en revenche "$A$1:$B$1"

[Quentin77170]

Bonsoir,

Moi pour cela je compte les cellules de la "MergeArea" comme ceci :

Code :

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

If Cells(1,1).MergeArea.Count > 1 Then MsgBox "Fusionné" Else MsgBox "Pas fusionné"

Les deux façons fonctionnent.

[eriiic]

Bonjour,

ou [A5].mergecells qui retourne True si appartient à une fusion de cellules

eric

[DenisHen]

Bonjour à tous et milles merci,

J'ai opté pour la solution d'Eriiic...

Ca fonctionne nikel ! !

Denis...