Liste déroulante variable [Résolu]

[stefane26]

Bonjour
Je bloque depuis quelques temps sur la création d'une liste déroulante qui diminue à mesure que les celulles sont remplies :
Au depart => liste avec A, B, C, D, E
Je mets la valeur B (par exemple) avec ma liste déroulante
Ma liste devient : A, C, D, E

Pour vous aider à la compréhention : je vous ai mis un fichier exemple
Merci de votre aide
Stéphane

[White Mibu]

Bonjour,

je sais pas si cette solution te conviendra, mais voilà une proposition...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_Change(ByVal Target As Range)
 
Find = ActiveCell.Value
NbRow = ActiveCell.Row
NbColumn = ActiveCell.Column
 
If NbColumn = 1 Then
 
    Cells(1, 4).Select
    Do While ActiveCell.Value <> ""
    If ActiveCell.Value = Find Then ActiveCell.Value = " "
    ActiveCell.Offset(1, 0).Select
    Loop
 
    Cells(1, 3).Select
    Do While ActiveCell.Value <> ""
    i = ActiveCell.Row
    If ActiveCell.Value = "0" Then Cells(i, 4).Value = Cells(i, 2).Value
    ActiveCell.Offset(1, 0).Select
    Loop
 
    Cells(NbRow, NbColumn).Select
 
End If
 
End Sub

Voir résultat fichier joint !

Cordialement

[stefane26]

Merci pour cette première réponse, je vais tester.
Mais y aurait il une solution sans VBA?

[White Mibu]

Sans VBA je sais pas, peut-être j'espère que quelqu'un d'autre pourra t'aider

Cordialement

[stefane26]

bonjour
En tatonnant, j'ai trouvé la solution.
En partant d'un exemple trouvé sur le net pour créer une liste par ordre alphabétique et supprimer les lignes vides, j'ai modifié cela en rajoutant un test de doublon entre ma liste et les données déjà entrées.

Je joins le fichier : colonne bleu (A) => entée des données par liste déroulante
colonnes blanches => (B) : numérotation des lignes par ordre alphabétique ou non numérotation si vide ou doublon (C) : liste de départ
Colonne jaune => résultat avec nommage dynamique des cellules afin de modifier ma liste déroulante.
Voilà en espérant vous aider
Stéphane