insertion d'une date dans cellule selon une date d'une autre cellule

[TEMAGOULTFARID]

bonjour a vous,
j'ai un fichier trop lourd pour l'envoyé et beaucoup d’informations personnelles
Donc je vais essayé d'être le plus clair possible
Dans une cellule A1 j'ai une date de début de signalement
Dans une autre A2 , on entre la date du début d'intervention
Il y a-t-il un moyen lorsque je rentre la date d'intervention en A2 d'interdire d'afficher si la date est antérieur a la date du début du signalement avec un affichage pour informé l'intervenant.
j’espère avoir été explicite
Par avance, merci
cordialement

 

[_Thierry]

Bonsoir @TEMAGOULTFARID , le Forum

Un solution VBA évènementielle à mettre dans le Private Module de la Feuille en question.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B50")) Is Nothing Then Exit Sub
If Not Target = "" Then

    If Target.Offset(0, -1).Value > Target.Value Then
        MsgBox "Pas bon"
        '....... autres actions
        Target = ""
    End If
End If

End Sub

Bonne nuit
@+Thierry

 

[TEMAGOULTFARID]

Bonsoir @TEMAGOULTFARID , le Forum

Un solution VBA évènementielle à mettre dans le Private Module de la Feuille en question.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B50")) Is Nothing Then Exit Sub
If Not Target = "" Then

    If Target.Offset(0, -1).Value > Target.Value Then
        MsgBox "Pas bon"
        '....... autres actions
        Target = ""
    End If
End If

End Sub

Bonne nuit
@+Thierry

Bonsoir Thierry,
je vais essayé et merci beaucoup
bonne nuit

 

[TEMAGOULTFARID]

Bonsoir @TEMAGOULTFARID , le Forum

Un solution VBA évènementielle à mettre dans le Private Module de la Feuille en question.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B50")) Is Nothing Then Exit Sub
If Not Target = "" Then

    If Target.Offset(0, -1).Value > Target.Value Then
        MsgBox "Pas bon"
        '....... autres actions
        Target = ""
    End If
End If

End Sub

Bonne nuit
@+Thierry

Bonjour Thierry,
comme je suis un nourrisson dans le domaine VBA , pourrait tu m'expliquer la formule que tu m'as proposer afin que je puisse l'adapter a mon fichier sources si cela ne te derange pas .
par avance , merci
bonne journée a toi

 

[_Thierry]

Bonsoir @TEMAGOULTFARID , le Form

Voici un classeur où le code est en "Full Comments"

Bien @ toi, à vous
@+Thierry

 

[TEMAGOULTFARID]

Bonsoir @TEMAGOULTFARID , le Form

Voici un classeur où le code est en "Full Comments"

Regarde la pièce jointe 1064632

Bien @ toi, à vous
@+Thierry

Bonjour Thierry,
merci pour ces explications que j'ai lu avec attention. une question que je me pose, si au lieu de prendre If Target.Offset(0, -1).Value > Target.Value Then comme point de référence ,mais une cellule bien déterminé comme dans l'exemple du fichier en PJ "E19" en prenant aussi la cellule de saisie B1 comme point de départ et en ajoutant un autre critère comme dans la cellule A8 =MAINTENANT() et obtenir le résultat dans B1 (on ne peut avant E19 mais apres A8.
par avance merci de ta participation a mon projet.
bien cordialement