isempty sur cellule fusionnée

[tres9900]

Bonjour,

mon test isempty sur une cellule fusionnée ne fonctionne pas et le .value me renvoie une erreur.

Le contexte:

J'ai 2 feuille semblable et pour eviter les références circulaire, je copie les modifications de l'une dans l'autre et vis et versa.

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target.Value) And Not IsEmpty(Sheets("Charges Initiales").Cells(Target.Row, Target.Column).Value) Then
   Sheets("Charges Initiales").Cells(Target.Row, Target.Column).ClearContents
Else
   If Sheets("Charges Initiales").Cells(Target.Row, Target.Column).Value <> Target.Value Then
      Sheets("Charges Initiales").Cells(Target.Row, Target.Column).Value = Target.Value
   End If
End If
End Sub

le problème c'est que cela marche sans problème sur des cellules "normales" mais le "IsEmpty(Target.Value)" me renvoie toujours false lorsque la cellule est fusionnée

Je vous ai joint mon fichier :
Le problème se passe entre les feuilles "charges Initiales" et "Conso", la copie se fait bien entre les cellules F1:F8 des 2 feuilles mais quand je supprime les valeurs saisies, cela ne marche que pour la cellule F1 qui n'est pas fusionnée et j'ai une erreur avec les cellule F2:F8
J'espère etre clair, c'est pas évident.
Merci d'avance pour votre aide.

 

[mromain]

Re : isempty sur cellule fusionnée

Bonjour tres9900,


Essaye en remplaçant Target.Value par Target.MergeArea(1, 1).Value.

a+

 

[tres9900]

Re : isempty sur cellule fusionnée

J'ai commenté tout le code et laissé juste

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox IsEmpty(Target.MergeArea(1, 1).Value)
End Sub

et j'ai une erreur 1004 lorsque je supprime la valeur.

 

[mromain]

Re : isempty sur cellule fusionnée

Re,

Effectivement, il y a une erreur (lorsqu'on supprime une donnée d'une cellule fusionnée). Essaye IsEmpty(Target(1, 1).Value).

a+

 

[hoerwind]

Re : isempty sur cellule fusionnée

Bonjour, salut mromain,

C'est dangereux ce que vous essayer de faire !
Voir la pièce jointe.

 

[mromain]

Re : isempty sur cellule fusionnée

Bonjour, salut mromain,

C'est dangereux ce que vous essayer de faire !
Voir la pièce jointe.

Bonjour hoerwind,

C'est pas faux..
Personnellement, je n'utilise quasiment jamais la fusion de cellules pour m'éviter ce genre de désagréments.
Sinon, juste pour savoir : Comment as-tu mis une valeur dans les cellules fusionnées ? Par macro ?
Parce que lorsqu'on fusionne des cellules contenant du texte, il ne garde que la valeur de la première cellule...

a+

 

[tres9900]

Re : isempty sur cellule fusionnée

Ca marche nickel
Merci!!

 

[Efgé]

Re : isempty sur cellule fusionnée

Bonjour tres9900, Salut mromain, hoerwind,
hoerwind, je me joint à mromain : Comment a tu fais ??? 😱
Cordialement

 

[hoerwind]

Re : isempty sur cellule fusionnée

Re,

Faire une copie - collage spécial format de E4 (cellule fusionnée) sur C4:C8.
Les valeurs en C4:C8 restent (cachées) et E4 peut être défusionnée et effacée.

 

[Efgé]

Re : isempty sur cellule fusionnée

Re
Merci hoerwind
Cordialement

 

[mromain]

Re : isempty sur cellule fusionnée

Re, salut Efgé,

Merci pour l'info hoerwind 😉

a+

 

[YANN-56]

Re : isempty sur cellule fusionnée

Bonsoir à tous,
Avec la cellule de gauche:
Voir
Comme d'hab.trop tard, et à coté 🙂
Amicalement pour rire.
Yann