Bonjour.

Je souhaiterai ajouter un élément qui n'appartient pas à la liste de validation des données dans le contrôle source ou supprimer un de ses éléments.

Pour ce faire j'ai utilisé un bout de code de BOISGONTIER que j'ai adapté pour vérifier d'abord si la cellule contient une liste.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    Set cel = Cells.SpecialCells(xlCellTypeAllValidation)
    If MsgBox("On ajoute?", vbYesNo) = vbYes Then
        If Not Intersect(Target, cel) Is Nothing Then
            If Target.Address = Target.Address 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
            Target.Activate
        Else
            Application.Undo
        End If
    End If
End Sub
J'aimerai supprimer un des éléments de la liste de validation et là ça coince je ne sais pas comment procéder.

Un petit coup de pouce svp, merci d'avance.