XL 2010 IF Multiples conditions

chakershaker · 18 Mai 2021

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 .

VB:

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 · 18 Mai 2021

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

VB:

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.

sylvanu · 18 Mai 2021

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

VB:

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 · 18 Mai 2021

sylvanu à dit:
Bonjour Chakershaker,
Un essai en PJ avec dans la feuille "saisie"

VB:

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

XL 2010 IF Multiples conditions

chakershaker

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

chakershaker

XLDnaute Junior

Discussions similaires