Ajout ou suppression d'un élément dans une liste de validation des données par macro

Version imprimable

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:

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.

2 pièce(s) jointe(s)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 2 And Target.Count = 1 Then
   If Target <> "" Then
     If Not IsError(Application.Match(Target.Value, [liste], 0)) Then
       If MsgBox("On supprime de la liste " & Target & "?", vbYesNo) = vbYes Then
         p = Application.Match(Target.Value, [liste], 0)
         Sup p
         Target.Delete
       End If
     End If
   End If
  End If
  Cancel = True
End Sub
 
Sub Sup(p)
  [liste].Cells(p, 1).Delete Shift:=xlUp
End SubEnd Sub

Si la liste de validation est un TS, le code devient:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 2 And Target.Count = 1 Then
   If Target <> "" Then
     If Not IsError(Application.Match(Target.Value, [tableau1], 0)) Then
       If MsgBox("On supprime de la liste " & Target & "?", vbYesNo) = vbYes Then
         p = Application.Match(Target.Value, [tableau1], 0)
         [tableau1].Cells(p, 1).Delete Shift:=xlUp
         Target.Delete
       End If
     End If
   End If
  End If
  Cancel = True
End Sub

Boisgontier

24/02/2020, 13h14
modus57

Bonjour BOISGONTIER.

Merci pour votre réponse.

Vos 2 solutions permettent de supprimer un élément de la liste d'une autre feuille du classeur.

En fait je n'utilise pas de liste dans ou une autre feuille du classeur.

Je souhaiterai ajouter ou supprimer un des éléments directement dans le contrôle "Source" de la "Liste" dans la boîte de dialogue "Validation des données".