transfer de données

A

akramenergie

XLDnaute Occasionnel

• 8 Juillet 2008

• #2

Re : transfer de données

de l'aide svp

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 8 Juillet 2008

• #3

Re : transfer de données

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 9 Juillet 2008

• #4

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 9 Juillet 2008

• #5

Re : transfer de données

Bonjour,

dans ce cas, remplace cette ligne:

Code:

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

par celle-ci

Code:

        .List = ListeClients.List

 

Vote positif 0 Vote négatif