Garder les mêmes cellules fusionnées

donadoni16

XLDnaute Junior
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
 

Pièces jointes

  • elec.xlsx
    12.3 KB · Affichages: 23

job75

XLDnaute Barbatruc
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+
 

donadoni16

XLDnaute Junior
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

job75

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024