Garder les mêmes cellules fusionnées

[donadoni16]

Bonjour à tous,
dans l'exemple ci-inclus je cherche à garder les mêmes cellules fusionnées D2:N4 même si je supprime des colonnes entre ces cellules y'a t'il une solution pour ça ?

Merci pour votre assistance

 

[job75]

Bonjour donadoni16,

Placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le 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+

 

[donadoni16]

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

 

[job75]

Re,

Placer dans ThisWorkbook :

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

 

[donadoni16]

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

 

[job75]

Bonjour donadoni16,

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

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

A+

 

[donadoni16]

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

Bonne journée