VBA plusieurs listbox sans doublons

C

CHALET53

XLDnaute Barbatruc

• 7 Mai 2016

• #2

Re : VBA plusieurs listbox sans doublons

Bonjour,

A mon niveau, la première erreur que je vois, c'est qu'il n'y a pas de listbox ni de Userform

Pas facile de tester

a+

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 7 Mai 2016

• #3

Re : VBA plusieurs listbox sans doublons

Bonjour. Cette ligne n'est pas correctement orthographiée pour alimenter une listbox, il manque un index et une méthode

Code:

Me.Controls("ListBox" & i) = Sheets(mois(i)).Range("I" & j)

 

Dernière modification par un modérateur: 7 Mai 2016

Vote positif 0 Vote négatif

F

francoisC

XLDnaute Junior

• 7 Mai 2016

• #4

Re : VBA plusieurs listbox sans doublons

Ok CPk merci pour ta réponse, mais je n'y connais rien ou presque au VBA
Que dois-je ajouter pour que cela fonctionne ?
Merci

 

Pièces jointes

• Classeur.xlsm

  23.6 KB · Affichages: 62
• Classeur.xlsm

  23.6 KB · Affichages: 47

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 7 Mai 2016

• #5

Re : VBA plusieurs listbox sans doublons

Point 1
le code est dans

Code:

Private Sub UserForm_Click()

Alors qu'il devrait être dans

Code:

Private Sub UserForm_initialize()

Car c'est à l'ouverture que vous voulez voir afficher les informations.

Point 2
Vous avez une boucle qui va de 1 à 12 mais des labels qui vont de 1 à 13 en n'ayant pas le 7.
Donc quand i = 7 la macro cherche le label7 ---> Me.controls("Label" & i).

Donc pour commencer il faut rectifier les labels (avoir des label numéroté de 1 à 12) et ensuite on examinera le reste de la macro

 

Vote positif 0 Vote négatif

F

francoisC

XLDnaute Junior

• 7 Mai 2016

• #6

Re : VBA plusieurs listbox sans doublons

Ok Desolé Dans ma précipitation je n'ai pas été attentif.
Je pense avoir rectifié le tir pour cette étape... et je reste à l'écoute. merci

 

Pièces jointes

• Classeur.xlsm

  24.6 KB · Affichages: 62
• Classeur.xlsm

  24.6 KB · Affichages: 51

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 7 Mai 2016

• #7

Re : VBA plusieurs listbox sans doublons

D'ailleurs, la voici corrigée mais elle ne sera fonctionnelle que lorsque vous aurez créez vos 12 label dans l'ordre

Code:

Private Sub UserForm_initialize()
    Dim dico As Object
    Set dico = CreateObject("scripting.dictionary")
    dico.comparemode = 1
    Dim i As Integer
    For i = 1 To 12
        mois = Format(DateSerial(Year(Date), i, 1), "mmmm")
        Me.Controls("Label" & i) = mois
        For j = 2 To Sheets(mois).Cells(Rows.Count, 9).End(3).Row
            If Not dico.exists(Sheets(mois).Cells(j, 9).Value) Then
                Me.Controls("listbox" & i).AddItem Sheets(mois).Cells(j, 9).Value
                dico.Item(Sheets(mois).Cells(j, 9).Value) = ""
            End If
        Next j
    Next i
End Sub

 

Dernière modification par un modérateur: 7 Mai 2016

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 7 Mai 2016

• #8

Re : VBA plusieurs listbox sans doublons

Voilà le "pack" fichier + macro

 

Pièces jointes

• Classeur-4.xlsm

  25.8 KB · Affichages: 108

Vote positif 0 Vote négatif

F

francoisC

XLDnaute Junior

• 7 Mai 2016

• #9

Re : VBA plusieurs listbox sans doublons

CPk Merci beaucoup cela m'ôte une véritable épine du pied pour le boulot ce lundi à venir.
Merci encore ; je vais étudier ce code.
A bientôt

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 7 Mai 2016

• #10

Re : VBA plusieurs listbox sans doublons

A bientôt et ne vous arrachez pas les cheveux si vous ne comprenez pas, posez la question ici et on y répondra.

 

Vote positif 0 Vote négatif