Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/06/2011, 17h15   #1
Invité régulier
 
Inscription : avril 2009
Messages : 11
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 11
Points : 8
Points : 8
Par défaut Zone de liste - séléction multiple de type étendu

Bonjour,

dans ma zone de liste je souhaite reproduire une variante de la sélection multiple de type "étendu". Le but est qu'en cliquant sur un élément de ma liste, tout les éléments se trouvant avant celui ci soient automatiquement sélectionnés.

Exemple:
Ma liste se compose de 10 éléments numérotés de 1 à 10.

En cliquant sur 3, les éléments de 1 à 3 sont séléctionnés
En cliquant sur 4, les éléments de 1 à 4 sont sélectionnés
En cliquant sur 5, les éléments de 1 à 5 sont sélectionnés etc.

Quelqu'un a-t-il une idée?
Merci
strutec est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/06/2011, 18h31   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Il te construire un critère sous la forme ...

(champ numérique entier long)
Code :
LeChamp In (1, 2, 3, 4)
(champ texte)
Code :
LeChamp In ('1', '2', '3', '4')
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/06/2011, 11h41   #3
Invité régulier
 
Inscription : avril 2009
Messages : 11
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 11
Points : 8
Points : 8
j'ai finalement trouvé ce code

Code :
1
2
3
4
Dim i As Long, varSel As Variant
   For i = 0 To Me.Liste.ItemsSelected(varSel)
   Me.Liste.Selected(i) = True
   Next i
strutec est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h18.


 
 
 
 
Partenaires

Hébergement Web