Non ça ne fonctionne pas
Vraiment désolé
Ci-dessous le code que je n'arrive pas à adapter
Private Sub Worksheet_Calculate()
Vérif
Vérif1
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("C4:C11")) Is Nothing Then Exit Sub
Vérif
If Intersect(Target, Range("G4:G11")) Is Nothing Then Exit Sub
Vérif1
End Sub
Private Sub Vérif()
'If VarType(Range("C4:C11")) = VarType(ValPrec) Then _
' If ValPrec = Range("C4") Then Exit Sub
MsgBox "Changement détecté Zone Nord"
End Sub
Private Sub Vérif1()
'If VarType(Range("C4:C11")) = VarType(ValPrec) Then _
' If ValPrec = Range("C4") Then Exit Sub
MsgBox "Changement détecté Zone Sud 1"
End Sub