Discussion :

[tssi555]

Salut,

J'ai un AxCombobox de Microsoft Forms 2.0 Combobox, que je rempli manuellement avec une boucle. Je veux insérer une ligne vide au début de la liste déroulante, je procède à l'aide de la méthode .AddItem(), mais la ligne vide est inséré à la dernière position.

Comment pourrais-je faire pour l'insérer à la première position?
Merci

[grrrkewel]

hello
fait voir un bout de code s'il te plait , pour se faire une idée

[tssi555]

Ok ok Merci !

Code :

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

1
2
3
4
5
6
7
 Dim j As Integer
 cbotva.AddItem()
 For j = 0 To ds_tva.Tables(0).Rows.Count - 1
      cboTva.AddItem()
      cboTva.set_List(j, 0, ds_tva.Tables(0).Rows(j).Item("idtauxtva") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvcoefficient") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvdescription"))
 
 Next j

[grrrkewel]

ah finalement tu as laissé tombé le multicolonne
tu as essayé :

Code :

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

1
2
3
 
cboTva.AddItem()
      cboTva.set_List(j, 0, "")

GrrrK.

[tssi555]

.

Oui oui je l'ai déjà essayé mais la ligne vide est ajoutée à la fin.

[grrrkewel]

en début ou en fin de boucle?

[tssi555]

Avant d'entrer dans la boucle

Et si je l'ajoute au début de la boucle il insere deux ligne à la place d'une seule!

Ah non non pas du tout, j'ai pas laissé le multicolonne !
En fait le code ci-dessus est tout a fait le remplissage d'un combomulticolones!

, Il faut absolument passer par l'ajout d'un Row au DataTable?

[grrrkewel]

bon désolé, j'ai pas eu le temps de tester avant, j'espère tout de même que tu avais déjà trouvé ta solution... sinon, voilà :

Code :

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

1
2
3
4
5
6
7
8
Dim j As Integer
cbotva.AddItem()  
cbotva.set_List(0, 0, "")
For j = 0 To ds_tva.Tables(0).Rows.Count - 1 ' peut être faudra-t-il que tu boucles de 1 à ds_tva.Tables(0).Rows.Count - 1
      cboTva.AddItem()
      cboTva.set_List(j, 0, ds_tva.Tables(0).Rows(j).Item("idtauxtva") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvcoefficient") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvdescription"))
next j

voilà,

[tssi555]

Merci pour ta réponse mais !
Non je n'ai pas trouvé de solution, j'ai sauté dessus pour faire autres choses mais bien sûr en actualisant la page désésperement chaque deux minutes .
Non, ca ne fonctionne tjrs pas, si je boucle à partir du 1 au lieu de zéro, j'obtiens pas mon premier enregistrement , il ya à la place une ligne vide!
Je veux et la ligne vide en première position et tout les enregistrements.

[grrrkewel]

ah...
mais en fait je sais pas pourquoi tu t'embêtes toujours à utiliser un AxCombobox alors que tu simules un multi-colonne
avec un combobox classique tu ne serais pas embêté :

Code :

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

1
2
3
4
5
6
7
 
  Dim j As Integer
        cbotva.Items.Add("")
        For j = 0 To ds_tva.Tables(0).Rows.Count - 1
 
            cbotva.Items.Add(ds_tva.Tables(0).Rows(j).Item("idtauxtva") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvcoefficient") & "   |   " & ds_tva.Tables(0).Rows(j).Item("ztvdescription"))
        Next j

c'est pour ça que je te disais la dernière fois que tu avais laissé tomber le multi-colonne

[tssi555]

!

Mais quelle idée de se torturer avec AxCombobox! et bah maintenant, je laisse tomber le Ax et pas le combo

Merci grrrkewel.

[tssi555]

Salut,

Pour remplir un Axcombobox (Multicolones) ca fonctionne très bien.
Maintenant, je veux manipuler les colones de ce combobox, comment récupérer la valeur d"une colone par exemple.

Merci