Déplacer les éléments dans une liste [Sources]

[Philippe JOCHMANS]

Bonjour

J'avais besoin pour une application (en cours), d'une liste déroulante où je devais pouvoir déplacer les éléments avec des flêches.

Pour ceux qui connaissent les UserForms Excel, quand vous voulez redéfinir les ordres de tabulation, vous sélectionnez un contrôle, et vous cliquez sur monter et descendre, le principe est le même.

Dans la base Zippé, il y'a une table exemple, avec un champ pour les jours de la semaine, et un champ pour la position de l'élément dans la liste.

Tout est documenté dans le code.

Testé sur Access 2002 et Access 2003, devrait être compatible 2000 et 97 (je n'ai plus à ma disposition) , pour 2007, devrait aussi l'être (je ne l'ai pas )

Liste.jpg

Starec

Les Listes.zip

Edit : Je vous mets aussi une version 97
Les Listes V97.zip

Edit : Petite curiosité, j'utilise le contrôles MS Forms 2.0 CommandButton, il me permet de mettre de la couleur aux boutons, et regardez le code, on peut mettre comme curseur une main, quand celui-ci survol le bouton, allez voir ici.

edit : Mise à jour pour gérer l'absence de sélection dans la liste (Merci Arkham).

[seb92400]

[Arkham46]

salut,

il manque un petit test...

si rien n'est sélectionné (à l'ouverture du formulaire) et qu'on clique sur les boutons monter/descendre ==> plantage

[Philippe JOCHMANS]

Envoyé par Arkham46

salut,

il manque un petit test...

si rien n'est sélectionné (à l'ouverture du formulaire) et qu'on clique sur les boutons monter/descendre ==> plantage

Merci Arkham, modif faite sur le premier message.



Starec

[Lou Pitchoun]

Salut Starec,

Voici la version 97 corrigée.

• CurrentProject.Path n'existe pas sous Acc97. Remplacé par une fonction
  Code :

  1
  2
  3
  Function ParentDir() As String
      ParentDir = Left(CurrentDb.name, Len(CurrentDb.name) - Len(Dir(CurrentDb.name)))
  End Function

• Les boutons cmdMonter et cmdFermer n'étaient pas "bons". J'ai copié le bouton cmdDescendre pour recréer les 2 boutons.
• Le bouton cmdFermer est vierge : pas de texte ou image disponible ??

Tu trouveras ci-joint la version corrigée.
Je regarderais pour 2007 si personne ne l'a fait.

[Philippe JOCHMANS]

Salut Lou

Merci pour la version 97

Pour le bouton Fermer, tu as une propriété Caption sur l'onglet Autres des propriétés de ce bouton, seulement il est dans les derniéres positions.

Starec

[Lou Pitchoun]

Salut Starec,

Pas Lou.. Lou Pitchoun. Lou signifie Le. Donc Lou seul ne veut rien dire

Merci
J'ai mis à jour l'archive
j'ai pas chercher la propriété