Bonjour à tous,
J'ai une liste déroulante dans un fichier excel mais j'aimerais faire mieux.
En effet, j'aimerais que si un des élements de ma liste à été saisie, qu'il ne figure plus dans la liste déroulante.
exemple, feuille 2 j'ai ma colonne (dynamique avec toutes mes valeurs de ma liste déroulante)
feuille 1 j'ai ma colonne où je choisi un élément de ma liste déroulante si je choisit l'élément 1, pour la colonne suivante, je voudrait qu'il ne soit plus proposé dans ma liste déroulante.
voici mon code pour la liste déroulante.

Merci pour votre aide.

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
19
20
21
22
' création des listes déroulantes
    Dim nbmax As Integer
 
    nbmax = Application.WorksheetFunction.CountA(Worksheets("Billettes").Range("A:A"))
    If nbmax = 0 Then
    nbmax = 1
    End If
 
    Range("B12:B172").Select
    With Selection.VALIDATION
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Billettes!$A$1:$A$" & nbmax
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = True
    End With