Discussion :

[gwems]

bonjour
voila j ai précédament poster un message pour modifier la taille de la barre de défilement sur modifiable

apparament il n' y aurais pas moyen

mais peut etre y aurait-il moyen de crée 2 bouton (haut et bas)
qui permettrait de se déplacer dans un modifiable

j' attend vos idées / vos avis

merci

[Salsaboy60]

Bonjour,

J'ai trouvé dans une livre anglais une méthode pour changer l'ordre d'affichage dans une liste déroulante. Effectivement avec deux boutons haut et bas (voir pièce jointe). Si ça t'interesse, je te donne le code intégrale et il suffit de jouer avec pour trouver l'adaptation à tes besoins.

Hans

[LedZeppII]

Bonjour,

Un exemple avec une zone de liste modifiable cboCat et deux boutons cmdcboCatPrec et cmdcboCatSuiv.
Le code qui suit correspond à l'événement "sur clic" des deux boutons.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdcboCatPrec_Click()
Dim Idx As Integer, NewIdx As Integer
Idx = Me.cboCat.ListIndex
If Idx > 0 Then NewIdx = Idx - 1 Else NewIdx = 0
Me.cboCat = Me.cboCat.ItemData(NewIdx)
End Sub
 
Private Sub cmdcboCatSuiv_Click()
Dim Idx As Integer, NewIdx As Integer, MaxIdx As Integer
Idx = Me.cboCat.ListIndex
MaxIdx = Me.cboCat.ListCount - 1
If Idx < MaxIdx Then NewIdx = Idx + 1 Else NewIdx = MaxIdx
Me.cboCat = Me.cboCat.ItemData(NewIdx)
End Sub

A+

[gwems]

bonjour et merci de vos sollution mais ca ne correspond pas vraiment a ce que j' avias imaginer faire

ps: d' ailleur le code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande139_Click()
 
Dim Idx As Integer, NewIdx As Integer, MaxIdx As Integer
Idx = Me.Modifiable64.ListIndex
MaxIdx = Me.Modifiable64.ListCount - 1
If Idx < MaxIdx Then NewIdx = Idx + 1 Else NewIdx = MaxIdx
Me.Modifiable64 = Me.Modifiable64.ItemData(NewIdx)
 
End Sub

ne sembla pas correct puiqu il ne m' affiche pas le code suivant

mais en fait moi ce que je voulais faire c est pouvoir se déplacer dans un combo mais " dans la partie déroulante" et non pas charger la valeur suivante dans mon combo!

... enfin je sais pas si vous comprenez ...
hezitez pas a poster vos questions si il y en a

[gwems]

Salut hans oui ca m'interesse de voir le code complet ainsi je peux tester si il correspond deja plus à ce que je souhaite faire que le précédent . Mais je vois dans ton exemple qu'il ne s' agit pas d' un modifiable.
merci

[LedZeppII]

mais en fait moi ce que je voulais faire c est pouvoir se déplacer dans un combo mais " dans la partie déroulante" et non pas charger la valeur suivante dans mon combo!

... enfin je sais pas si vous comprenez ...

J'avais bien compris.
La solution que j'ai proposée était la seule possible, à mon sens.
Dès qu'on clique sur un bouton, celui-ci prend le focus, et la zone de liste modifiable se referme car elle perd le focus.
Lorsque la zone de liste modifiable est ouverte, elle ne réagit qu'à la souris.

Si tu es dans l'impossibilité d'utiliser normalement une zone de liste modifiable, utilise la seulement pour afficher les données.
Tu pourrai utiliser une zone de liste ayant les même propriétés que la zone de liste modifiable, mais qui servirait juste à sélectionner une ligne dans la liste.
Son clone en quelque sorte, mais en version "liste standard".

Par exemple une ZDL modifiable cboListe et juste en dessous une ZDL lstListe.
Par défaut lstListe est masquée.
En appuyant sur un bouton tu la rend visible (comme si tu appuyais sur le bouton faisant dérouler la ZDL modifiable).
Ensuite à l'aide de deux autres boutons tu te déplace dans la ZDL lstListe.
Si cboListe et lstListe sont liées au même champ elles changeront en même temps.

Ça sera plus clair avec une exemple :
Pour "ouvrir" la liste il faut cliquer sur le bouton vert (un contrôle image en fait qui masque le vrai bouton de la zone de liste modifiable).
La zone de liste modifiable est verrouillée et désactivée pour ne pas prendre le focus.

A+