Valeur par défaut Combobox

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:

---

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!!

Bonsoir,

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

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 !

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

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?

Bonjour

Personnellement, je ne comprends pas ta boucle...

Pourrais-tu essayer avec

Code:

---

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

---

J'avoue que je n'ai pas développé la boucle moi-meme et que je l'ai prise sur un siteweb. Ceci dit elle fonctionne bien.

Je possède des données dans les colonnes A, B, C, etc de la SHEET 2 et il faudrait donc que le contenu des combobox soient dynamiques càd que si je rajoute une donnée dans la colonne A de la SHEET 2, alors le contenu de la combobox lié à la colonne A soit mis à jour directement et ce sans doublons.
Avez-vous une boucle à proposer?

J'ai testé le code du précédent message mais il ne fonctionne pas... il dit qu'il y a un probleme avec la variable "i"

Dynamiquement et sans doublons, j'ai des doutes... du moins de façon simple...

Tu peux, soit
- lier le combo à une plage de cellules. La liaison est dynamique mais la vérification des doublons est dévolue à l'événement Change de la feuille
- alimenter le combo via la méthode AddItem. Dans ce cas, tu peux vérifier les doublons. Pour le "dynamique", tu devras aussi jouer avec l'événement Change de la plage.

Si tu nous disais, en français, ce que tu souhaites réaliser?

A la limite oublions les doublons... Ce qui m'intéresse principalement c'est donc de créer une combobox reprenant une liste de noms de famille. La combobox est placée dans un userform et son contenu devrait etre lié à une colonne dans une autre page du classeur Excel. Je souhaiterais qu'à chaque fois que j'ajoute un nom de famille dans la colonne source, le contenu de la combobox soit mis à jour.

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

Code:

---

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....

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:

---

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

---

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:

---

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:

---

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

---

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

Code:

---

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.

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:

---

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:

---

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

---

Merci bcp!! Je vais tester ce code dès demain et vous tiendrai au courant :-))

Salut
Tiens voila qui pourrait te satisfaire je le pense, pas de code vba, uniquement des formules, pas de doublon et liste dynamique.
Seuls inconvenant, il ne faut pas insérer de ligne dans le tableau, tu peux rajouter a la suite mais pas insérer de ligne au milieu du tableau. Il ne peut pas y avoir de cellule vide entre les cellule renseigner, je pense pas que ce soit grave ... tout le monde a un nom de famille je présume ^^. La colonne B(ou une autre, il suffit de modifier les formules) ne doit pas être modifié ou trié.

Voila je pense avoir fait le tour
En se qui concerne les avantage,
tu rajoute les nom en colonne A, la liste sans doublon se crée en colonne B automatiquement.
Dans la liste déroulante le combox fait référence a une etiquette dynamique de la feuille.

A++
Qwaz