transfer de données

[akramenergie]

Bonjour mes amis svp je bloque sur un truc depuis 3 heurs
le probleme que je veut transferer des données d'une listbox a une autre au temps de fois sans écrasé les données déja enregistrer dans la list_archive
le bouton transferer doit envoyer les données de la listbox vers la list_archive

Merci

 

[akramenergie]

Re : transfer de données

de l'aide svp

 

[skoobi]

Re : transfer de données

Bonjour,

voici le code pour le bouton transférer (que tu appelles "CmdAnnuler" ?!?)

Private Sub CmdAnnuler_Click()
With user1.ListBox1
        .ColumnCount = 2            ' 2 colonnes
        .ColumnWidths = "65;10"    ' Largeur des colonnes
        .AddItem ListeClients.List(ListeClients.ListIndex, 0)
        .List(.ListCount - 1, 1) = ListeClients.List(ListeClients.ListIndex, 1)
        End With
End Sub

 

[akramenergie]

Re : transfer de données

bonjour
et si je veut transferer les trois ligne d'un seul coup je doit faire koi ?? S.V.P

Merci

 

[skoobi]

Re : transfer de données

Bonjour,

dans ce cas, remplace cette ligne:

        .List(.ListCount - 1, 1) = ListeClients.List(ListeClients.ListIndex, 1)

par celle-ci

        .List = ListeClients.List