Discussion :

[Tomilliev]

Bonjour à tous,
Voilà, j'ai un userform contenant un treeView version 6 contenant du texte.

La property ShowModal de l'userForm est réglée à False

J'arrive à faire glisser hors de mon treeview le noeud sélectionné, de le faire glisser sur la feuille calcul, mais ô cruelle déception, impossible de récupérer le dépôt dans la cellule de la feuille de calcul visée.

Ma question est: Peut on récupérer le dépot d'un OleDrop dans une cellule Excel et si oui comment?

Merci par avance.
TomIlliev

[Theze]

Bonjour,

Comme il n'y a pas d'événements "BeforeDragOver" et "BeforeDropOrPaste" pour les feuilles Excel je pense que se n'est pas possible de récupérer la valeur glissée depuis un ActiveX.

Hervé.

[PMO2017]

Bonjour,

Une piste avec la démarche suivante :
1) créer un UserFom1 et y insérer un contrôle TreeView1
2) copier le code suivant dans la fenêtre de code du UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Initialize()
Dim NOD As Node
Dim Jours As Variant
Dim Mois As Variant
Dim i&
'---
Jours = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
Mois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", _
             "août", "septembre", "octobre", "novembre", "décembre")
 
With TreeView1
  '--- Jours ---
  Set NOD = .Nodes.Add(, , "Racine1", "Jours")
  For i& = LBound(Jours) To UBound(Jours)
    Set NOD = .Nodes.Add("Racine1", tvwChild, , Jours(i&))
  Next i&
  NOD.EnsureVisible
  '--- Mois ---
  Set NOD = .Nodes.Add(, , "Racine2", "Mois")
  For i& = LBound(Mois) To UBound(Mois)
    Set NOD = .Nodes.Add("Racine2", tvwChild, , Mois(i&))
  Next i&
  NOD.EnsureVisible
 
  '### Active le Glisser/Déposer ###
  .OLEDragMode = ccOLEDragAutomatic
End With
End Sub

3) sur la Feuil1, insérer un contrôle ActveX CommandButton
4) dans la fenêtre de code Feuil1, copier le code suivant

Code :

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

1
2
3
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub

IMPERATIF : il est absolument nécessaire que la propiété ShowModal du UserForm soit fixée à False OU de lancer le UserForm à
partir du CommandButton qui utilise la méthode Show avec le paramètre vbModeless

Lancez le UserForm, sélectionnez un nœud du TreeView et faites le glisser sur une cellule Excel.

[Tomilliev]

Merci pour vos réponses,

PMO2017,
Le problème n'est pas de faire glisser le noeud du treeview vers la cellule, mais de maitriser le dépôt dans la dite cellule c'est à dire:

Vérifier si je suis bien dans la bonne colonne si non intervenir.
Vérifier si la cellule de destination est vide si non le dire.
Maitriser la suppression du nœud dans mon treeview lors du dépôt.
Etc, Etc....
Enfin vous voyez le topo

Je ne suis pas un pro de la programmation, je le fais pour le plaisir et pour mon job. (Entreprise du bâtiment)

Enfin je trouve dommage qu'il n'y ai pas d'évents de DragDrop dans les feuilles de calcul car c'est sympa de faire glisser depuis un treeview, des données vers une feuille de calcul.

En tout les cas merci encore de vos réponses et
tenez vous au frais!
TomIlliev

[PMO2017]

Bonjour,

Le problème n'est pas de faire glisser le noeud du treeview vers la cellule mais de maîtriser le dépôt dans la dite cellule

OK, je comprends mieux maintenant.
Essayez l'exemple du classeur joint. J'ai fait un pseudo évènement du DragAndDrop qui passe par Worksheet_SelectionChange (entre autres).

[Tomilliev]

Bonsoir PMO2017,
Je viens de tester ton classeur, merci, encore merci, à priori c'est ce que je cherchais à faire.
Je vais l'adapter à mon classeur, et si tu le permets je te tiendrai au courant.
Bravo.
TomIlliev