C'est super y a plus ce message d'erreur mais y en a un autre un peu plus loin
:
Private Sub cmdAdd_Click()
Function Echange(lstDispo, LstExport)
End Function
Function Echange(lstSource As MSForms.ListBox, lstDestination As MSForms.ListBox)
Dim lgTmp As Long
If (lstSource.ListCount > 0) Then
If (lstSource.ListIndex > -1) Then
lgTmp = lstSource.ListIndex
lstDestination.AddItem lstSource.List(lgTmp)
lstDestination.ItemData(lstDestination.NewIndex) = lstSource.ItemData(lgTmp) <------------ message d'erreur a cette ligne : Propriété ou methode non géré par cet objet
Private Sub cmdAdd_Click()
Function Echange(lstDispo, LstExport)
End Function
on appelle pas une fonction en écrivant FUNCTION
une fonction retourne un résultat
valeur = Echange(lstDispo, LstExport)
si ta fonction Echange ne retourne rien, fais en une procédure
Sub Echange(lstSource As ListBox, lstDestination As ListBox)
.......
End Sub
et appelle-la
Call Echange(lstDispo, LstExport) <hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp