textbox [occurences] fonction de combobox/listbox [valeurs]

[Kim75]

Bonjour le forum,

J’ai une liste de valeurs texte dans le champ de la colonne A [à partir de A2 jusqu’à sans limite, car le nombre de ligne est variable selon le rajout ou la suppression de valeurs], ces valeurs se répètent plusieurs fois dans la colonne, et j’ai dans un UerForm une combobox [ou lisbox] et une textbox.

Etant très débutant en vba, ce serait vraiment sympa si quelqu’un pouvait m’indiquer le code à placer dans le UserForm pour ressortir dans la combobox [ou listbox] la liste de valeurs texte sans doublons, et afficher dans la textbox le nombre d’occurrence de la valeur texte choisie.

Merci de votre aide.

 

[Robert]

Re : textbox [occurences] fonction de combobox/listbox [valeurs]

Bonjour le fil, bonjour le forum,

En pièce jointe une proposition commentée qui devrait te convenir.

 

[Kim75]

Re : textbox [occurences] fonction de combobox/listbox [valeurs]

Private pl As Range
Private Sub UserForm_Initialize()
Dim c As Collection
Dim cel As Range
Dim x As Integer
Sheets("BD").Select
Set c = New Collection
Set pl = Range("A2:A" & Range("A65536").End(xlUp).Row)
For Each cel In pl
    On Error Resume Next
    c.Add cel.Value, CStr(cel.Value)
Next cel
For x = 1 To c.Count
    Me.ListBox2.AddItem c(x)
Next x
End Sub
Private Sub ListBox2_Click()
Dim r As Range
Dim pa As String
Dim n As Integer
Set r = pl.Find(Me.ListBox2.Value)
If Not r Is Nothing Then
    n = 0
    pa = r.Address
    Do
        n = n + 1
        Set r = pl.FindNext(r)
    Loop While Not r Is Nothing And r.Address <> pa
End If
Me.TextBox1.Value = n
End Sub

Bonsoir Robert, le forum,

Merci Robert pour le code, j'ai essayé de l'intégrer au UserForm en y insérant Sheets("BD").Select, mais je crois que je m'y suis mal pris, puisque ça n'a pas marché.

Je te file le classeur pour regarder un peu le code que j'ai recupéré sur le site de Jacques Boisgontier, je suis un peu gêné d'avouer que je manipule le vba en tatonnant, un peu hasard.



Merci, Kim.

 

[Robert]

Re : textbox [occurences] fonction de combobox/listbox [valeurs]

Bonsoir Kim, bonsoir le forum,

Hé oui on perd tu temps. Si tu avais mis le fichier de suite... En pièce jointe ton fichier modifié.

 

[Kim75]

Re : textbox [occurences] fonction de combobox/listbox [valeurs]

Bonjour Robert, le forum,

Merci pour le code, ça marche très bien, à cette différence près, que lorsqu'on appelle le UserForm1 à partir de la page d'accueil, c'est la feuille base de données qui s'affiche avec, ce qui n'était pas le cas avant.

Passe un bon dimanche Robert.

Bien à toi, Kim.

 

[Robert]

Re : textbox [occurences] fonction de combobox/listbox [valeurs]

Bonjour Kim, bonjour le forum,

La version 03 corrige cette erreur... Bon dimanche également.