Microsoft 365 liste deroulante

[mart9395]

Bonjour

Quelqu'un pourrait m'aider pour une liste déroulante.
J'ai une liste de pays AD | Andorra que je souhaiterais garder dans la liste déroulante et quand on sélectionne le pays il faudrait que le code AD soit seulement mis dans la cellule.
Je ne sais pas si c'est assez clair

Merci de vos retours

 

[mart9395]

Mon fichier des données est dans le même fichier mais dans un onglet différent, ce sera mon fichier final
Si vous pouvez m'aider ce serait génial car depuis ce matin c'est galère

Merci

 

[goube]

Re,

Tes fichiers modifiés.
Cordialement.

 

[mart9395]

C'est super merci beaucoup
Bonne journée

 

[CISCO]

Bonjour

Ça doit être faisable en VBA de n'afficher que les deux premiers caractères, alors que la liste déroulante en propose plus...

@ plus

 

[mart9395]

Merci à tous de votre aide
Ca marche.

 

[CISCO]

Bonjour

En cherchant sur le site de Jacques Boisgontier, j'ai trouvé ça. Cf. en pièce jointe, une fois adapté à ton besoin.

@ plus

 

[CISCO]

Rebonjour

Ou encore, en inversant les colonnes...

 

[sylvanu]

Bonjour,
Cisco, c'est faisable en VBA. J'ai proposé la solution en post #5. Simple et efficace.
Mais la solution a été rejeté par Mart. Elle répondait pourtant strictement à son besoin.

 

[mart9395]

Bonjour,
Cisco, c'est faisable en VBA. J'ai proposé la solution en post #5. Simple et efficace.
Mais la solution a été rejeté par Mart. Elle répondait pourtant strictement à son besoin.

Je n'ais pas rejeté mais je ne sais pas le faire comme je disais je ne suis pas calée en Excel j'ai essayé mais les codes VBA c'est compliqué

 

[CISCO]

Bonjour à tous, bonjour Sylvanu

Bonjour,
Cisco, c'est faisable en VBA. J'ai proposé la solution en post #5. Simple et efficace.
...

Effectivement. Simple et efficace.

@ mart9395.

Sur le fichier proposé par Sylvanu : --> Développeur --> VisualBasic et tu obtiens le texte de la macro dans la feuille Feuil1 (Worksheet)

If Target.Row = 6 And Target.Column = 7 Then

correspond à la cellule G6 (ligne 6, colonne 7), autrement dit, la macro ne sera appliquée qu'à cette cellule.

Cells(Target.Row, Target.Column) = Left(Target.Value, 2)

Cette cellule reçoit les 2 caractères du texte mis dedans précédemment.

Qu'est-ce que tu ne comprends pas ? Qu'est-ce que tu veux faire exactement ?

@ plus