Discussion :

[jlgarnier]

Bonjour,

Je souhaite, pour simplifier une saisie, disposer d'une validation par liste de ce type :

A | B
Coût 1 | 10 €
Coût 2 | 20 €
Coût 3 | 30 €

La saisie dans la cellule A10, par exemple, doit faire l'objet d'une validation par liste mais je veux que :
- la liste affiche Coût 1 / Coût 2 / Coût 3
- la sélection de Coût 2 place la valeur 20 € dans la cellule

Avez vous une idée de la façon de programmer ceci ?

Merci d'avance pour toute aide !

Jean-Luc

[Michel_M]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(A10;A1:B3;2;0)

[ouisansdoute]

Bonjour,

Je ne pense pas qu'il soit possible de définir une liste de validation (CoûtX) dans une cellule et que cette cellule prenne ensuite une valeur (montant) qui n'existe pas dans la liste de validation. Par contre la solution de Michel_M fonctionne très bien mais il faut deux cellules : une pour le choix et une pour l'équivalence en €.
Pourquoi ne pas faire directement la liste de validation sur les montants ?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
On récupère la valeur à droite
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Application.EnableEvents = False
    On Error Resume Next
    Target = [Liste].Find(Target, LookAt:=xlWhole).Offset(, 1)
    Application.EnableEvents = True
  End If
End Sub
 
JB

[alsimbad]

attention a ce que la casse soit identique dans la liste de validation et dans le code
le plus simple et de mettre la liste directement dans la case source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
coût 1;coût 2;coût 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("a1").Address Then
Select Case Target
Case "coût 1"
Target = "10 €"
Case "coût 2"
Target = "20 €"
Case "coût 3"
Target = "30 €"
End Select
End If
End Sub

attention également a désactiver les cases des alertes pour les mauvaises saisies dans la validation de données