XL 2010 IF Multiples conditions

[chakershaker]

Bonjour, je veux ajouter une suivie remplie par des opérateurs une planification d'entretien préventive doit être planifier si on atteint la 30 ème poste de suivie c'est pour cela je demande si j'ouvre l'onglet "suivie" et aujourd'hui se coïncide avec le numéro de poste 30 un msg box apparait comme rappel
Merci .

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)


If ActiveSheet.Name = "suivie" Then
 If Sheets("suivie").Range("a:a") = Sheets("suivie").Range("a1") Then
   If Sheets("suivie").Range("c:c") = "30" Then


   MsgBox "Veuilez planifier l'entrtien préventif"
   Else


   End If
 Else

 End If
Else
End If

End Sub

 

[sylvanu]

Bonjour Chakershaker,
Un essai en PJ avec dans la feuille "saisie"

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
         Derlig = Sheets("suivie").Range("C65500").End(xlUp).Row
         If Cells(Derlig, "C") >= 30 Then MsgBox "Veuilez planifier l'entretien préventif"
    End If
Fin:
End Sub

J'ai invalidé la macro de la feuille worksheet.

 

[chakershaker]

Bonjour Chakershaker,
Un essai en PJ avec dans la feuille "saisie"

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
         Derlig = Sheets("suivie").Range("C65500").End(xlUp).Row
         If Cells(Derlig, "C") >= 30 Then MsgBox "Veuilez planifier l'entretien préventif"
    End If
Fin:
End Sub

J'ai invalidé la macro de la feuille worksheet.

oui c'est ça Merci beaucoup sylvanu