Plusieurs listes déroulantes dans une fonction SI
Ltantho
-
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais créer plusieurs listes déroulantes dans une même fonction SI
Cela correspond à afficher un nom de commune en fonction d'un code postal inscrit.
Par exemple, si je rentre 80110 dans une cellule, j'aimerais obtenir dans la cellule d'à côté une liste déroulante avec tous les noms de communes appartenant à ce code postal ; ensuite si je rentre 80112, je souhaiterais obtenir dans la cellule d'à coté l'unique nom de commune qui appartient à cette commune ; ensuite une autre liste déroulante avec les communes appartenant au code postal 80120, etc...
Quelqu'un serait-il susceptible de m'aider ?
Par avance, merci.
Je souhaiterais créer plusieurs listes déroulantes dans une même fonction SI
Cela correspond à afficher un nom de commune en fonction d'un code postal inscrit.
Par exemple, si je rentre 80110 dans une cellule, j'aimerais obtenir dans la cellule d'à côté une liste déroulante avec tous les noms de communes appartenant à ce code postal ; ensuite si je rentre 80112, je souhaiterais obtenir dans la cellule d'à coté l'unique nom de commune qui appartient à cette commune ; ensuite une autre liste déroulante avec les communes appartenant au code postal 80120, etc...
Quelqu'un serait-il susceptible de m'aider ?
Par avance, merci.
A voir également:
- Plusieurs listes déroulantes dans une fonction SI
- Fonction si et - Guide
- Créer une liste déroulante excel - Guide
- Listes déroulantes en cascade excel - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
8 réponses
Bonjour,
un exemple (VBA, pas de formule) a modifier, ici entree du nom de commune:
https://www.cjoint.com/c/EDbjIsRHcvv
un exemple (VBA, pas de formule) a modifier, ici entree du nom de commune:
https://www.cjoint.com/c/EDbjIsRHcvv
Re,
Si vous ne voulez pas de programmation VBA, l'exemple de
Boisgontierjacques 1 avril 2015 à 09:30
vous conviendrait si pas plus de 10000 communes
Si vous ne voulez pas de programmation VBA, l'exemple de
Boisgontierjacques 1 avril 2015 à 09:30
vous conviendrait si pas plus de 10000 communes
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'aime beaucoup l'exemple de Boisgontierjacques.
Comme précisé, dans mon image, j'aurais aimé ajouter une fonction SI avec des listes déroulantes en valeur VRAI et FAUX.
De façon à inscrire au clavier le code postal et que celui-ci corresponde soit à une liste déroulante (dans le cas ou il y a plusieurs communes) soit à une unique commune (appartenant au code postal inscrit)
Excuser-moi, qu'est ce qu'une programmation VBA ?
Par avance, merci.
Comme précisé, dans mon image, j'aurais aimé ajouter une fonction SI avec des listes déroulantes en valeur VRAI et FAUX.
De façon à inscrire au clavier le code postal et que celui-ci corresponde soit à une liste déroulante (dans le cas ou il y a plusieurs communes) soit à une unique commune (appartenant au code postal inscrit)
Excuser-moi, qu'est ce qu'une programmation VBA ?
Par avance, merci.
Choix de la ville si plusieurs villes pour un CP
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVCodepostalvilles.xls
Jacques Boisgontier
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVCodepostalvilles.xls
Jacques Boisgontier
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" And Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Empty
n = Application.CountIf([CP], Target)
Select Case n
Case 1
Target.Offset(0, 1) = [CP].Find(Target, LookAt:=xlWhole).Offset(0, 1)
Target.Offset(0, 2) = [CP].Find(Target, LookAt:=xlWhole).Offset(0, 2)
Case Is > 1
Target.Offset(0, 1).Select
SendKeys "%{down}"
End Select
Application.EnableEvents = True
End If
If Target.Address = "$B$2" And Target.Count = 1 Then
Target.Offset(0, 1) = [ville].Find(Target, LookAt:=xlWhole).Offset(0, 1)
End If
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVCodepostalvilles.xls
Jacques Boisgontier
If Target.Address = "$A$2" And Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Empty
n = Application.CountIf([CP], Target)
Select Case n
Case 1
Target.Offset(0, 1) = [CP].Find(Target, LookAt:=xlWhole).Offset(0, 1)
Target.Offset(0, 2) = [CP].Find(Target, LookAt:=xlWhole).Offset(0, 2)
Case Is > 1
Target.Offset(0, 1).Select
SendKeys "%{down}"
End Select
Application.EnableEvents = True
End If
If Target.Address = "$B$2" And Target.Count = 1 Then
Target.Offset(0, 1) = [ville].Find(Target, LookAt:=xlWhole).Offset(0, 1)
End If
End Sub
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVCodepostalvilles.xls
Jacques Boisgontier