Bonjour,
puis avoir la même chose avec données / validation ?
Merci
Alpha
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K1000], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de
classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée. Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Bonjour,
puis avoir la même chose avec données / validation ?
Merci
Alpha
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K1000], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de
classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée. Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Merci beaucoup François-Xavier.
Alpha
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:uOnp%23ur4DHA.2612@tk2msftngp13.phx.gbl...
Bonjour,
puis avoir la même chose avec données / validation ?
Merci
Alpha
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K1000], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " & .Offset(0, -10) & " non
autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de
classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non
autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
Mais je t'en prie, tout le plaisir est pour moi.
@+
FxM
Alpha wrote:
Merci beaucoup François-Xavier.
Alpha
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:uOnp%23ur4DHA.2612@tk2msftngp13.phx.gbl...
Bonjour,
puis avoir la même chose avec données / validation ?
Merci
Alpha
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([K3:K1000], Target) Is Nothing _
And .Cells.Count = 1 Then
If .Value < .Offset(0, -10) Then
MsgBox "Date inférieure à " & .Offset(0, -10) & " non
autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de
classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True
End If
End If
End With
End Sub
Bonjour, puis avoir la même chose avec données / validation ? Merci Alpha
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([K3:K1000], Target) Is Nothing _ And .Cells.Count = 1 Then If .Value < .Offset(0, -10) Then MsgBox "Date inférieure à " & .Offset(0, -10) & " non
autorisée.
Veuillez choisir une autre date !", vbCritical + vbOKOnly, "Date de classement inférieure à la date de saisie du dossier"
Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End If End With End Sub
