Répondre à la discussion

Message

<blockquote data-quote="tigla" data-source="post: 20474101" data-attributes="member: 364669">bonjourLe code suivant fonctionne correctement lorsque la Target.Address est la cellule A1. Le problème est que cela ne fonctionne pas lorsqu'il y a fusion des cellule A1:H2.J'ai essayé les trois écritures avec et sans MergeArea, mais rien n'y fait .une solution ?[CODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)&nbsp; If Intersect(Target, Range(&quot;A1:H6&quot;)) Is Nothing Then Exit Sub&nbsp;&nbsp;' If Target.Address = Range(&quot;$A$1&quot;).MergeArea.Address Then&nbsp;' If Target.Address = Range(&quot;$A$1:$H$2&quot;).MergeArea.Address Then&nbsp; If Target.Address = Range(&quot;titre&quot;).MergeArea.Address Then&nbsp; '&nbsp; Range(&quot;A1:H2&quot;)nommer &quot;titre&quot;&nbsp;&nbsp;If Target.Value = Range(&quot;K1&quot;) ThenMsgBox &quot;CALL COUL&quot;Else&nbsp;If Target = Range(&quot;K4&quot;) Or Target = &quot;&quot; ThenMsgBox &quot;CALL PACOUL&quot;MsgBox &quot;CALL PABB&quot;Else&nbsp;If Target = Range(&quot;K2&quot;) ThenMsgBox &quot;CALL BB&quot;Else&nbsp;If Target = Range(&quot;K3&quot;) ThenMsgBox &quot;CALL PORTI&quot;End IfEnd IfEnd If&nbsp; End IfElseMsgBox &quot;adress (a1)incorrect&quot;End IfEnd Sub[/CODE]</blockquote>

[QUOTE="tigla, post: 20474101, member: 364669"] bonjour Le code suivant fonctionne correctement lorsque la Target.Address est la cellule A1. Le problème est que cela ne fonctionne pas lorsqu'il y a fusion des cellule A1:H2. J'ai essayé les trois écritures avec et sans MergeArea, mais rien n'y fait . une solution ? [CODE=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:H6")) Is Nothing Then Exit Sub ' If Target.Address = Range("$A$1").MergeArea.Address Then ' If Target.Address = Range("$A$1:$H$2").MergeArea.Address Then If Target.Address = Range("titre").MergeArea.Address Then ' Range("A1:H2")nommer "titre" If Target.Value = Range("K1") Then MsgBox "CALL COUL" Else If Target = Range("K4") Or Target = "" Then MsgBox "CALL PACOUL" MsgBox "CALL PABB" Else If Target = Range("K2") Then MsgBox "CALL BB" Else If Target = Range("K3") Then MsgBox "CALL PORTI" End If End If End If End If Else MsgBox "adress (a1)incorrect" End If End Sub [/CODE] [/QUOTE]

Vérification