• Initiateur de la discussion Initiateur de la discussion but'ch
  • 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 !

B

but'ch

Guest
Bonjour,
Apres avoir regardé un peu partout n'ai pas trouvé réponse à ma question.
Je souhaite réailiser une liste déroulante (je l'ai réalisé avec liste validation).

données d'entrée sur une feuille
Une colonne "ref"
Une colonne "description"

Le résultat attendu est le suivant :
Dans ma liste déroulante voir "description", mais apres selection je souhaite avoir dans ma cellule la "ref"

En espérant que ce soit réalisable assez simplement
Merci d'avance pour votre aide
butch
 
Re : liste déroulante

merci pour aide aussi rapide
même ce post est interressant ce pas exactement ce que je recherche.
Je souhaite juste que ce qui apparait dans ma liste ne soit pas ce qui apparait dans ma cellule apres selection.Mais par exmeple ce qui est dans la colonne juste avan celle qui sert a créer ma liste déroulante.
Pas toujours facille de se faire comprendre
je joint fichier exemple

@+
 

Pièces jointes

Re : liste déroulante

Re

Oui je sais pas très Glop la double sélection

Suffit de trouver les codes à envoyer par SendKeys pour ouvrir la liste, choisir le 1er nom et ensuite valider

Moi pas connaitre

Avis aux amateurs et spécialistes

Je suis preneur
 
Re : liste déroulante

J'ai oublié:

-Créer un nom de champ avec 1 colonne:

Ref =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1;1)

-Créer le menu avec Données/Validation/Liste

-Modifier le nom de champ avec 2 colonnes:

Ref =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1;2)

Pour empçecher le choix de la description:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
p = Application.Match(Target, Application.Index([Ref], , 1), 0)
If IsError(p) Then
Application.EnableEvents = False
Target = [mémo]
Application.EnableEvents = True
Else
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End If
End Sub

JB
 
- 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

Réponses
0
Affichages
188
Retour