empêcher les fusions

P

PMO2

XLDnaute Accro

• 29 Juin 2010

• #2

Re : empêcher les fusions

Bonjour,

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

Code:

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

Cordialement.

PMO

 

Vote positif 0 Vote négatif

E

envol

XLDnaute Occasionnel

• 4 Juillet 2010

• #3

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,

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 4 Juillet 2010

• #4

Re : empêcher les fusions

Bonjour evol, PMO2,

Code:

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Juillet 2010

• #5

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Juillet 2010

• #6

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

 

Vote positif 0 Vote négatif

E

envol

XLDnaute Occasionnel

• 5 Juillet 2010

• #7

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,

 

Vote positif 0 Vote négatif