RowSource (UserForm) sans les doublons

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Novembre 2013

• #2

Re : RowSource (UserForm) sans les doublons

Bonjour,


Cf Listes sans doublons triée

JB

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 21 Novembre 2013

• #3

Re : RowSource (UserForm) sans les doublons

Bonjour,
Merci pour la réponse, j'avais déjà cherché sur internet et j'étais tombé sur ce lien mais j'avais pas réussi à l'adapter. Est-ce que vous pouvez me dire si là c'est bon? (Ca à l'air de marcher mais on ne sait jamais..)😛

Code:

Call nb_lignes 'Nombres de données avec i comme variable globale
    
    Filtre.zl_article.Clear 'Nettoyage
    For Each c In Range("E2:E" & i)
        If c.Value <> "" Then
            Filtre.zl_article.Text = c.Value
            If Filtre.zl_article.ListIndex = -1 Then Filtre.zl_article.AddItem c.Value
        End If
  Next c
  Filtre.zl_article.ListIndex = -1

Voila, alors ??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Novembre 2013

• #4

Re : RowSource (UserForm) sans les doublons

Bonjour.

Un essai avec un dictionnaire arborescent.


Remarque: on peut aussi utiliser votre nom de plage :

VB:

Option Explicit

Private Sub UserForm_Initialize()
Me.zl_article.List = DictionnArbo(
[Liste_avec_doublons]).Keys
End Sub

Pour qu'il s'ajuste aux lignes utilisées :

VB:

Sub Macro1()
Dim Plage As Range
Set Plage = Feuil1.Range(Feuil1.[A2], Feuil1.Cells(Feuil1.Rows.Count, "A").End(xlUp))
Plage.Name = "Liste_avec_doublons"
End Sub

 

Pièces jointes

• DicArbRicher90.xls

  631.5 KB · Affichages: 54

Dernière édition: 21 Novembre 2013

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 21 Novembre 2013

• #5

Re : RowSource (UserForm) sans les doublons

Bonjour Dranreb

Etant donné que je vais utilisé ce code dans un fichier où il y a dejà pas mal de modules, je ne pense pas utiliser le concept que j'ai vu sur le fichier que tu m'a joint (enormément de code 😱).
Mais je voulais juste savoir si ce que j'avais proposé marche dans tous les cas.

Concernant l'exemple avec le nom de plage, j'étais au départ parti sur ça en effet

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Novembre 2013

• #6

Re : RowSource (UserForm) sans les doublons

C'est vous qui voyez. Les dictionnaires arborescent peuvent simplifier beaucoup de choses par la suite.
Les modules ne sont pas si énormes que ça, probablement bien plus petits que la plupart des modules de services fournis, dont le code est inaccessible, et leur interaction avec le reste de la programmation se fait simplement.

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 21 Novembre 2013

• #7

Re : RowSource (UserForm) sans les doublons

Ok Merci pour ta réponse.
Un dernière chose sur les UserForm
J'ai 1 champ avec une date (DTPicker) (que l'utilisateur est donc libre de choisir) auxquels j'ai rajouter un chekbox qui fait que ça s'active que quand l'utilisateur a cliquer dans la case. Mais j'aimerais tester si la la zone ou il y a la date a été "checké" par l'utilisateur . J'ai fait ça mais ça ne marche pas:

Code:

If Filtre.date_deb Is Null Then
    MsgBox "vide"
Else: MsgBox "non vide"
End If

Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Novembre 2013

• #8

Re : RowSource (UserForm) sans les doublons

Joindre un classeur pour voir le contexte.

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 21 Novembre 2013

• #9

Re : RowSource (UserForm) sans les doublons

Voici ci joint le classeur

 

Pièces jointes

• Test.xlsm

  14.5 KB · Affichages: 32
• Test.xlsm

  14.5 KB · Affichages: 36
• Test.xlsm

  14.5 KB · Affichages: 38

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Novembre 2013

• #10

Re : RowSource (UserForm) sans les doublons

Erreur sur le nom du contrôle, et aussi l'opérateur Is qui ne convient pas. Utiliser des fonctions pour ce genre de comparaisons :

VB:

If IsNull(Me.date_deb.Value) Then

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 21 Novembre 2013

• #11

Re : RowSource (UserForm) sans les doublons

Super!! Merci beaucoup pour ta réponse qui marche niquel

Bonne fin de journée

 

Vote positif 0 Vote négatif