Ma macros ne fonctione pas

Sub Macro1()

'

' Macro1 Macro

'

'

Range("H5").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="=H5-E5+SI(E5>H5;1)>=--""12:00"""

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True

End With

End Sub

Bonjour

j'ai fait cette macro avec l’enregistreur mais sa ne fonction pas ???

MERCI

Bonjour,

Essaie ceci :

Formula1:="=mod(H5-E5;1)>=0,5"

Bonsoir, Salut Jean-Eric !

    With Range("H5").Validation
        .Delete
        .Add xlValidateCustom, , , "=MOD(H5-E5,1)>=0.5"
    End With

Cordialement.

bonsoir

super merci sa fonction bien