Discussion :

[rom1deh]

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

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

[rom1deh]

Bonjour,

Merci je viens de voir la propriété, mais j'ai pas trouvé comment commencer la combobox par le bas.

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

[rom1deh]

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.




A l'ouverture vers le haut.



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

[unparia]

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 !

[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

[unparia]

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.

[rom1deh]

Donc voici le code de ma combobox

Code :

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

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 :

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

Combobox1.TopIndex = -300

Voici le fichier en question

[patricktoulon]

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

Code :

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

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

[pijaku]

Bonjour,

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 :

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

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

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?

[patricktoulon]

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