Multi select
Résolu
cs_mimimati
Messages postés
19
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
29 août 2005
-
29 juil. 2005 à 13:35
cs_mimimati Messages postés 19 Date d'inscription mardi 5 juillet 2005 Statut Membre Dernière intervention 29 août 2005 - 29 juil. 2005 à 14:21
cs_mimimati Messages postés 19 Date d'inscription mardi 5 juillet 2005 Statut Membre Dernière intervention 29 août 2005 - 29 juil. 2005 à 14:21
A voir également:
- Multi select
- Select sum ✓ - Forum SQL
- Select max date sql ✓ - Forum SQL
- Sql ajouter une colonne dans un select - Forum SQL
- Sql boucle for select ✓ - Forum SQL
- Php select case ✓ - Forum PHP
2 réponses
Ricks27
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005
29 juil. 2005 à 14:08
29 juil. 2005 à 14:08
Bonjour,
Essaies ceci
'Dans un module
Sub ChargeListe(ByVal ListeSource As ListBox, ListeDestination As ListBox)
Dim T As Long
ListeDestination.Clear
For T = 0 To ListeSource.ListCount - 1
If ListeSource.Selected(T) = True Then
ListeDestination.AddItem Trim(.List(T))
End If
Next T
End Sub
'Derrière ton boutton
Call ChargeListe(NomDeLaListeBoxSource,NomDeLaListeBoxDestination)
Ricks27
Essaies ceci
'Dans un module
Sub ChargeListe(ByVal ListeSource As ListBox, ListeDestination As ListBox)
Dim T As Long
ListeDestination.Clear
For T = 0 To ListeSource.ListCount - 1
If ListeSource.Selected(T) = True Then
ListeDestination.AddItem Trim(.List(T))
End If
Next T
End Sub
'Derrière ton boutton
Call ChargeListe(NomDeLaListeBoxSource,NomDeLaListeBoxDestination)
Ricks27
cs_mimimati
Messages postés
19
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
29 août 2005
29 juil. 2005 à 14:21
29 juil. 2005 à 14:21
nikel !! merci !!
