afficher une valeur dans une cellule si..

Bonjour Sylvain, le Forum,

Je te propose une macro évènementielle attachée à la feuille sur laquelle tu travailes, dont la base serait :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim znSaisie As Range
Set znSaisie = [A1]
If Not Application.Intersect(znSaisie, Range(Target.Address)) Is Nothing Then
If Range(Target.Address).Value = 55 Then [C3] = 500 Else [C3] = ''
End If
End Sub

Tchaô

BenHarber

Bonjour Sylvain, bonjour Benharber,

Deux autres solutions en formules:

* S'il n'y a pas beaucoup de chiffres et si cela concerne peu de cellules:

=CHOISIR(EQUIV(A1;{1;4;55;72;130;200};0);100;200;500;600;700;800)

EQUIV(A1;{1;4;55;72;130;200};0) va rechercher la valeur de A1 dans la matrice de constantes et retourne un index de 1 à 6.

Choisir renvoie la valeur correspondant à l'index (de 100 à 800) soit par exemple 500 si A1=55

* S'il y a beaucoup de valeurs ou plusieurs cellules concernées, il vaut mieux créer un tableau avec les valeurs de A1 et les valeurs correspondantes ex:

De F1à F9 (4, 55, 72...)
De G1 à G9 (100,200...)

Et en C3, la formule: =INDEX(G4:G9;EQUIV(A1;F4:F9;0))

qui renverra la valeur correspondante à la valeur de A1.

Les plages peuvent être nommées pour simplifier les formules et être définies comme variables si des valeurs sont fréquemment ajoutées ou supprimées.

@+

Gael

c'est presque que ça sauf que la valeur en A1 n'est pas entrée manuellement elle s'affiche après avoir cliqué sur un bouton donc la feuille ne détecte pas la valeur en A1 et n'affiche pas la valeur 500 en C3.