steuf050975
XLDnaute Nouveau
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 :
Merci de votre aide
Steuf050975
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 :
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 SubSteuf050975
Dernière édition: