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