empêcher les fusions

[envol]

Bonjour à tous,

Je cherche une solution pour rendre impossible la fusion des cellules.

Quelqu'un a une idée ? une astuce ?

Bonne journée,

 

[PMO2]

Re : empêcher les fusions

Bonjour,

Essayez le code événementiel suivant à copier dans la fenêtre de code de la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.MergeCells = False
End Sub

Cordialement.

PMO

 

[envol]

Re : empêcher les fusions

Bonsoir PMO, le fil,

J'ai inséré le code dans la feuille mais cela ne marche pas...

Bonne nuit,

 

[Guest]

Re : empêcher les fusions

Bonjour evol, PMO2,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UsedRange.Cells.UnMerge
End Sub

Cela n'empêche pas la fusion mais cela la supprime dès qu'on sélectionne une cellule.

A+

 

[JCGL]

Re : empêcher les fusions

Bonjour à tous,
Salut Ges ,

Pour saluer l'ami Hasco et pour dire que le code de PMO fonctionne, aussi, très bien.

La fusion des cellules se trouve supprimée lors de la sélection d'une cellule en dehors de la zone fusionnée

A++
A+ à tous

 

[Cousinhub]

Re : empêcher les fusions

Bonjour, le fil

Pour saluer Ges et JC ²

Je n'ai pas fait d'essais, mais j'ai confiance, il ne manque pas de "s"....

A+ à tous

 

[envol]

Re : empêcher les fusions

Bonjour à vous tous,

Je vous présente mes excuses.
En effet, la fusion des cellules est bel et bien rendue impossible par vos 2 codes.
Ce qui m'a induit en erreur, c'est que le quadrillage des cellules est effacé quand on tenteune fusion. J'auais dû vérifier.

Très bonne journée à tous,