Je n'y comprend plus rien; la multiselection fonctionne aléatoirement, sans
que je comprenne pourquoi (parfois en gardant le bt gauche enfoncé et en me
deplacant j'ai bien le bandeau de selection sur plusieurs lignes, parfois
non)
La fonction GereDetail() permet de d'activer le DND, de gérer l'état des
boutons et du menu contextuel.
Mais même en l'ignorant complètement ca ne marche pas. Sauf dans un cas que
je n'arrive pas à trouver (combinaison de mode multiselection avec autre
chose ?! )

Fonction GereDetail()
lInd est un entier
lEtat est un entier = dndProgrammé
lRacine est une chaîne
lFeuille est une chaîne

lInd = TableRécupèreParent(TABLEDET)
SI lind <= 0 ALORS
   SI lind = 0 ALORS
      lracine = DESIGNDET
   FIN
   letat = dndInactif
SINON
   lracine = DESIGNDET[lind]
   lfeuille = DESIGNDET
   SI lracine <> "Phases" ALORS
      lEtat = dndInactif
   FIN
FIN
TABLEDET..DndCible = lEtat
TABLEDET..DndSource = lEtat

// Boutons
GR_PHA..Etat = Actif
GR_MOUV..Visible = Faux
SELON TYPEDET
   CAS "*"
      MODIPPF..Etat = Grisé
      SUPPPPF..Etat = Grisé
      AJOUPPF..Etat = Actif
   CAS "P"
   CAS "h"
      GR_MOUV..Visible = Vrai
FIN
// Menu contextuel
SI lracine = "" ALORS
   TABLEDET..MenuContextuel = MenuContextuelDesactivé
   RETOUR
SINON
   TABLEDET..MenuContextuel = "PopupDET"
FIN
PopupDET.Copier..Visible = (lFeuille <> "" ET lFeuille <> "Général")
PopupDET.Coller..Visible = (gCopy <> "" ET lracine = "Phases")
PopupDET.Supprime..Visible = (lFeuille <> "" ET lfeuille <> "Général")
PopupDET.Ajoute..Visible = (TYPECAT <> "C" ET lracine <> "Phases")