Garder les mêmes cellules fusionnées

job75

XLDnaute Barbatruc

• 7 Mai 2017

• #2

Bonjour donadoni16,

Placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2:N4]) Is Nothing Then [D2:N4].UnMerge: [D2:N4].Merge
End Sub

Et bien sûr enregistrer le fichier en .xlsm.

A+

 

Vote positif 0 Vote négatif

D

donadoni16

Guest

• 7 Mai 2017

• #3

Bonsoir Job, Le forum

merci pour votre réponse, je viens de tester et ça marche comme je souhaitais
en revanche j'aimerais bien savoir est ce qu'il est possible de modifier le code pour l'appliquer sur toutes les feuilles du classeur sauf KALO & BATI

Cordialement

 

Pièces jointes

• elec.xlsm

  33.1 KB · Affichages: 27

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Mai 2017

• #4

Re,

Placer dans ThisWorkbook :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "KALO" And Sh.Name <> "BATI" Then _
  If Not Intersect(Target, Sh.[D2:N4]) Is Nothing Then Sh.[D2:N4].UnMerge: Sh.[D2:N4].Merge
End Sub

Bonne nuit

 

Vote positif 0 Vote négatif

D

donadoni16

Guest

• 8 Mai 2017

• #5

Bonjour Job,
je viens de faire un test et j'ai découvert que le code est appliqué sur toutes les feuilles mêmes KALO & BATI

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2017

• #6

Bonjour donadoni16,

donadoni16 à dit:

Bonjour Job,
je viens de faire un test et j'ai découvert que le code est appliqué sur toutes les feuilles mêmes KALO & BATI

Cliquez pour agrandir...

Bah il faut bien sûr supprimer les Worksheet_Change que vous aviez mises dans toutes les feuilles !!!

A+

 

Vote positif 0 Vote négatif

D

donadoni16

Guest

• 8 Mai 2017

• #7

ah oui j'ai oublié d'enlever l'ancien code
Merci beaucoup Job ça marche comme je souhaitais

Bonne journée

 

Vote positif 0 Vote négatif