Déplacer les éléments dans une liste

Philippe JOCHMANS · 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

)

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 · 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

Philippe JOCHMANS · 04/08/2007, 19h57

Citation:

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 :

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 · 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

Lou Pitchoun · 10/08/2007, 07h53

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é

31/07/2007, 05h18	#1 (permalink)
Philippe JOCHMANS Responsable PowerPoint Date d'inscription: mai 2005 Localisation: Loir et Cher et Touraine Âge: 40 Messages: 9 787	Déplacer les éléments dans une liste 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). __________________ En cas de questions techniques par MP ou message visiteur Office : :Les Cours, Les FAQs VB : Les Cours, Les FAQs Mes articles : ici Me connaitre Dernière modification par Philippe JOCHMANS ; 04/08/2007 à 19h56

02/08/2007, 14h49	#2 (permalink)
seb92400 Membre éprouvé Date d'inscription: septembre 2006 Messages: 491	__________________ Ce n'est pas parce que les choses sont compliquées que nous n'osons pas... C'est parce que nous n'osons pas qu'elles deviennent compliquées !!! A lire impérativement : Post de Maxence Hubiche et Les règles du club... Au regard de tous les *BENEVOLES* qui s'occupent de ce forum voilà un petit proverbe que j'aime bien... Il est plus important de chercher que d’avoir trouvé. (André Siegfried) Abusez de la touche F1, de la FAQ, de la Recherche... et aussi du Résolu et du MERCI...

07/08/2007, 10h09	#5 (permalink)
Lou Pitchoun Responsable MSOffice Date d'inscription: février 2005 Localisation: Au soleil, Made In Marseille Âge: 30 Messages: 5 082	Salut Starec, Voici la version 97 corrigée. CurrentProject.Path n'existe pas sous Acc97. Remplacé par une fonction Code : 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. __________________ Responsable Office Futurs Modérateurs, Rédacteurs : We need you Access : Les Cours, Les Sources et Les FAQs Office Avant de poster : les choses importantes à lire pour la bonne tenue du forum. sinon Ma boite à MPs n'est pas l'annexe du forum Le complément BouleDeCristal n'existe pas encore !!! Dernière modification par Lou Pitchoun ; 10/08/2007 à 07h52 Motif: Mise à jour de l'archive

10/08/2007, 05h41	#6 (permalink)
Philippe JOCHMANS Responsable PowerPoint Date d'inscription: mai 2005 Localisation: Loir et Cher et Touraine Âge: 40 Messages: 9 787	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 __________________ En cas de questions techniques par MP ou message visiteur Office : :Les Cours, Les FAQs VB : Les Cours, Les FAQs Mes articles : ici Me connaitre

10/08/2007, 07h53	#7 (permalink)
Lou Pitchoun Responsable MSOffice Date d'inscription: février 2005 Localisation: Au soleil, Made In Marseille Âge: 30 Messages: 5 082	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é __________________ Responsable Office Futurs Modérateurs, Rédacteurs : We need you Access : Les Cours, Les Sources et Les FAQs Office Avant de poster : les choses importantes à lire pour la bonne tenue du forum. sinon Ma boite à MPs n'est pas l'annexe du forum Le complément BouleDeCristal n'existe pas encore !!!

04/08/2007, 13h54	#3 (permalink)
Arkham46 Rédacteur/Modérateur Date d'inscription: septembre 2003 Messages: 2 535	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

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > Contribuez
Déplacer les éléments dans une liste

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email