XL 2016 Erreur d'execution 1004 erreur definie par l'application ou par l'objet

[Pantin]

Bonjour le forum,

Je rencontre un "bug" avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G7:G1006")) Is Nothing Then
Range("H" & Target.Row) = ""
With Range("H" & Target.Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Target.Value
End With
End If
End Sub

Le tout fonctionne bien sauf quand j'efface la valeur en "G".
A ce moment là, j'ai un message : erreur d'execution 1004 erreur definie par l'application ou par l objet...

Y a t il une possibilité d'éviter ce bug qui m'oblige à chaque fois à ferme manuellement la boite de dialogue.

Cordialement,

PANTIN

 

[ERIC S]

Bonjour

essaie

With Range("H" & Target.Row).Validation
.Delete
If Not Target.Value = "" Then
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=" & Target.Value
End If
End With

 

[Pantin]

Merci bcp Eric.
C'est parfait !
Bonne journée.