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 ?
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 ?
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