Bonjour,
J'ai rajouter un rayon dans ma liste déroulante. Par contre j'arrive pas à lier ce rayon avec l'autre liste déroulante famille de produit. Je suis aller voir le code et j'ai pas réussi. code ci-dessous:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AB$4" Then Exit Sub
ActiveSheet.Range("AY7").Validation.Delete
For n = 9 To Sheets("LISTES").Cells(2, Columns.Count).End(xlToLeft).Column
If InStr(Sheets("LISTES").Cells(2, n), Target.Value) <> 0 Then
derlin = Sheets("LISTES").Cells(Rows.Count, n).End(xlUp).Row
form = "=LISTES!" & Cells(3, n).Address & ":" & Cells(derlin, n).Address
ActiveSheet.Range("AY7").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=form
End If
Next
End Sub
pouvez-vous m'éclairer?
merci
cordialement