Discussion :

[Aurel.89]

Bonjour à tous!

Alors voilà, je bloque. Malgré la FAQ et les différentes discussions que j'ai pu lire je n'arrive pas à intégrer un code de suppression de doublon à mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub UserForm_Initialize()
 
Dim i As Long, derlign As Long
Dim Ctrl As Variant
Dim Cell As Range
With Sheets("Bibliothèque")
derlign = .Range("B65536").End(xlUp).Row
 
For Each Ctrl In Array(ComboBox1, ComboBox2, ComboBox3, ComboBox4, ComboBox5, ComboBox6, ComboBox7, ComboBox8)
  For i = 3 To derlign
     If .Range("B" & i) <> "" Then
      Ctrl.Object.AddItem (.Range("B" & i).Value)
     End If
 
   Next i
Next Ctrl
End With
 
    Dim Tableau()
    Dim TempTab As Variant
    Dim j As Integer
    Dim boolVerif As Boolean
 
    ReDim Tableau(1 To 1)
    Tableau(1) = Cells(1, 1)
 
    'Boucle sur les données de la colonne B, dans la Bibliothèque
    For Each Cell In Worksheets("Bibliothèque").Range("B1:B" & _
    Worksheets("Bibliothèque").Range("B65536").End(xlUp).Row)
        boolVerif = False
 
        'Vérifie si le contenu de la cellule existe déjà dans le tableau
        For j = 1 To UBound(Tableau)
            'Si la donnée existe déjà dans le tableau
            If Tableau(j) = Cell Then
                boolVerif = True
                Exit For
            End If
        Next j
 
        'Si la donnée n'existe pas dans le tableau, on augmente la taille du tableau
        'et on ajoute la donnée.
        If boolVerif = False Then
            ReDim Preserve Tableau(1 To UBound(Tableau) + 1)
            Tableau(UBound(Tableau)) = Cell
        End If
    Next Cell
End Sub

La première partie qui me remplie mes ComboBox 1 à 8 avec la colonne B (à partir de la ligne 3) feuille "Bibliothèque", et la deuxième partie j'ai essayé d'intégrer un code de suppression de doublon issu de la FAQ. Bon ça bug pas, mais ça fonctionne pas non plus.

Pour info, mes Combobox sont situées dans une userform.

Merci d'avance pour votre aide.

[rvtoulon]

Slt,
regarde la réponse donnée sur ton post précédent :http://www.developpez.net/forums/d88...ir-2-combobox/

ps: n'oublie pas de mettre résolu sur tes post si c ok