Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 IF Multiples conditions

chakershaker

XLDnaute Junior
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
 

Pièces jointes

  • if multiples conditions.xlsm
    31.5 KB · Affichages: 15
Solution
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • if multiples conditions.xlsm
    27.8 KB · Affichages: 5

chakershaker

XLDnaute Junior
oui c'est ça Merci beaucoup sylvanu
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…