AFFICHER UN MsgBox sous condition

[Ilino]

Forum Bonsoir
Je souhaiterai adapter ce code un mon souci le suivant :
Lorsque la date de E30 est sup ou égale E24 afficher un message « Vérifiez la date d'ouverture de chantier / a la date de To » si oui je rechange la date de E30 sinon je fais rein

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E24") <> "" And Range("E30") <> "" And Range("E24").Value >= Range("E30").Value Then
   'If MsgBox(Prompt:="Verifiez la date d'ouverture de chantier / a la date de To !", Title:="Attention !", Buttons:=vbYesNo) = vbYes Then
        Exit Sub
        Else
        Range("E30").ClearContents
       
    End If
End If
End Sub

GRAZIE

 

[Lone-wolf]

Re : AFFICHER UN MsgBox sous condition

bonsoir Ilino,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Msg, Stile, Titre, Reponse
If Range("E30").Value >= Range("E24").Value Then
Msg = "Verifiez la date d'ouverture de chantier / a la date de To !"
Stile = vbYesNo
Titre = "ATTENTION ! "
Reponse = MsgBox(Msg, Stile, Titre)
End If
If Reponse = vbYes Then
Range("E30").ClearContents
Else
Exit Sub
End If
End Sub

A+ 😎

 

[Ilino]

Re : AFFICHER UN MsgBox sous condition

Bonsoir Lone-Wolf
ca fonctionne; mais si je fusionne la cellule E30 ( de E a H) ça marche pas ,,,???
A+
NB: J'ai ce message : Erreur d'execution/ 1004 Impossible de modifier une cellule Fusionnée

 

[Lone-wolf]

Re : AFFICHER UN MsgBox sous condition

Re Ilino,

Dans ce cas...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Msg, Stile, Titre, Reponse
On Error Resume Next
If Range("E30:H30").Value >= Range("E24").Value Then
Msg = "Verifiez la date d'ouverture de chantier / a la date de To !"
Stile = vbYesNo
Titre = "ATTENTION !"
Reponse = MsgBox(Msg, Stile, Titre)
End If
If Reponse = vbYes Then
Range("E30").ClearContents
Else
Exit Sub
End If
End Sub


A+ :cool:

 

[Ilino]

Re : AFFICHER UN MsgBox sous condition

RE
grazie 😎
A+