Erreur de compilation utilisation worksheet_change

[steuf050975]

Bonjour,

J'essaie d'utiliser l'évenement Worksheet_Change afin de modifier la validation de données d'une cellule en fonction de la valeur d'une autre cellule.
Je ne comprends pas quand je fais un test, VBA me dit "erreur de compiltation : utilisation incorrect de l'objet" en pointant sur la 1ere ligne :
Private Sub Worksheet_change (ByVal Target as Range)

J'ai beau chercher dans le forum je ne trouve pas l'erreur que je fais.

voilà le code :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Liste As Range

If (Target.Count = 1 And Target.Column = 5) Then

    Select Case Target.Value
    
    Case Worksheets("Parameters").Range("A1").Value:
        Set Liste = Worksheets("Parameters").Range("B1:F1")
    Case Worksheets("Parameters").Range("A2").Value:
        Set Liste = Worksheets("Parameters").Range("B2:E2")
    Case Worksheets("Parameters").Range("A3").Value:
        Set Liste = Worksheets("Parameters").Range("B3:C3")
    Case Worksheets("Parameters").Range("A3").Value:
        Set Liste = Worksheets("Parameters").Range("B3")
    
    End Select
    If Liste Is Not Nothing Then
        Target.Offset(0, 1).Delete
        With Target.Offset(0, 1).Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=Liste
        End With
    End If
End If

End Sub

Merci de votre aide
Steuf050975

 

[kjin]

Re : Erreur de compilation utilisation worksheet_change

bonjour,
Ton fichier est corrompu !
Peux tu poster le code
A+
kjin

 

[steuf050975]

Re : Erreur de compilation utilisation worksheet_change

Je viens de faire la modif. En espérant que ça reste clair sans le fichier...

 

[steuf050975]

Re : Erreur de compilation utilisation worksheet_change

Bon, j'ai fini par trouvé, c'était l'utilisation de Not qui était incorrect. Il fallait mettre
If Not (List is Nothing)

 

[kjin]

Re : Erreur de compilation utilisation worksheet_change

Re,
J'ai quand même qq doutes !
Liste existera toujours donc pourquoi tester ?
Par ailleurs, la référence de la validation m'étonne
Mais il serait préférable de fournir le fichier
A+
kjin