Re: => DEMO UserForm LIstBox Drag N Drop vers Multi ListBoxes pour Planning Auto
Re bonjour Pat, bonjour Salim, le Fil, le Forum
Merci Beaucoup à vous deux d'avoir prix le temps pour ce test.
Mais tu me fais peur là ! Pat, sous Excel 2003 la version V01.00 ne permet pas de draguer les items si on a fait une erreur... Arf !!! Là alors çà m'embête plus que ce soit Excel 2003 qui passe pas, que son arrière grand père !!!
Le problème c'est que je ne dispose pas de cette version 2003 pour l'instant. Alors je vais t'embêter !
Bon alors si tu as 5 minutes Pat tu vas dans VBE, Private Module du UserForm1
Tu Fais CTRL + F (Recherche, par Menu => Edition) puis tu colles ceci :
ByVal Action As long
Puis bouton Remplacer et tu colles celà :
ByVal Action As MSForms.fmAction
Puis Bouton "Remplacer Tout"
Normalement Neuf Remplacements seront effectués... Et puis, STP Pat, tu re-testes pour draguer tous azimuts (lol), car je suis curieux de savoir, car si celà passe celà voudrait signifier qu'à vouloir chercher à tout prix la compatibilité ascendante (le "Action As Long" a été proposé par Zon pour dépanner Eric Alors que VBA Excel 2000 propose "As MSForms.fmAction")... On perd la compatibilité descendante ! Et là alors, désolé encore, mais il n'y a pas photo...
Dans l'attente de vous lire, très curieux, merci d'avance
@+Thierry