Discussion :

[stephb084]

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

[Philippe Tulliez]

Bonjour,
Une simple procédure décisionnelle Select Case permet de facilement gérer ce dont tu parles.

[stephb084]

Ok, je ne connais pas cette procédure, pourrais-tu me donner un peu plus d'info stp ?

[Philippe Tulliez]

Bonjour,
Un petit coup d'oeil sur le chapitre 11-C. La structure Select Case du tutoriel Initiation au VBA Office

[stephb084]

Bonsoir,

Je ne trouve pas ou insérer le Select case. Je n'ai pas tout pigé sur cette procédure.

[joe.levrai]

Bonjour,

un petit IF/END IF encadrant la ligne 22 ne suffirait-il pas ?

si bidule "est différent de vide" et machin "égale le vide" alors ....