Liste déroulante et affichage différent

[maxiou]

Bonjour !

Premier message sur ce forum qui m'a aidé pas mal de fois 🙂
Mais cette fois je bloque.

Je cherche à faire une liste déroulante à l'aide de l'outil Données > Validation > Liste. Jusque là tout va bien.

Mais je me demandais s'il était possible qu'en fonction du choix, la case affiche quelque chose de différent.

Concrètement, j'ai ma liste avec les choix suivants :
1. Envoyé
2. BDC reçu
3. Clos
Je voudrais qu'une fois que j'ai choisi 1. Envoyé, la case n'affiche que "1".

Est-ce que vous pensez que c'est possible ?

Merci !😉

 

[VDAVID]

Re : Liste déroulante et affichage différent

Bonjour,
Dans le code VBA de ta feuille, tu peux placer:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Value = Left(Range("A1").Value, 1)
Application.EnableEvents = True
Exit Sub
End If
End Sub

En remplaçant A1 par la cellule où se trouve ta liste.
Bonne soirée !

EDIT: Correction bouclage

 

[job75]

Re : Liste déroulante et affichage différent

Bonjour maxiou, VDAVID,

@ VDAVID : bouclage assuré. Pour l'éviter ajouter un test ou des Application.EnableEvents...

Cette macro en fait suffit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1]) > 1 Then [A1] = Left([A1], 1)
End Sub

A+

 

[VDAVID]

Re : Liste déroulante et affichage différent

Bonsoir Job75,
En effet rajouter les Application.EnableEvents est extrêmement judicieux, j'ai éditer mon message (Même si ton code est plus simple au final) !
Merci de l'avoir rappeler 🙂
Bonne soirée