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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas