Discussion :

[GTbenj]

bonjour à tous, voilà j'ai une combobox, et j'aimearis que dans ma liste apparaissent ce que j'ai mis dans la colonne A,
voilà mon code, mais il ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    Dim j As Integer
 
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
   next j
  end sub

et dans ma liste, je n'ai qu'une possibilité parmi les 6 noms que j'ai mis dans ma colonne??

voilà, je débute en vba donc je galère un peu

[supersnail]

Exécute en mode pas-à-pas pour voir le fonctionnement..
PS : Pense à la balise [code] (le # dans la barre de format)

[Jean-Pierre49]

Bonjour

Code :

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

1
2
3
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Range("A" & j)
Next j

[fring]

Bonjour tlm,

Une autre possibilité en utilisant RowSource

Code :

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

ComboBox1.RowSource = "A1:A" & Cells(Rows.Count, 1).End(xlUp).Row

[GTbenj]

merci, les 2 formules fonctionnent parfaitement mais par contre j'ai des doublons, et j'ai donc utilisé la formule de la doc de silkyroad

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 j As Integer

For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Range("A" & j)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("a" & j)
Next j
End Sub

voilà, j'ai regardé les autres post mais je ne comprends pas tout, donc j'ai essayé mais cela ne marche pas, donc j'en reviens à vous

[supersnail]

euh,j'ai pas trop compris la question

[GTbenj]

ma combobox a une liste qui prend sa source dans un tableau sur une feuille excel,
malheureusement, j'ai des noms qui s'affichent plus d'une fois sur ma feuille, et donc j'ai dans ma liste de combobox des noms identiques en plusieurs exemplaires.

Ce sont des doublons (à moins que je me trompe de terminologie), et je sais qu'il y a une formule en programmation qui permet de n'afficher un nom qu'une seule fois

c'est ce qu'il y a en gras mais ça ne marche pas, et au contraire, cela double les noms
donc il doit y avoir un problème dans la formule

Mais laquelle

[tirex28]

Bonjour,

Essaye come ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim j As Integer
 
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.Value Range("A" & j)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("a" & j)
Next j
End Sub

cordialement,

Tirex28/

[GTbenj]

tu as changé

Code :

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

ComboBox1.AddItem Range("A" & j)

par

Code :

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

ComboBox1.Value Range("A" & j)

mais cela ne marche pas

merci quand même

[tirex28]

Re,

mais cela ne marche pas

Dsl j'avais oublié le "=":

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim j As Integer
 
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.Value = Range("A" & j)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("a" & j)
Next j
End Sub

Cordialement,

Tirex28/

[GTbenj]

Magnifique

ça fonctionne nickel

merci à vous