Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste de choix multiple

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ThunderPaT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

ThunderPaT

Guest
Bonjour à tous,
J'ai déjà parcouru le forum et j'ai trouvé pas mal de chose qui m'on beaucoup aider. Et il me reste un truc à faire et je me casse la tête dessus depuis un petit moment ^^

Voila mon problème :

Voici un exemple de tableau type,

-----A-------|||-------B--------
PAFG-HS09---||---Test
PET1-DSKH---||---Alim
PETU-CTFS---||---Dépannage
PSUB-CR45---||---Prod
PAFG-A363---||---Montage
PNRC-CTFS---||---Vernissage
PACC-NIVA---||---Deverminage
PAFG-HS09---||---Contrôle croisé

etc....

Par exemple, si j'ai "PAFG-HS09" en cellule A1 sur une autre feuille du classeur, il faudrait qu'en B1 j'ai une liste qui me propose "Test, Contrôle croisé" sous forme de liste déroulante.

Voila, j'espère avoir été clair.
Merci d'avance à tout ceux qui se pencheront sur mon problème. 😉
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Liste de choix multiple

Merci c'est super !!
Dans l'esprit, c'est exactement ça !!

Juste une petite chose, peut-on mettre cette liste directement dans une cellule au lieu d'une liste déroulante "flottante" ?

Encore merci !! [HAPPY 😀]
 
Vote positif 0 Vote négatif
Re : Liste de choix multiple

Bonsoir,

Avec Données/Validation

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
    Sheets("liste").[J2] = Empty
    Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=Sheets("liste").[J1:J2], CopyToRange:=Sheets("liste").[E1], Unique:=True
  End If
  If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then
     Sheets("liste").[J2] = Target.Offset(0, -1)
     Sheets("liste").[K2] = Empty
     Sheets("liste").[A1:C1000].AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("liste").[J1:K2], CopyToRange:=Sheets("liste").[F1], Unique:=True
  End If
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
Microsoft 365 pop up vba pour liste de choix
Réponses
4
Affichages
1 K
Dranreb
C
  • Question Question
XL 2021 Etat de sortie sur Word a partir d'une base Excel
Réponses
11
Affichages
1 K
cherco
C
T
  • Question Question
XL pour MAC liste déroulante à choix multiple compatible PC et Mac
Réponses
2
Affichages
2 K
Tibooo
T
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
940
elgringo123456
E
E
  • Résolu(e)
XL pour MAC Liste déroulante à choix multiples Excel mac
2
Réponses
15
Affichages
5 K
Tibooo
T
J
  • Question Question
XL 2019 Créer une liste à partir de plusieurs critères de différentes listes déroulantes
Réponses
1
Affichages
846
mapomme
  • Résolu(e)
Microsoft 365 msgbox avec liste de choix
2 3 4
Réponses
46
Affichages
9 K
Usine à gaz
C
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
C
S
  • Question Question
Autres Moyenne de cellules à choix multiples
Réponses
6
Affichages
1 K
Sant_maclaw
S
S
  • Question Question
XL 2016 Liste de choix à sélection multiple
Réponses
7
Affichages
4 K
StanSigma
S
V
  • Question Question
XL 2013 Besoin d'aide et ou suggestion pour fichier de rapport
Réponses
6
Affichages
1 K
Vilic
V
F
  • Question Question
XL 2016 liste de choix indirect et TCD
Réponses
4
Affichages
1 K
chris
F
  • Question Question
XL 2013 VBA - Coder une liste déroulante avec sélection multiple et conditions
Réponses
1
Affichages
1 K
CHALET53
C
M
  • Question Question
XL 2016 Somme.si.ens avec comme un critère une liste de roulante avec choix multiples
Réponses
8
Affichages
2 K
chris
P
  • Question Question
Listes déroulantes à choix multiples
2
Réponses
28
Affichages
5 K
chris
N
  • Question Question
XL 2016 Tableau de bord "Suivis des Evènements Indésirables" ?
2
Réponses
21
Affichages
9 K
ChTi160
A
  • Question Question
XL 2010 Choix de liste conditionnel dans une cellule
Réponses
9
Affichages
1 K
Dugenou
K
  • Question Question
Créer liste conditionnelle par extraction de données d'une base
Réponses
3
Affichages
1 K
ksimat
K
K
  • Question Question
Adapter code VBA de liste à choix multiples (original sur 1 colonne à adapter sur 4)
Réponses
2
Affichages
1 K
Kev94
K
H
  • Question Question
à l’attention de vGendron Tableau Exposants
2
Réponses
17
Affichages
3 K
Hyriu29
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…