J'ai une ListBox multilignes et multis=E9lection simple.
Je s=E9lection 3 valeurs que je veux lire. Pour cela, une=20
p'tite bouvle qui lit tout mes enregistrement et s'arrete=20
sur les lignes s=E9lectionn=E9es. J'utilise la m=E9thode=20
ListIndex.
Au d=E9but de la boucle, mon listindex a la valeur de la=20
derni=E8re ligne s=E9lectionn=E9e. Je lis cette ligne. Comment,=20
ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >=3D 0
If Me.lstValeurs.ListIndex =3D lngOccurence Then
strCritere =3D strCritere & Me.lstValeurs.Column(0)=20
& ","
End If
lngOccurence =3D lngOccurence - 1
Loop
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Tu peux faire aussi ceci pour récupérer les valeurs: Dim varItm As Variant strCritere = "" For Each varItm In lstValeurs.ItemsSelected strCritere = strCritere & lstValeurs.ItemData(varItm) & ";" Next varItm ' MsgBox strCritere ' pour tester
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" a écrit dans le message de news:284b901c464d3$16e2dce0$ bonjour à tous,
J'ai une ListBox multilignes et multisélection simple. Je sélection 3 valeurs que je veux lire. Pour cela, une p'tite bouvle qui lit tout mes enregistrement et s'arrete sur les lignes sélectionnées. J'utilise la méthode ListIndex.
Au début de la boucle, mon listindex a la valeur de la dernière ligne sélectionnée. Je lis cette ligne. Comment, ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0 If Me.lstValeurs.ListIndex = lngOccurence Then strCritere = strCritere & Me.lstValeurs.Column(0) & "," End If lngOccurence = lngOccurence - 1 Loop
Merci.
Laurent
Bonjour.
Tu peux faire aussi ceci pour récupérer les valeurs:
Dim varItm As Variant
strCritere = ""
For Each varItm In lstValeurs.ItemsSelected
strCritere = strCritere & lstValeurs.ItemData(varItm) & ";"
Next varItm
' MsgBox strCritere ' pour tester
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:284b901c464d3$16e2dce0$a601280a@phx.gbl...
bonjour à tous,
J'ai une ListBox multilignes et multisélection simple.
Je sélection 3 valeurs que je veux lire. Pour cela, une
p'tite bouvle qui lit tout mes enregistrement et s'arrete
sur les lignes sélectionnées. J'utilise la méthode
ListIndex.
Au début de la boucle, mon listindex a la valeur de la
dernière ligne sélectionnée. Je lis cette ligne. Comment,
ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0
If Me.lstValeurs.ListIndex = lngOccurence Then
strCritere = strCritere & Me.lstValeurs.Column(0)
& ","
End If
lngOccurence = lngOccurence - 1
Loop
Tu peux faire aussi ceci pour récupérer les valeurs: Dim varItm As Variant strCritere = "" For Each varItm In lstValeurs.ItemsSelected strCritere = strCritere & lstValeurs.ItemData(varItm) & ";" Next varItm ' MsgBox strCritere ' pour tester
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" a écrit dans le message de news:284b901c464d3$16e2dce0$ bonjour à tous,
J'ai une ListBox multilignes et multisélection simple. Je sélection 3 valeurs que je veux lire. Pour cela, une p'tite bouvle qui lit tout mes enregistrement et s'arrete sur les lignes sélectionnées. J'utilise la méthode ListIndex.
Au début de la boucle, mon listindex a la valeur de la dernière ligne sélectionnée. Je lis cette ligne. Comment, ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0 If Me.lstValeurs.ListIndex = lngOccurence Then strCritere = strCritere & Me.lstValeurs.Column(0) & "," End If lngOccurence = lngOccurence - 1 Loop
Merci.
Laurent
Laurent
Yes... Impécable ! Merci beaucoup
Laurent
-----Message d'origine----- Bonjour.
Tu peux faire aussi ceci pour récupérer les valeurs: Dim varItm As Variant strCritere = "" For Each varItm In lstValeurs.ItemsSelected strCritere = strCritere & lstValeurs.ItemData(varItm) & ";"
Next varItm ' MsgBox strCritere ' pour tester
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" a écrit dans le message de
news:284b901c464d3$16e2dce0$ bonjour à tous,
J'ai une ListBox multilignes et multisélection simple. Je sélection 3 valeurs que je veux lire. Pour cela, une p'tite bouvle qui lit tout mes enregistrement et s'arrete sur les lignes sélectionnées. J'utilise la méthode ListIndex.
Au début de la boucle, mon listindex a la valeur de la dernière ligne sélectionnée. Je lis cette ligne. Comment, ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0 If Me.lstValeurs.ListIndex = lngOccurence Then strCritere = strCritere & Me.lstValeurs.Column(0) & "," End If lngOccurence = lngOccurence - 1 Loop
Merci.
Laurent
.
Yes...
Impécable !
Merci beaucoup
Laurent
-----Message d'origine-----
Bonjour.
Tu peux faire aussi ceci pour récupérer les valeurs:
Dim varItm As Variant
strCritere = ""
For Each varItm In lstValeurs.ItemsSelected
strCritere = strCritere & lstValeurs.ItemData(varItm)
& ";"
Next varItm
' MsgBox strCritere ' pour tester
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:284b901c464d3$16e2dce0$a601280a@phx.gbl...
bonjour à tous,
J'ai une ListBox multilignes et multisélection simple.
Je sélection 3 valeurs que je veux lire. Pour cela, une
p'tite bouvle qui lit tout mes enregistrement et s'arrete
sur les lignes sélectionnées. J'utilise la méthode
ListIndex.
Au début de la boucle, mon listindex a la valeur de la
dernière ligne sélectionnée. Je lis cette ligne. Comment,
ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0
If Me.lstValeurs.ListIndex = lngOccurence Then
strCritere = strCritere & Me.lstValeurs.Column(0)
& ","
End If
lngOccurence = lngOccurence - 1
Loop
Tu peux faire aussi ceci pour récupérer les valeurs: Dim varItm As Variant strCritere = "" For Each varItm In lstValeurs.ItemsSelected strCritere = strCritere & lstValeurs.ItemData(varItm) & ";"
Next varItm ' MsgBox strCritere ' pour tester
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Laurent" a écrit dans le message de
news:284b901c464d3$16e2dce0$ bonjour à tous,
J'ai une ListBox multilignes et multisélection simple. Je sélection 3 valeurs que je veux lire. Pour cela, une p'tite bouvle qui lit tout mes enregistrement et s'arrete sur les lignes sélectionnées. J'utilise la méthode ListIndex.
Au début de la boucle, mon listindex a la valeur de la dernière ligne sélectionnée. Je lis cette ligne. Comment, ensuite, faire prendre au listindex la valeur suivante ?
Mon code :
Do While lngOccurence >= 0 If Me.lstValeurs.ListIndex = lngOccurence Then strCritere = strCritere & Me.lstValeurs.Column(0) & "," End If lngOccurence = lngOccurence - 1 Loop
