Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel drag & drop dans une listbox

drag & drop dans une listbox

4 réponses
Avatar
Albator V
bonjour,

j'ai une listebox dans un userform et je voudrais savoir
s'il est possible de modifier lordre de cette list et
cliquant et glissant un item...

merci davance
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Albator,

ça veut dire quoi, modifier l'ordre de la liste ? Quel est cet ordre et Quel est celui que tu voudrais obtenir après
insertion d'une nouvelle valeur ?


Salutations!



"Albator V" a écrit dans le message de news:
1b8d01c4e1c3$89070ef0$
bonjour,

j'ai une listebox dans un userform et je voudrais savoir
s'il est possible de modifier lordre de cette list et
cliquant et glissant un item...

merci davance
Avatar
Albator V
Alors... j'ai une listebox... je clic sur un item (je
reste appuyer) et je le fais glisser dans la liste... en
gros je voudrais pouvoir modifier lordre d'une liste avec
la souris...

-----Message d'origine-----
Bonjour Albator,

ça veut dire quoi, modifier l'ordre de la liste ? Quel
est cet ordre et Quel est celui que tu voudrais obtenir

après
insertion d'une nouvelle valeur ?


Salutations!



"Albator V" a
écrit dans le message de news:

1b8d01c4e1c3$89070ef0$
bonjour,

j'ai une listebox dans un userform et je voudrais savoir
s'il est possible de modifier lordre de cette list et
cliquant et glissant un item...

merci davance


.



Avatar
michdenis
Bonjour Albator V,

Ce type de comportement n'est pas accessible pour un contrôle "listbox" ou "combobox".


Salutations!



"Albator V" a écrit dans le message de news:
151001c4e277$e152ebb0$
Alors... j'ai une listebox... je clic sur un item (je
reste appuyer) et je le fais glisser dans la liste... en
gros je voudrais pouvoir modifier lordre d'une liste avec
la souris...

-----Message d'origine-----
Bonjour Albator,

ça veut dire quoi, modifier l'ordre de la liste ? Quel
est cet ordre et Quel est celui que tu voudrais obtenir

après
insertion d'une nouvelle valeur ?


Salutations!



"Albator V" a
écrit dans le message de news:

1b8d01c4e1c3$89070ef0$
bonjour,

j'ai une listebox dans un userform et je voudrais savoir
s'il est possible de modifier lordre de cette list et
cliquant et glissant un item...

merci davance


.



Avatar
Michel Pierron
Bonsoir Albator V;
Tu pourrais essayer (dans le module UserForm):

Private Sub ListBox1_BeforeDragOver _
(ByVal Cancel As MSForms.ReturnBoolean _
, ByVal Data As MSForms.DataObject _
, ByVal x As Single, ByVal y As Single _
, ByVal DragState As MSForms.fmDragState _
, ByVal Effect As MSForms.ReturnEffect _
, ByVal Shift As Integer)
Cancel = True
End Sub

Private Sub ListBox1_BeforeDropOrPaste _
(ByVal Cancel As MSForms.ReturnBoolean _
, ByVal Action As MSForms.fmAction _
, ByVal Data As MSForms.DataObject _
, ByVal x As Single, ByVal y As Single _
, ByVal Effect As MSForms.ReturnEffect _
, ByVal Shift As Integer)
If Action = 3 Then
ListBox1.RemoveItem ListBox1.ListIndex
ListBox1.AddItem Data.GetText, CByte(y / 10)
ListBox1.Value = Data.GetText
Data.Clear
End If
End Sub

Private Sub ListBox1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer _
, ByVal x As Single, ByVal y As Single)
If Button = 1 Then
Dim MyDataObject As DataObject
Set MyDataObject = New DataObject
MyDataObject.SetText ListBox1.Value
MyDataObject.StartDrag
End If
End Sub

MP

"Albator V" a écrit dans le message de
news:1b8d01c4e1c3$89070ef0$
bonjour,

j'ai une listebox dans un userform et je voudrais savoir
s'il est possible de modifier lordre de cette list et
cliquant et glissant un item...

merci davance