position dans combobox

[mariobross]

Bonjour le forum:
comment faire pour que dans une combobox , dans la liste de choix la valeur trouvée soit en premiere place de la liste.
voir fichier joint plus explicite.
merci.

 

[BERRACHED said]

Re : position dans combobox

Salut,mariobross

d'après ce que j'ai compris tu veut conserver la dernière sélection dans ton combo pour cela il faut faire sortir la sélection en dehors du combo comme ça tu aura que l'item sélectionner dans le combo :

Private Sub ComboBox1_Change()
ComboBox1.ListRows = Selection
End Sub

Cordialement

 

[mariobross]

Re : position dans combobox

Bonjour said.
actuellement lorsque dans mon fichier d'exemple on tape "az" dans la zone de liste , "az1" est sélectioné au bas de liste de choix .
ce qui ne gene c'est que l'on ne voit pas ce qui est apres c'est à dire az2,az3,az4...................
je voudrai donc que des que l'on tape "az" , "az1" soit positionné dans le haut de la liste.
merci.

 

[wilfried_42]

Re : position dans combobox

bonjour mariobross, said

voici la procedure :

Private Sub ComboBox1_Change()
    ComboBox1.DropDown
    ComboBox1.TopIndex = ComboBox1.ListIndex
End Sub

 

[mariobross]

Re : position dans combobox

merci wilfried , c'est super.
pour corser un peu aurai tu le code pour faire apparaitre "az1" en milieu de liste.
histoire de visualiser à la fois ce qu'il y a avant "az1" et apres "az1".

merci encore.

 

[wilfried_42]

Re : position dans combobox

re:

je n'ai pas testé pour positionner en 6eme position m'enfin ca ne doit pas en etre loin lol, si la ligne selectionnée est < à l'index 6, la liste se positionne (en haut) sur le 1er index

Private Sub ComboBox1_Change()
    ComboBox1.DropDown
' un exemple 6 eme position
    if ComboBox1.ListIndex>6 then 
       ComboBox1.TopIndex = ComboBox1.ListIndex - 6
    else
       ComboBox1.TopIndex = 0
    end if
End Sub

 

[mariobross]

Re : position dans combobox

merci wilfried , presque rien d'impossible
c'est ça qui est bien avec excel (et des gens comme toi pour les astuces)
merci.