Fusionnée une plage de cellule deja fusionné en deux partiée

Victor21

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2014

• #2

Re : Fusionnée une plage de cellule deja fusionné en deux partiée

Ilino bonjour

Et comme à l'habitude, le fichier exemple est resté sur le disque dur.
Pardonnable, pour un petit nouveau qui affiche 1871 messages (ou pas).
A nous de nous dépatouiller😕

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Décembre 2014

• #3

Re : Fusionnée une plage de cellule deja fusionné en deux partiée

Bonjour PATRICK
c'est une erreur de joindre le fichier

A+

 

Dernière édition: 17 Décembre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2014

• #4

Re : Fusionnée une plage de cellule deja fusionné en deux partiée

Bonjour Ilino, Patrick,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$K$15" Then Exit Sub
With Target(1, 8).Resize(, 7)
  .Value = ""
  .Merge
  If Target Like "*&*" Then
    .UnMerge
    .Resize(, 2).Merge
    .Cells(1, 3).Resize(, 5).Merge
  End If
End With
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2014

• #5

Re : Fusionnée une plage de cellule deja fusionné en deux partiée

Re,

Autre solution avec Intersect :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K15]) Is Nothing Then Exit Sub
With [R15:X15]
  .Value = ""
  .Merge
  If [K15] Like "*&*" Then
    .UnMerge
    .Resize(, 2).Merge
    .Cells(1, 3).Resize(, 5).Merge
  End If
End With
End Sub

Cette fois quand on efface K15 il se passe quelque chose.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Décembre 2014

• #6

Re : Fusionnée une plage de cellule deja fusionné en deux partiée

Bonjour MAITRE; Bonjour PATRICK
@ maitre: grazie c'est nickel
Pblm RESOLUTO

 

Vote positif 0 Vote négatif