Bonjour Ludivine,

Pour virer les doublons dans la colonne "A" à partir de la ligne 3 :

Dim CelluleCourante As Range
Dim CelluleSuivante As Range
  
Set CelluleCourante = Range("A3")
Do While Not IsEmpty(CelluleCourante)
  Set CelluleSuivante = CelluleCourante.Offset(1, 0)
  If CelluleSuivante.Value = CelluleCourante.Value Then
    CelluleCourante.EntireRow.Delete
  End If
  Set CelluleCourante = CelluleSuivante
Loop

ActiveSheet.AutoFilterMode = False
Columns("A:A").AutoFilter

Re, ludivine,

OK. Essaie ça, à mettre dans la macro Initialize de ton UserForm. Adapte les paramètres :
- Lig : n° de la première ligne de données
- Col : colonne des données
- ListBox1 : remplacer éventuellement par le nom de ta ListBox.

Private Sub UserForm_Initialize()

  Dim Lig               As Long
  Dim Col               As String
  Dim ValeurCourante    As String
  Dim ValeurPrécédente  As String
  
  Lig = 3
  Col = "A"
  ValeurPrécédente = ""
  ValeurCourante = Cells(Lig, Col).Value
  Do While ValeurCourante <> ""
    If ValeurCourante <> ValeurPrécédente Then
      ListBox1.AddItem ValeurCourante
    End If
    Lig = Lig + 1
    ValeurPrécédente = ValeurCourante
    ValeurCourante = Cells(Lig, Col).Value
  Loop
  
End Sub

Bonjour,

Ca ne marche pas snif ... dur pour un vendredi !
J'ai du zappé quelque chose c'est sûr, mais je ne comprend rien à la première partie de ton code, du coup si je dois adapter, c'est pas gagné.

Bref, pour la listbox, à l'origine, j'avais bien la liste de mes données ... seulement en ayant donné le nom de l

Pas sniff, ludivine... !

Ci-dessous un exemple :
http://cjoint.com/?izkDwEfevP

A l'ouverture du classeur la Listbox s'affiche automatiquement.
Regarde le code du UserForm...

Désolé ludivine, mais ma FreeBox est restée en rade pendant 3 heures. Bon, 3 h en 2 ans c'est pas une catastrophe, mais bon...

Donc je te mets un nouveau classeur ici :
http://cjoint.com/?izrcMmdFXA

Je vois un peu mieux ce que tu veux faire.
Le formulaire ne se lance pas au démarrage. Tu peux faire <CTRL+MAJ+M>.
Tu pourras paramétrer la macro Initialize selon tes propres besoins. J'utilise la colonne "Z" pour y copier les données de la colonne "A" et les trier pour alimenter la ListBox.

Quand on clique dans la liste, on filtre les données correspondantes. Dans la commande j'ai mis le paramètre VisibleDropDown à False, ce qui cache la petite "flèche en bas" du filtre. Tu peux le mettre à True (ou l'enlever, c'est la valeur par défaut) si tu veux.

A suivre, sans doute...

Coucou

ca avait l'air de fonctionner à un moment donné...mais là je ne comprend plus rien
j'ai inséré un nouveau formulaire, selon réponse, le formulaire avec listbox en question doit s'afficher, mais ça me fait une erreur d'exe '13', j'ai l'impression qu'il n'aime l'initialisation....

es tu sûr qu'il n'y a pas moyen de compléter plus simplement (sans initialisation) la propriété rowsource de la listbox avec un paramètre en plus pour n'afficher qu'une seule fois les memes valeurs (paramètre que je ne connais pas bien sûr...)

??

J'entends par là, compléter rowsource = plagededonnéesNommée
après je sais pas ...

A priori, l'erreur VBA "13" est Incompatibilité de type. Peut-être du texte qui serait utilisé comme du numérique par exemple, ou quelque chose comme ça...?
Si tes données sont stables pendant que tu utilises tes macros, on peut effectivement préparer la liste de la ListBox à l'open du classeur, plutôt qu'à l'Initialize du formulaire. Dans ce cas, il faut que tu tries tes données et que tu construises une plage où les doublons sont éliminés. Ensuite tu utilises effectivement la propriété RowSource pour se référer à cette plage.

à ce moment là, je pense que je vais créer une plage de données, avec valeurs uniques, qui sera source d'alim pour ma colonne de données
et alimenter ma listbox par le nom de la plage
ca me parait etre plus simple (sauf si nouvelle entrée pour celui qui fait les modifs de la base de données, quoique...), qu'en penses tu?

Ah si, juste une dernière petite question !
Comment je peux afficher une flèche pour dérouler ma listbox comme une liste déroulante ? (suis je claire?...)
Pour l'instant, j'ai deux petites flèches haut et bas à droite de ma listbox, et les valeurs restent affichées seulement à l'intérieur. Mais je voudrais n'avoir qu'une flèche bas et qd clique, que toute la liste s'affiche...

Au lieu d'une ListBox, tu peux utiliser un ComboBox. Beaucoup de propriétés sont identiques, et ça ne devrait pas être compliqué à transposer. Tu auras une liste déroulante, et tu pourras déterminer le nombre d'items visibles d'un coup avec la propriété ListRows.

Et pour répondre à ton item n° 13 ci-dessus : la macro que j'ai fournie fait à peu près ce que tu as mis en place : elle recalcule automatiquement, dans une feuille à part, une plage que tu peux passer à RowSource. Tu peux l'exécuter à chaque ouverture du classeur si ça change tout le temps, ou seulement quand c'est le moment...

La combobox c'est nickel
a+