Combobox dans userform

Version imprimable

06/06/2017, 15h23
rom1deh

Combobox dans userform

Bonjour à tous,

Je recherche depuis pas mal de temps sur diverse forum la solution a mon problème qui n'est pas vraiment un problème mais une amélioration.

J'ai une combobox qui me permet d'éditer donc celle-ci s'allonge au fur et a mesure.

est il possible de la faire commencer du bas en remontant vers le haut. actuellement je pars de la première pour aller a la dernière l'inverse est-il possible ?

Cordialement

Romain
10/06/2017, 07h06
unparia

Bonjour
Ta demande n'est pas vraiment très claire
Si tu veux dire que tu souhaites afficher d'abord les derniers articles, joue donc avec la propriété Topindex de ta combobox.
12/06/2017, 08h55
rom1deh

Bonjour,

Merci je viens de voir la propriété, mais j'ai pas trouvé comment commencer la combobox par le bas.
13/06/2017, 07h39
unparia

Relis s'il te plait mon message précédent et efforce-toi de t'exprimer sans la moindre ambiguïté ...
Ce n'est toujours pas le cas !
13/06/2017, 08h40
rom1deh

2 pièce(s) jointe(s)

Bonjour

Je veux juste que ma combobox qui s'incrémente commence par le bas.
Quand je l'ouvre je suis en haut je voudrais que celle-ci commence de tous en bas de ma dernière ligne.

Pièce jointe 285141

A l'ouverture vers le haut.

Pièce jointe 285146

je voudrais que quand je l'ouvre elle s'ouvre du bas et non du haut.

Je vois pas comment je peux être plus claire.

Cordialement

Romain
13/06/2017, 11h02
unparia

Citation:

Quand je l'ouvre je suis en haut je voudrais que celle-ci commence de tous en bas de ma dernière ligne.

Si, en essayant de "traduire", tu veux dire
"je veux qu'à son ouverture, sa dernière ligne figure (pas "commence") parmi celles affichées (pas "commencées")",
je t'ai donné ta solution dès mon premier message !
13/06/2017, 11h18
rom1deh

J'ai essayer de mettre en oeuvre mais sans succès.

J'ai donc chercher sur internet la propriété renvois sois -1 ou 0 d'après ce que j'ai compris.

J'ai essayer de faire une ligne de code avec combobox.topindex = ....

Mais je reste toujours tout en haut.

Soit je pige pas ou je ne comprends pas.

Cordialement

Romain
13/06/2017, 11h20
unparia

Citation:

J'ai essayer de mettre en oeuvre mais sans succès.

J'ai donc chercher sur internet la propriété renvois sois -1 ou 0 d'après ce que j'ai compris.

J'ai essayer de faire une ligne de code avec combobox.topindex = ....

Mais je reste toujours tout en haut.

je ne sais pas ce que tu as "essayé", puisque l'on lit de tout, sauf ton code ...
Montre-le, ce code d'essai de ce que je t'ai dit.

Donc voici le code de ma combobox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ComboBox1_Click()
    Dim index As Long
        On Error GoTo fin
        index = Sheets("BDD").Columns("A").Find(ComboBox1.Text, LookAt:=xlWhole).Row
        CleanForm1Data
        UploadData (index)
        Unload Me
        Exit Sub
fin:        MsgBox "Attention un filtre est resté mis sur la feuille BDD"
End Sub
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii.Value = "27" Then Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    For i = 2 To Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1
        ComboBox1.AddItem (Sheets("BDD").Range("A" & i).Text)
    Next i
End Sub

J'ai essayer de rajouter comme ligne

Code:

Combobox1.TopIndex = -300

Voici le fichier en question

13/06/2017, 14h47
patricktoulon

re
Bonjour
visiblement topindex ne fonction que quand la combo est rempli par rowsource
résultat tu n'a que ca comme solution
Code:

1 2 3 Private Sub ComboBox1_DropButtonClick() ComboBox1.ListIndex = ComboBox1.ListCount - 1 End Sub
sauf qu'il y a un évènement click de la combo qui se déclenche

Bonjour,

Citation:

Envoyé par patricktoulon

visiblement topindex ne fonction que quand la combo est rempli par rowsource

Euh... non.
Ce qui te pousse à cette certitude c'est seulement l'événement que tu choisis...
TopIndex ne peux pas être modifiée lors du DropButtonClick
Regarde avec un autre événement...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Option Explicit Private Sub ComboBox1_Change() Debug.Print "change" End Sub Private Sub ComboBox1_Click() Debug.Print "click" End Sub Private Sub ComboBox1_DropButtonClick() 'ComboBox1.TopIndex = ComboBox1.ListCount End Sub Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ComboBox1.TopIndex = ComboBox1.ListCount End Sub Private Sub UserForm_Initialize() Dim i& For i = 1 To 250 ComboBox1.AddItem "liste " & i Next i End Sub
Citation:

Envoyé par patricktoulon

sauf qu'il y a un évènement click de la combo qui se déclenche

Pas avec mon code : ni Change(), ni Click().

Intéressant non?

14/06/2017, 09h51
patricktoulon

re

re
bonjour pijaku
le mouse up le seul au quel je n'ai pas pensé:D
en même temps c'est évident puisque la combo est libérée