Modif userform

bonjour,

J'ai un userform qui capte dans la colonne "C" les numéro unique.

je voudrais qu'il capte tout les numéros même s'il y as des doublons.

ci-joint un fichier.

à l'avance merci

Bonjour,

Un essai ...

Sub Actualiser_ListBox()
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim Dl As Long
Dim x As Integer

   ListBoxNoVeh2.Clear

   With Worksheets("BASE DE DONNEES")

      'Recupere la derniere ligne non vide dans la colonne A
      Dl = .Range("C" & Rows.Count).End(xlUp).Row

      On Error Resume Next

      'boucle sur les cellules de la colonne A
      For Each Cell In .Range("c2:C" & Dl)

         ' Stocke les donnees dans une collection
         ' La collection n'accepte que des donnees uniques, donc filtre les doublons.
      ListBoxNoVeh2.AddItem CStr(Cell)    ' ric
'''         Unique.Add Cell, CStr(Cell)   ' ric
      Next Cell

      'Boucle sur le contenu de la collection pour alimenter la ListBox
'''      For Each Valeur In Unique        ' ric
'''         ListBoxNoVeh2.AddItem Valeur  ' ric
'''      Next Valeur                      ' ric
   End With

   Tri Me.ListBoxNoVeh2

   With UF_Voiture
      .StartUpPosition = 0
      .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
      .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
   End With
End Sub

ric

bonjour,

je viens de tester et il me met juste une fois le véhicule et pas tout les véhicules de la colonne "C".

Bonjour,

Sur le fichier que tu nous as soumis, ça fonctionne correctement.

J'ai compté 39 cellules dans la colonne B et il y a 39 items dans la ListboxNoVeh2.

Je joins le fichier.

Remarque que j'ai désactivé au bas, le positionnement d'un autre userform non présent dans le fichier soumis.

ric

excuse je me suis trompé de fichier c'est tout bon mille merci

ric