Bonjour Creepy , Pascal76 et le forum
G tenté ta proposition Creepy mais je n'ai point réussi à la mettre en pratique : 'Argument non falcutatif'
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 Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
TEST
End Sub
dans un module
Function TEST(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
End Function
PASCAL76
En ce qui concerne ta remarque Pascal , je ne connais pas du tout les modules de classe , es ce que ca peut me permettre de resoudre mon probleme ??
je cherche des infos sur ce site
Merci