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

Invité · 31/07/2007, 05h18

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

)

Nom : Liste.jpg
Affichages : 145
Taille : 20,5 Ko

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 · 02/08/2007, 14h49

**Arkham46** · 04/08/2007, 13h54

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

Invité · 04/08/2007, 19h57

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** · 07/08/2007, 10h09

Salut Starec,

Voici la version 97 corrigée.

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

Code :

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

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.

Invité · 10/08/2007, 05h41

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