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

Pantin

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour

essaie
Code:
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
 

Statistiques des forums

Discussions
283 806
Messages
1 854 602
Membres
152 561
dernier inscrit
Flaure62
Haut Bas