Discussion :

[modus57]

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.

[boisgontierjacques]

Bonjour,

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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".