liste validation modifiable

[dacyrix]

bonjour,
voici ma liste de validation qui se met à jour en rentrant des nouvelles entrées
comment modifier ce code pour l'appliquer à d'autres cellules
merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If InStr(Target.Validation.Formula1, Target.Value) = 0 Then
Target.Validation.Modify Formula1:= _
Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value
End If
End If
End Sub

 

[jp14]

Re : liste validation modifiable

Bonjour

En rajoutant un test

Application.Substitute(Target.Validation.Formula1, ";", ",") & "," & Target.Value
End If
End If
If Target.Address = "$D$2" Then
.........................
..........................
End If
' dans le cas d'une plage b2 à f2
If Not Intersect(Target, Range("B2:F2")) Is Nothing Then

End If

JP