Bonjour a tous,

Le code suivant permet de remplir ma ComboBox1 avec les données de chaque ligne de la colonne B sans les doublons. Je voudrais rajouter les conditions suivantes :

Récupérer les données de la colonne B dans la ComboBox1 seulement si la colonne F contient une valeur et si la J n'en contient pas.

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
'déclaration des variables
Dim j As Integer, i As Integer, k As Integer
Dim temp As String
Dim cell As Range
 
'-------------------------------------COMBOBOX1--------------------------------------
'vide la combobox1
ComboBox1.Clear
j = 0
i = 0
k = 0
temp = 0
 
'vide la combobox1
ComboBox1.Clear
 
With Sheets("Borne")
    For j = 2 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'remplit la combobox
        ComboBox1 = .Range("B" & j)
'sans doublons......
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("B" & j)
    Next j
End With
'trie la combobox
With ComboBox1
    For i = 0 To .ListCount - 1
      For k = 0 To .ListCount - 1
        If .List(i) < .List(k) Then
          temp = .List(i)
          .List(i) = .List(k)
          .List(k) = temp
        End If
      Next k
    Next i
    .ListIndex = -1
End With
 
End Sub
Bonne journée a tous