Liste déroulante

[gourdin]

Bonjour,

En cliquant dans une cellule, une liste déroulante (créée avec le menu Donnée/Validation/Liste) apparait.
Je souhaiterai qu'après avoir cliquer sur une donnée de cette liste une autre donnée apparaisse dans cette cellule.

Je ne suis pas certain du tout d'avoir été clair, c'est pourquoi je joins un exemple simplifié.

Merci

 

[Compte Supprimé 979]

Re : Liste déroulante

Salut Gourdin,

Un petit exemple ci-joint en réupérant la valeur de la cellule par VBA

A+

 

[skoobi]

Re : Liste déroulante

Bonsoir gourdin,
salut Bruno 🙂, plus rapide que moi mais on a eu la même idée 😉:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "D2" And Target.Value <> "" And Len(Target.Value) > 5 Then Target.Value = Right(Target.Value, Len(Target.Value) - 5)
Application.EnableEvents = True

End Sub

Par formule, je pense pas que c'est faisable mais attendons de voir...

Bonne soirée à vous.

 

[gourdin]

Re : Liste déroulante

Merci

Celà fonctionne bien mais dans mon document original, il ya de nombreuses cellules (dans une même colonne) concernées par la liste déroulante (plus de 300).

Je ne sais si celà va fonctionner dans ce cas car la macro, dans l'exemple, cible uniquement la cellule D2.

 

[skoobi]

Re : Liste déroulante

Re,

il est tout à fait possible de "cibler" une plage de cellule.
Par exemple, pour D2:d10, remplace:

Target.Address(0, 0) = "D2"

par

Not Intersect(Target, [D2:D10]) Is Nothing

 

[gourdin]

Re : Liste déroulante

J'ai essayé de remplacer mais celà ne fonctionne pas.

Merci de votre aide sur le fichier joint (avec le code original à modifier)

 

[gourdin]

Re : Liste déroulante

OUPS !

J'ai finalement réussià changer le code comme indiqué

Merci beaucoup