=> DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

[@+Thierry]

=> DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour les amis et amies, les lecteurs et lectrices, le Forum quoi !

Bon, hier, Michel_M a soumis un travail très interressant dans ce Fil :
=> Lien supprimé qui en fait à un sujet qui ne correspond plus aux "threads" traitées dedans (entre autre, interressants échanges en ce qui concerne=> "[Crochets] or not Crochets that is the question !!!") et par conséquent je me permets de faire un nouveau fil tout neuf car le sujet abordé par Michel est très utile.

Donc je vous soumets une nouvelle démo qui complète le travail de Michel_M basé sur les New Collections et les Items de Deux ListBox que l'on peut déplacer à loisir de l'une vers l'autre et vice/versa tout en conservant l'ordre d'origine en cas de retour dans la ListBox initiale...

Mais il avait peur de son dentiste en ce qui concernait le Drag And Drop à la Souris...

Donc étant donné que le Drag & Drop est rarement documenté par des démos je vous fais tous et toute profiter de ce travail associatif entre Michel_M et votre humble narrateur ....... Just For The Fun ! (car pour l'instant je cherche encore l'utilité d'une telle démo lol)

Bonne découverte et bon dimanche
@+Thierry


PS une précédente Démo de Drag N Drop (probablement plus utile puisque retour des donnée "draguées" vers les cellules) :

=> Démo téléchargeable Lien supprimé (32k)

=> Fil de Discussion (mémorable avec mon copain Vériland) Lien supprimé

 

[Michel_M]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Salut Thierry et le Forum,

heureusement, tout ca c'est pour le fun: j'avais vu ce truc sur l'assistant ms-query où ce que tu sélectionnes revient à sa place initiale. C'était aussi un essai sur les new collections que je venais de découvrir toujours sur mon site chouchou: www.info-3000.com

J'ai téléchargé la bête et je la regarderai un peu plus tard.Hé,oui! je vais aller profiter un peu du bord de méditerrannée avant les cohues massives et prochaines de touristes.

A+
Michel

 

[@+Thierry]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Hello Michel ! le Forum

Et oui moi aussi suis sur le belle bleue... On n'a pas encore la cohue et j'ai l'impression que d'années en années ils ont trop tiré sur la vache à lait du tourisme et que nous en avons de moins en moins, ou alors est-ce l'€uro qui pèse trop lourd sur le budget des vacanciers, ou bien est-tout simplement que l'Europe s'ouvre et qu'ils font d'autres choix...

Enfin on verra en Juillet si la tendance s'améliore ou pas... Sinon on ne voir pas pouvoir "draguer" les belles ListBox Scandinaves et autres ComboBox germaniques !!! lol

Bon Dimanche !!!

@+Thierry

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le Forum
Bonjour Michel, bonjour Thierry

Je prend connaissance de cette excellente démo. Il y a un moment que je me promettais d'étudier la démo initiale dont tu traites ci dessus. Je dois, enfin je devrais prochainement concevoir un nouveau programme pour le bureau (gestion des astreintes du personnel pour une semaine) et cette démo devrait être le fil directeur de ce petit prog. Je resterai sur ce fil pour ton assistance & celle des autres bien sur, enfin ce ne sera pas pour tout de suite car il faut être sur le terrain .....
N.b : Concernant l'affluence estivale, il est certain qu'il faut se faire une raison, les vacances coûtent de plus en plus chères et le passage à l'€uro n'a pas amélioré les choses.
Bonne semaine à venir à toutes & à tous .
@ ++ Eric C

 

[Michel_M]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

salut Eric_C, re Thierry

Ben c'est pas évident, le drag and drop: de quoi s'occuper sainement

pour l'affluence, c'est vrai que les "coups de fusils" écoeurent les vacanciers

exemple: lavomatic du bord de mer 2 fois + cher qu'en ville, je ne parle pas des consos!...

C'est grave car ici en Languedoc le tourisme est le 1° poste économique

Bonne soirée

Michel

 

[@+Thierry]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonsoir Eric, re Michel

Michel, je suppose que tu as vu mes commentaires, surtout pour les déclarations de Variables... En fait c'est une erreur classique...
Dim Toto, Zaza, Lulu As Byte
=> Seul Lulu est Byte (pov lulu lol), Toto et Zaza sont Variants...

aussi pour le passpass aussi pour le Test sur la selection de LbxDepart.ListIndex + 1 < 1 Then

et aussi les déclaration Publique niveau Projet non utiles dans le cas présent.

Ce n'est pas catastrophique, c'est juste pour le souci de précision.

Bonne soirée
@+Thierry

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le forum
Re bonjour Miche, Thierry

Désenchanté (comme Mylène) la version ne tourne pas sous XL97.
@ ++ Eric C

 

[@+Thierry]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour Eric, Mylène (où est-elle ?), Michel, le Forum

Heuh, oui en fait çà ne m'étonne pas vraiment, les propriétés utilisées pour le Drag and Drop ne doivent pas passer... (Essayer quand même de cocher la référence dans VBE à "Microsoft ActiveX Data Objets 2.x (le plus élevé)" si jamais il existe dans ce vieu petit père !!!

Mais de toute manière vous savez ce que je pense d'Excel 97, c'était bien il y a 7 ans, un super produit qui, pour la première fois incluait VBE et des UserForms..... mais depuis il y a eu trois versions !!! alors si vous ne voulez pas être de plus en plus frustré à l'avenir... va falloir penser à changer de version et se mettre à la page... Nous, au bureau, on est passé déjà en phase de migration/suppression progressive de d'office 2000 vers Office XP... (pas encore 2003, afin de ne pas essuyer les plâtres)...

Enfin voilà, je suis désolé, mais au niveau professionnel, si vous devez développer ou devez utiliser du développement fait à l'extérieur, il faut impérativement se mettre à jour... Car Excel 97 est vraiment en ultime et dernière phase finale (même pas certain si MS assure encore des patch)...

Voilà Eric, tu peux imprimer ce post pour le filer à ton boss, je suis chargé d'étude informatique, et selon le type d''entreprise, bosser encore avec Office 97 aujourd'hui c'est pratiquement idem que les gens qui sont encore en Windows 95...(j'en connais qui sont encore sous 3.11 avec Excel 5, mais bon... c'est des particuliers)

Bonne Journée quand même
@+Thierry

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le forum
Bonjour Michel, Thierry

J'ai tenté un envoi dans ta bal mais en vain. J'avais 2 /3 bricoles persos à te dire mais bon ...
J'ai pris bonne note de ton post & j'essaierai.
@ ++ Eric C

 

[Zon]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Salut,

Suite au post 99409,


Cela fonctionne aussi sous XL97 mais une constante énumérée est à modifier dans les évènements Beforedroporpaste, remplacer ByVal Action As MSForms.fmAction par ByVal Action As long.


Je ne partage pas le même avis que toi @+Thierry, il ne faut pas être non plus victime du marketing de Microsoft surtout qu'à chaque nouvelle version commerciale nous servons de bêta testeurs. Il y a toujours minimum un ou 2 service packs pour corriger les bogues et parfois on cherhce encore les nouveautés... QUe ce soit un particulier ou une entreprise, tout le monde n'a pas les moyens financiers de suivre l'évolution informatique.
Quand je pense que le pack Office coûte plus cher qu'un PC complet 1 er prix ...

A+++

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le forum
Bonjour Michel, Thierry & Zon

Zon, merci de ta recherche et du patch pour la démo, je vais pouvoir y retourner. Il est vrai que l'on fait avec ce que l'on nous met à disposition. Il n'y a pas si longtemps que cela (10 ans) je me servais encore de la machine à écrire.
Enfin je te souhaite ainsi qu'à toutes & à tous un EXCELlent W.end.
@ ++ Eric C

 

[@+Thierry]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour Zon, Eric, Michel_M, le Forum

Merci beaucoup Zon, j'apprécie comme toujours tes interventions en vue d'améliorer mes démos pour une plus large compatibilité. C'est très sympa de t'investir de le sorte.

Je viens de faire la modif préconisée, et je confirme que cela fonctionne sous 2000.

Pour ce qui est de cette escalade de marketing pour pousser à la consommation, je souhaite juste marquer clairement ma position. Je suis tout à fait contre et partage complètement ton avis aussi.... Mais il y a tout de même un juste milieu... D'ailleurs si vous m'avez bien lu, j'ai tout de même écrit "(pas encore 2003, afin de ne pas essuyer les plâtres)".

En fait il y a une logique de consommation intelligente et raisonnable que l'on peut suivre un petit peu, par exemple les défractaires de téléphones mobiles les plus hargneux sont arrivés avec le temps par finir par s'équiper d'un téléphone tout simple, fiable et économique avec un forfait basic et raisonnable... Pour autant ils n'ont pas le dernier cri de téléphones qui font des photos ou même caméra, et ils ont bien raison de ne pas se créer de nouveaux besoins "à la con" (passez moi l'expression !)

Pour en revenir au monde micro, j'ai un ami qui me fait penser à toi Zon dans tes propos pour contre cette "course à l'équipement" orchestrée par Billou... Il a tenu le coup, (mon ami, pas Billou !! lol) avec Win 3.11 jusqu'à il n'y a pas si longtemps, je dois préciser qu'il est Ingénieur Informaticien (mon copain, toujours pas Billou ('re lol lol) !!!)... Car il a été absolument contre cette escalade quand ils ont inauguré windows 95...le crash de Windows avec Bill en direct à la TV !!!lol… puis le reste...Tout en s'appuyant sur toutes ces versions payantes pour cobayes à lait (c'est plus facile à trouver que les vaches à lait... lol)[
/i]

Mais à force il a bien été obligé de se convertir... C'est vrai que d'un autre coté sa reconversion s'est un peu écartée de la "voie sacrée" (celle de Billou, pas de mon copain, lol En effet il est devenu spécialiste Linux/Unix / MySQL / OpenOffice...


Donc voilà, il va se produire à mes yeux un énorme changement qui a déjà irrémédiablement commencé... Les entreprises et les particuliers qui en ont marre et qui ont les capacités de connaissance finiront pas "basculer" vers l'Open Source... Dans un post du début d'année j'ai un peu commenté Lien supprimé

Enfin bon, ici on est un Forum Excel et bien qu'Open Office soit un "Excellent" produit gratos, ce n'est qu'un bébé et il n'est pas encore tout à fait prêt à être une alternative complète à notre logiciel préféré. (mais attention, il grandit de jour en jour).

Pour ma part, pour les utilisateurs fidèles à MS, je reviens sur ce bon vieux Excel 97, qui est pour moi à la fin de sa vie. Donc ne soyez pas frustrés, si un de ces quatre vous vous retrouvez de plus en plus coincés avec les échanges de fichiers sur le net si vous n'avez pas fixé une alternative, il est certain que ceux/celles qui travaillent en vase clos pourraient même encore travailler avec Excel 5 (ou sur une machine à écrire lol)... c'est tout ce que je voulais faire passer comme message ci-dessus.

Bon Week End
@+Thierry

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le forum
Bonjour Michel, Zon & Thierry
Thierry, je ne vais pas me voiler la face en disant : j'ai bien essayé de .....
Non, j'ai tenté de comprendre le Drag & Drop mais pour ma part trop Relou (oui lourd quoi ...) pour un modeste utilisateur comme moi. Tu sais que par définition que je suis Basic donc .....je te sollicite (une fois de plus ...).
Je désirerais savoir si l'on peut créer une appli pour réaliser une feuille de service journalier :
-- 1-Depuis ta LbxDepart contenant le personnel de l'unité : dispatcher vers non pas une LbxArrivée mais plusieurs : Permission - Repos - Malade - Hors unité .
-- 2-Reprendre le reliquat de la LbxDepart pour pouvoir à nouveau dispatcher les # occupations internes au sein du service : Ecritures - .....
--3- Rereprendre le reliquat de la LbxDepart - "--2--" pour assurer les services externes de la journée sachant qu'une personne fera au pire des cas un service externe (horaires modulables) de : 08 à 12H00 - 14 à 18H00 & éventuellement 22 à 02H00.
Je ne sais pas si j'ai été assez clair mais je reste plus qu'à ta dispo pour un complément d'info. Je sais que l'on pourrait faire d'une autre manière mais je préfèrerais opter pour le Drag and Drop.
Te remerciant par anticipation.
Ton solliciteur Eric C

 

[@+Thierry]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Salut Eric_C, Michel_M, le Forum


As-tu regardé la démo mise en lien dans mon premier post de ce fil, ainsi que le fil d'origine, je pense que c'est sur ceci que tu dois travailler, la démo de ce présent fil étant plutôt une sorte de performance qu'un utilitaire.

Bon Courage
@+Thierry

 

[Eric C]

Re: => DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Bonjour le forum
Re Bonjour Michel_M, Zon & Thierry

Bon, je vais tenter de décortiquer ta 1ère démo, voir si je peux l'exploiter sous 97 car la plupart des projets ne sont pas affichables (certification oblige ==> le projet ne peut être affiché) et essayer de l'appliquer à mon sujet.
Par ailleurs comme tu n'as pas émis de réserves, j'en déduis que l'on peut utiliser plusieurs ListBoxs d'arrivées sur un même USF.
Merci quand même & bon dimanche.
@ ++ Eric C