Discussion :

[Brainis]

Bonsoir à tous,

J'aurais besoin de votre aide car j'ai créé 2 combobox et je les ai remplis avec la méthode additem je pense (j'ai lié chaque combobox à une colonne dans une autre page Excel du classeur). Le problème est que les combobox affichent par défaut le dernier item non nul de chacune de mes colonnes. J'ai également ajouté une ligne de code pour éviter d'avoir des doublons.

Voici le code:

Code :

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

1
2
3
4
5
6
 
    Dim i As Integer
    For i = 2 To Sheets("Sheet2").Range("C65536").End(xlUp).Row
        ComboBox1 = Sheets("Sheet2").Range("C" & i)
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Sheet2").Range("C" & i)
    Next i

Comment puis-je donc forcer un combobox à afficher par défaut la 1e valeur?

D'avance un grand merci!!

[ucfoutu]

Bonsoir,

en t'intéressant à la propriété listindex de ta combo (en lui donnant la valeur 0)

[Brainis]

Il est bien là le problème, je n'ai pas de listindex dans mes propriétés. Je n'ai uniquement que:

LISTROWS
LISTSTYLES
LISTWIDTH

J'ai par contre un topindex qui lui est à -1... ca a un rapport?

Merci !

[ucfoutu]

sur quoi est placée ta combo ? (ta feuille Excel ou un UserForm) ?
dans quelle boîte as-tu pris cette combo ?
La propriété Topindex ne sert quant à elle qu'à mettre l'index choisi tout en haut de la zone de liste

[Brainis]

Ma Combobox est placé dans un userform. Je l'ai prise dans la toolbox proposée par VBA quand on crée un userform. Existe-t-il plusieurs types de combobox?

[Pierre Fauconnier]

Bonjour

Personnellement, je ne comprends pas ta boucle...

Pourrais-tu essayer avec

Code :

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

combobox1.rowsource=range("c2:c" & i)

[casefayere]

Bonsoir ou bonjour suivant quand tu regardes,
et ça tout simplement

Code :

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

1
2
3
4
Dim i As Integer
    For i = 2 To Sheets("Sheet2").Range("C65536").End(xlUp).Row
        ComboBox1.additem Sheets("Sheet2").Range("C" & i)
    Next i

bonne nuit ou bonne journée, suivant....

[laetitia]

bonjour le le fil pour cree une liste sans doublons ma combobox se nomme cbx1
plus affichage de la premiere valeur a adapter a ta feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim T, z As Variant, l As Object, i As Long
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Range("A2:a" & Range("A65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
If z <> "" Then cbx1.AddItem z
cbx1.ListIndex = 0: Next
End Sub

[laetitia]

re, apres reflexion cela peut preter a confusion sub test()!!!
normalement pour faire simple il faut l ecrire comme cela je suppose que ta base de donnees est dans la meme feuille ou tu ouvres ton user autrement il faut modifier cette ligne par ex: base de donnees dans ta feuille 3

Code :

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

T = Sheets(3).Range("A2:a" & Range("A65536").End(xlUp).Row)

autrement le code tu le met dans initialise ou activate de ton user

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim T, z As Variant, l As Object, i As Long
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Range("A2:a" & Range("A65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
If z <> "" Then cbx1.AddItem z
cbx1.ListIndex = 0: Next
End Sub

[Brainis]

merci beaucoup :-) !!!!!
Et que pensez vous du code suivant?:

Code :

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

1
2
3
4
5
6
7
 
    Dim B As Range
      For Each B In Sheets("Sheet2").Range("B2:B1000")
            If B.Value <> "" Then
                  ComboBox2.AddItem B.Value
            End If
      Next B

Ceci dit les doublons ne sont pas triés... mais pour replir une combobox c plutot court, net et direct.

[laetitia]

bonjour Brainis le forum oui!! bien sur plus court mais ecrit comme cela les doublons non traites Range("B2:B1000") si ta liste comporte deja 1000 donnees tu peus plus en rajouter a moins de la modifier pour faire court on peut faire un truc comme cela aussi

Code :

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

1
2
3
Private Sub UserForm_Initialize()
With Sheets(2): cbx1.List = Range(.[b1], .[b65536].End(xlUp)).Value: End With
End Sub

avec l autre code tu peus par avoir sans doublons sans blanc dans l ordre alphabetique + la 1 premiere valeur

Option Explicit

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
Private Sub UserForm_Initialize()
Dim T, z As Variant, l As Object, i As Long, j As Long, temp As String
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Sheets(2).Range("b2:b" & Range("b65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
If z <> "" Then cbx1.AddItem z
cbx1.ListIndex = 0: Next
For i = 0 To cbx1.ListCount - 1
For j = 0 To cbx1.ListCount - 1
If cbx1.List(i) < cbx1.List(j) Then
temp = cbx1.List(i)
cbx1.List(i) = cbx1.List(j)
cbx1.List(j) = temp
End If: Next j: Next i
End Sub