Stockage d'un code apres selection dans une liste deroulante

[krona]

Bonjour à tous,

Je suis tout nouveau sur ce forum qui me parait vraiment sympa.

J'aurais une question concernant les listes déroulantes dans Excel.

Je travaille sur la mise en place d'une liste déroulante pour valider une cellule (ca je sais faire avec données/validation). Je souhaiterais que cette validation se fasse sur un intitulé textuel mais qu'un code soit stocké dans la cellule. ex: liste avec "Paris" et est stocké dans la cellule "75000".

Merci d'avance de m'aider à resoudre ce problème.

 

[SergiO]

Re : Stockage d'un code apres selection dans une liste deroulante

Bonjour Krona,

Pourrais-tu nous mettre en pièce jointe un bout de ton fichier STP?

Ca permettra de donner une réponse adaptée à ton problème.

@+

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

Merci pour ta rapidité sergio

Ci-joint un échantillon test de mon fichier.

 

[Hervé]

Re : Stockage d'un code apres selection dans une liste deroulante

bonjour

en piece jointe peut etre une solution dans la limite de ma compréhension.

salut

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

Merci hervé, ca ressemble effectivement à ce que je veux faire. 🙂

par contre, je ne suis pas trés familiarisé avec le VBA. Peux tu m'expliquer comment mettre en oeuvre ce bout de code?

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

En fait j'ai reussi à implementer ce bout de code. Ca va bien me dépanner!

Par contre, je souhaite appliquer ce code à une plage, comment dois je procéder?

Merci d'avance.

 

[Hervé]

Re : Stockage d'un code apres selection dans une liste deroulante

re

en piece jointe le meme code appliqué à ton fichier.

penses bien à nommer ta liste(ici man) et à corriger ce nom dans le code, ici :
Set c = Range("man").Find(Target)

salut

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

Merci pour l'explication Hervé.

Comme je l'expose plus haut, je souhaiterais maintenant pouvoir déclarer l'application de ce code sur une plage de cellule. pouvez vous éclairer ma lanterne?

 

[Hervé]

Re : Stockage d'un code apres selection dans une liste deroulante

re

euh...je veux bien eclairer ta lanterne, mais, il va falloir eclairer la mienne avant 🙂

en somme, j'ai pas compris ta demande.

salut

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

En fait je veux simplement que ce dispositif ne s'applique plus seulement sur la cellule F12 mais aussi de F13:F25 par exemple.
J'ai essayé de modifer le code mais mes talents de programmeur atteignent trés rapidement (c'est pas faute d'essayer) leurs limites 😀

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

Un petit up pour mon problème: voici le bout de code que j'utilise (merci hervé).

Dim bon As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

If bon = True Then
    bon = False
    Exit Sub
Else
    If Target.Address(0, 0) = "F5" Then
        Set c = Feuil2.Range("liste").Find(Target)
        bon = True
        Target = c.Offset(0, 1)
    End If
End If
End Sub

Je voudrais maintenant que le code s'applique sur les cellules d'une colonne entière et pas seulement sur F5.

Merci d'avance.

 

[krona]

Re : Stockage d'un code apres selection dans une liste deroulante

Bon je suis désolé de reposter encore à la suite (un peu boulet sur les bords)!

En fait, je n'avais point vu qu'hervé m'avait joint un fichier avec tt ce que je demande 🙄

Maintenant ca a l'air de marcher nikel

Un grand merci à hervé donc qui m'a reconcilié avec VBA 😛