IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

Créer une liste déroulante de choix conditionnelle


Sujet :

Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    INVALIDE
    Inscrit en
    Mai 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : INVALIDE

    Informations forums :
    Inscription : Mai 2015
    Messages : 34
    Points : 20
    Points
    20
    Par défaut Créer une liste déroulante de choix conditionnelle
    Bonjour,
    Je souhaite créer une liste déroulante de choix conditionnelle, malheureusement je suis débutant dans le domaine, merci de m’aider les amis !!!!
    Vous trouverez ci-joint le fichier avec les formules que j’ai trouvé mais bon ça ne marche pas !
    Fichiers attachés Fichiers attachés

  2. #2
    Membre émérite
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Points : 2 657
    Points
    2 657
    Par défaut
    Bonjour Le Samaritain,

    Je te propose de passer par une procédure événementielle qui va détecter le changement de valeur dans la cellule G5.

    Ainsi :
    1. ALT + F11
    2. Tu sélectionnes la "Feuil2 (test)".
    3. Tu sélectionnes dans le menu déroulant "Worksheet".
    4. Tu insères le code ci-dessous.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Option Explicit
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oRng As Range
     
    With Worksheets("test")
        If Not Application.Intersect(Target, .Range("G5")) Is Nothing Then
            With Worksheets("Matrice")
                Set oRng = .Columns(1).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
                If Not oRng Is Nothing Then
                    With Worksheets("test").Range("I5").Validation
                        .Delete
                        .Add Type:=xlValidateList, Formula1:="=Matrice!D" & oRng.Row & ":K" & oRng.Row
                    End With
                Else
                    MsgBox "La valeur saisie ne correspond pas à la liste de sélection de ""Matrice""."
                    With Worksheets("test").Range("I5")
                        .Validation.Delete
                        .Select
                    End With
                    Exit Sub
                End If
            End With
        End If
    End With
     
    End Sub
    Je pense cependant, qu'il peut y avoir beaucoup plus simple. Mais l'explicitation de ton problème est... restreinte.

    N'hésite pas à revenir vers moi !

    Cordialement,
    Kimy
    La logique :
    • Plus ya de gruyère, moins ya de gruyère.
    • Plus tu pédales moins vite, moins tu avances plus vite.
    Plusoyer les réponses pertinentes et n'oublier pas de résolver en fin de post !

  3. #3
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Points : 32 866
    Points
    32 866
    Par défaut
    Tu aurais pu prévenir que tu avais bloqué le calcul des formules dans ta fiche test !!!


    En G5, tu crées une liste déroulante classique avec une validation de données catégorie Liste avec comme source la plage D4:K4 de ta feuille matrice.

    En L5 de ta feuille Matrice, tu mets la formule :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =RECHERCHEH(test!$G$5;$D$4:$K18;LIGNE(L5)-3)
    Tu la copies en L6:L18

    En I5 de ta feuille test, tu fais de une liste déroulante avec la formule :

    Cela dit, suggérer que des enfants de moins de 30 kg puisse faire du Muay Thai, ça me semble complètement irresponsable.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  4. #4
    Membre à l'essai
    Homme Profil pro
    INVALIDE
    Inscrit en
    Mai 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : INVALIDE

    Informations forums :
    Inscription : Mai 2015
    Messages : 34
    Points : 20
    Points
    20
    Par défaut
    Citation Envoyé par Kimy_Ire Voir le message
    Bonjour Le Samaritain,

    Je te propose de passer par une procédure événementielle qui va détecter le changement de valeur dans la cellule G5.

    Ainsi :
    1. ALT + F11
    2. Tu sélectionnes la "Feuil2 (test)".
    3. Tu sélectionnes dans le menu déroulant "Worksheet".
    4. Tu insères le code ci-dessous.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Option Explicit
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oRng As Range
     
    With Worksheets("test")
        If Not Application.Intersect(Target, .Range("G5")) Is Nothing Then
            With Worksheets("Matrice")
                Set oRng = .Columns(1).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
                If Not oRng Is Nothing Then
                    With Worksheets("test").Range("I5").Validation
                        .Delete
                        .Add Type:=xlValidateList, Formula1:="=Matrice!D" & oRng.Row & ":K" & oRng.Row
                    End With
                Else
                    MsgBox "La valeur saisie ne correspond pas à la liste de sélection de ""Matrice""."
                    With Worksheets("test").Range("I5")
                        .Validation.Delete
                        .Select
                    End With
                    Exit Sub
                End If
            End With
        End If
    End With
     
    End Sub
    Je pense cependant, qu'il peut y avoir beaucoup plus simple. Mais l'explicitation de ton problème est... restreinte.

    N'hésite pas à revenir vers moi !

    Cordialement,
    Kimy
    Bonjour,

    Merci pour votre réactivité, je viens d'essayer la formule que vous avez proposé. Malheureusement ça ne fonctionne pas sur toutes les colonnes poids quand je click sur I5

    Voir le fichier jointtest.xlsm

    Bonne soirée
    Fichiers attachés Fichiers attachés

  5. #5
    Membre à l'essai
    Homme Profil pro
    INVALIDE
    Inscrit en
    Mai 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : INVALIDE

    Informations forums :
    Inscription : Mai 2015
    Messages : 34
    Points : 20
    Points
    20
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Tu aurais pu prévenir que tu avais bloqué le calcul des formules dans ta fiche test !!!


    En G5, tu crées une liste déroulante classique avec une validation de données catégorie Liste avec comme source la plage D4:K4 de ta feuille matrice.

    En L5 de ta feuille Matrice, tu mets la formule :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =RECHERCHEH(test!$G$5;$D$4:$K18;LIGNE(L5)-3)
    Tu la copies en L6:L18

    En I5 de ta feuille test, tu fais de une liste déroulante avec la formule :

    Cela dit, suggérer que des enfants de moins de 30 kg puisse faire du Muay Thai, ça me semble complètement irresponsable.
    Bonjour,

    Merci pour votre réactivité, j'ai essayé votre formule est malheureusement elle ne fonctionne pas dans la cellule TEST! I5

    Je vous joint le fichier car comme je suis novice, il est possible que je me suis trompé.test.xlsx

    Concernant la discipline MUAYTHAÏ c'est une discipline délégataire donc reconnu par le ministère, là on parle de Boxe éducative aucune diffusions d'énergies à l'impact est autorisés et les enfants portent des protections (c'est fini la période ROCKY, nous dans celle du Kangourou ). Cela dit, au football ou tennis il y a beaucoup plus d'accident (entorse à la cheville, rupture du ligament croisé........)

    Je vous souhaite une bonne soirée

  6. #6
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 419
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 419
    Points : 16 262
    Points
    16 262
    Par défaut
    Bonjour

    Il manque le 4ème argument du RECHERCHEH

    Ci-joint ton classeur :
    • solution 1 avec RECHERCHEH corrigé
    • solution 2 avec le tableau source sous forme de tableau (au sens 2007-2013) : ce permet que des lignes soient ajoutées ou enlevées et que la formule continue à fonctionner (on peut dans ce cas effacer la colonne L de la feuille MATRICE)
    • solution 3 avec tableau mais en n'affichant que les lignes remplies pour la catégorie
    Fichiers attachés Fichiers attachés
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  7. #7
    Membre à l'essai
    Homme Profil pro
    INVALIDE
    Inscrit en
    Mai 2015
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : INVALIDE

    Informations forums :
    Inscription : Mai 2015
    Messages : 34
    Points : 20
    Points
    20
    Par défaut
    Citation Envoyé par 78chris Voir le message
    Bonjour

    Il manque le 4ème argument du RECHERCHEH

    Ci-joint ton classeur :
    • solution 1 avec RECHERCHEH corrigé
    • solution 2 avec le tableau source sous forme de tableau (au sens 2007-2013) : ce permet que des lignes soient ajoutées ou enlevées et que la formule continue à fonctionner (on peut dans ce cas effacer la colonne L de la feuille MATRICE)
    • solution 3 avec tableau mais en n'affichant que les lignes remplies pour la catégorie
    Bonjour,

    Merci, super ça fonctionne !!!!!!!

    Par contre j'ai voulu copier la solution 2 et la coller dans le fichier original et là ça ne fonctionne plus. De plus je travaille avec des autres disciplines "KICKBOXING, PANCRACE, CHAUSS FIGHT......" j'ai donc plusieurs tableaux de catégories de poids, pour moi le copier coller c'est la plus rapide.

Discussions similaires

  1. [XL-2013] Créer une liste déroulante de choix alimentée via un fichier texte
    Par arnaudperfect dans le forum Excel
    Réponses: 2
    Dernier message: 14/11/2014, 16h36
  2. Réponses: 8
    Dernier message: 16/06/2014, 12h14
  3. [AC-2010] Comment créer une liste déroulante à choix multiple
    Par e2r34 dans le forum IHM
    Réponses: 2
    Dernier message: 24/02/2013, 17h35
  4. Réponses: 1
    Dernier message: 04/09/2007, 08h56
  5. Réponses: 3
    Dernier message: 20/02/2006, 18h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo