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

[Ilino]

Forum Bonjour
Mon souci today est :
Dans la cellule K15( fusionnée k-q) j’ai une liste déroulante
Longueur du tracé G.Civil (ml) :
Type d'equipement Telecom :
Longueur&Type Equipement :
Je souhaite dans la cellule R15 ( fusionnée R-X)
Si je selectionne dans la cellule K15 = Longueur&Type Equipement :
Je souhaite défusionné la R15 en deux partiée R15 -S15 fusionnée et T15-X15 fusionnée
MERCI and GRAZIE

 

[Victor21]

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😕

 

[Ilino]

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

Bonjour PATRICK
c'est une erreur de joindre le fichier

A+

 

[job75]

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

Bonjour Ilino, Patrick,

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+

 

[job75]

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

Re,

Autre solution avec Intersect :

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+

 

[Ilino]

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

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