Commencer par le milieu dans une liste déroulante

**ADDCP** · 20/04/2015, 12h42

Bonjour à tous,
après avoir cherché sur le net une solution à mon problème, je viens vers vous pour savoir si il est possible de faire commencer une liste déroulante par le milieu...
Je m'explique:
J'ai fait une liste déroulante dans un formulaire. Lorsque je clique sur la petite flèche, la liste s'ouvre en commençant par les valeurs les plus petites or j'aimerai qu'elle s'ouvre sur la valeur médiane (ou encore mieux sur la valeur moyenne mais là on chipote..). Est-ce possible facilement?

J'espère être clair, merci d'avance !

**ClaudeLELOUP** · 20/04/2015, 14h59

Bonjour et bienvenue chez nous,

Voilà une demande originale !

- Ça devrait être possible en bricolant un peu. En exploitant l'événement « Sur réception de focus » (il se produit lorsque tu cliques sur la flèche), pour autant que le mécanisme ne doive se déclencher que lorsque la zone de liste est encore vierge.
- Ta liste contient certainement une valeur médiane, par contre es-tu sûr que la liste contient aussi une valeur qui est justement la moyenne ? Si la liste ne contient pas la moyenne, on pourrait choisir la valeur la plus proche.
- Le contenu de ta zone de liste varie-t-il à chaque enregistrement ou reste-t-il constant tant que le formulaire est ouvert ? En d'autres mots est-il nécessaire de recalculer cette valeur à afficher chaque fois que l'utilisateur clique ?

**ADDCP** · 21/04/2015, 09h52

Bonjour et merci de votre réponse,
Alors il s'agit d'une liste déroulante alimentée par une requête de sélection avec regroupement issue elle même d'une table alimentée par la-dite liste déroulante (seul moyen que j'ai trouvé pour proposer dans la liste déroulante les valeurs qui m’intéressent... ) Ces sont des données de taille d'animaux (taille au garrot), c'est pourquoi je cherche à ouvrir la liste sur la valeur moyenne ou médiane car ces données suivent un peu près un courbe de Gauss et donc j'ai plus de chance d'avoir a rentrer une valeur proche de la moyenne.. Dans l'absolu, je pourrai alimenter ma liste déroulante par les valeurs de 50cm à 120cm et la faire ouvrir sur 81 cm (valeur moyenne calculée et arrondie), mais je n'y arrive pas.. Voilà en gros ma démarche...
Petit plus: j'ai une deuxième liste déroulante (tour de poitrine de l'animal) qui est du même style que l'autre liste mais que dans l'idéal j'aimerai ouvrir sur la valeur calculée et arrondie issue de l'équation linéaire : tour de poitrine = taille au garrot * 0.84 + 21.12...
Merci d'avance de vos réponses

**ClaudeLELOUP** · 21/04/2015, 10h02

Amusant !

Peux-tu, dans la db jointe (j'utilise Access2000 !), placer les tables concernées ?

**ADDCP** · 21/04/2015, 10h28

voici les tables, merci !

**ClaudeLELOUP** · 21/04/2015, 10h43

Je m'attentais à ce que ta liste ne contienne qu'une seule fois chacune des valeurs donc ceci par exemple :

Soit 33 lignes et non 1024 !

Pourquoi fais-tu ainsi ?

**ADDCP** · 21/04/2015, 10h50

Effectivement, j'ai 33 valeurs différentes que j'obtiens en faisant une requête sélection avec regroupement de la table transmise dans ta base. La table que je t'ai transmise est celle qui recueille les données..

**ClaudeLELOUP** · 21/04/2015, 11h04

Résumons :

- ta zone de liste contient 33 lignes et tu voudrais que dans un 1er temps la 16e valeur soit proposée par défaut et que l'utilisateur ait la possibilité d'ajuster si nécessaire.
(Utiliser l'enregistrement du milieu, plutôt que la moyenne, simplifierait singulièrement la solution.)

- quand l'utilisateur a fixé son choix de ta taille, on pourrait dériver une encolure par défaut que l'utilisateur modifierait si besoin (une zone de texte).

**ADDCP** · 21/04/2015, 11h08

Effectivement, ta première proposition correspond à ce que je cherche...

pour la deuxième liste, peut être le plus simple serait de passer par la médiane aussi...

**ClaudeLELOUP** · 21/04/2015, 11h13

Plus simple, non. Puisqu'il suffit d'un calcul très simple : taille * 0.84 + 21.12.

Quoi qu'il en soit, commençons par la taille.
Je te prépare un exemple.

**ADDCP** · 21/04/2015, 11h28

ok, si cela ne complique pas trop les choses..
Merci!

**ClaudeLELOUP** · 21/04/2015, 11h50

Regarde si ceci convient

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
 
Private Sub cboTailleGarrot_GotFocus()
  If Me.cboTailleGarrot = 0 Then
      Me.cboTailleGarrot = Me.cboTailleGarrot.ItemData(DCount("*", "rTaillesGarrot") \ 2 - 1)
      Me.cboTailleGarrot.Dropdown
  End If
End Sub

**ADDCP** · 21/04/2015, 11h58

merci , j'ai testé rapidement et cela à l'air d'être top! Il faut que je regarde tout ça de plus près pour comprendre ce que tu as fait

Par contre, je n'ai pas trop le temps là.. je te tiens au courant. En tout cas un grand merci pour ton aide!

**ADDCP** · 22/04/2015, 09h43

Bonjour,
je suis en train d'essayer d’intégrer le code à ma base... Pour l'instant ça ne marche pas (pas d'erreurs mais la liste s'ouvre au début...).
Petite question : dans cette "phrase" : If Me.cboTailleGarrot = 0 Then , comment remplacer le "0" par "vide" ou comment écrit-on "vide" en code? Peut être la source de mon probl_ème..
Merci!