Private sub

[flo2002]

Re bonjour à tous!

Est il possible dans mettre deux sur une meme feuille?
Avec une cela fonnctionne mais quand je rajoute la deuxieme ca ne marche pas pour la seconde! pourquoi?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('D4😀39')) Is Nothing Then

If Target Target.Offset(-1, 4) Then
MsgBox 'Tu devrais forecaster un peu moins sur ce mois'

Else
MsgBox 'La valeur est acceptable'

End If
End If
End If
End Sub

Private Sub Worksheet_Change2(ByVal Target As Range)

If Not Intersect(Target, Range('f4:f39')) Is Nothing Then

If Target Target.Offset(-1, 5) Then
MsgBox 'Tu devrais forecaster un peu moins sur ce mois'

Else
MsgBox 'La valeur est acceptable'

End If
End If
End If
End Sub

merci d'avance

 

[flo2002]

Je m'auto répond encore une fois!

Il fallait mettre une seul private sub!