Liste déroulante vba

[yankulovski]

Bonjour à tous,

J'ai quelques problèmes avec mes listes déroulantes.

Actuellement j'utilise un userform dans lequel je choisi un emplacement. De cet emplacement choisi, decoule une liste de matériel disponible à cet emplacement. 1er problème : dans le cas ou plusieurs ecrans sont disponible, le userform m'affiche autant de fois le mot ecran qu'il y en a a l'emplacement choisi (je n'arrive pas a ne pas avoir de doublons). Ensuite quand je choisis le matériel, j'aimerai que cela m'affiche le numéro de série de ce matériel.

Et la je n'y arrive pas. Quelqu'un aurait-il une idée pour me débloquer?

D'avance merci

P.S. : Je vous joint mon fichier pour que vous compreniez ce que je viens d'expliquer.

 

[greg06500]

Re : Liste déroulante vba

Salut,

Tu peux essayer avec ce tuto
Utiliser les contrôles dans un UserForm, en VBA Excel - Club d'entraide des développeurs francophones

Remplir une ListBox sans doublons
Vba

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim i As Integer

'Récupère la derniere ligne non vide dans la colonne A
i = Range("A65536").End(xlUp).Row

On Error Resume Next
'boucle sur les cellules de la colonne A
For Each Cell In Range("A1:A" & i)
'Stocke les données dans une collection
'(La collection n'accepte que des données uniques et permet donc
' de filtrer facilement les doublons).
Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0

'Boucle sur le contenu de la collection pour alimenter la ListBox
For Each Valeur In Unique
Me.ListBox1.AddItem Valeur
Next Valeur
End Sub


BON COURAGE
@+

 

[yankulovski]

Re : Liste déroulante vba

Je vais regarder et voir si j'y arrive

Merci beaucoup