Bonjour à tous!
Je dispose de deux macros "worksheet_change" qui fonctionnent très bien séparément. J'ai cru comprendre que l'on ne peut pas en mettre deux dans la meme sheet, c'est pourquoi j'ai voulu rassembler les deux...La deuxième ne fonctionne alors plus, je vous joints le code pour que vous y compreniez quelque chose :
Private Sub Worksheet_Change(ByVal Target As Range)
'1ere requete
If Target.Column >= 2 And Target.Column <= 31 Then
If Cells(Target.Row, 27).Value = Date Then Exit Sub
Cells(Target.Row, 27).Value = Date
End If
'2eme requete
If Target.Column <> 2 And Target.Column <> 4 Then Exit Sub
If Application.CountIf(Sheets("saisie_base").Range("CC21:CC" & [CC21].End(xlDown).Row), Cells(Target.Row, 2) & Cells(Target.Row, 4)) > 1 Then
MsgBox "Attention : le numéro de 'sous plan' saisi est déjà existant pour ce budget!"
End If
End Sub
Si vous comprenez ce qui cloche et que vous avez une solution je suis preneur,
Merci d'avance
Doudo
Je dispose de deux macros "worksheet_change" qui fonctionnent très bien séparément. J'ai cru comprendre que l'on ne peut pas en mettre deux dans la meme sheet, c'est pourquoi j'ai voulu rassembler les deux...La deuxième ne fonctionne alors plus, je vous joints le code pour que vous y compreniez quelque chose :
Private Sub Worksheet_Change(ByVal Target As Range)
'1ere requete
If Target.Column >= 2 And Target.Column <= 31 Then
If Cells(Target.Row, 27).Value = Date Then Exit Sub
Cells(Target.Row, 27).Value = Date
End If
'2eme requete
If Target.Column <> 2 And Target.Column <> 4 Then Exit Sub
If Application.CountIf(Sheets("saisie_base").Range("CC21:CC" & [CC21].End(xlDown).Row), Cells(Target.Row, 2) & Cells(Target.Row, 4)) > 1 Then
MsgBox "Attention : le numéro de 'sous plan' saisi est déjà existant pour ce budget!"
End If
End Sub
Si vous comprenez ce qui cloche et que vous avez une solution je suis preneur,
Merci d'avance
Doudo