Re,
Ce que j'ai fait s'appelle une "macro évémentielle" pour laquelle il faut utiliser VBA, l'enregistreur de macros n'étant pas suffisant dans ce cas.
T'expliquer les macros événementielles est long et ardu et demande des connaissances de bases en VBA.
Tu pourras trouver des topos là dessus sur le site de laurent Longre (longre.free.fr je crois)
, sur info-3000.com et d'autres...
Ci dessous une tentative de traduc du patois que je t'ai envoyé:
Private Sub Worksheet_Change(ByVal Target As Range)
'worksheet_change: changement dans une cellule
'si la cellule de l'évènement (target) n'est pas E4 on sort de la macro
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub
'si la valeur dans l'événement est égale à mm alors
If Target.Value = "mm" Then
' la valeur dans "D8.D9" est affectée du nombre 8
Range("D8
9").Value = 8
Else
' sinon on marque 45
Range("D8
9").Value = 45
End If
End Sub
' la propriété par défaut de l'objet "range" est Value; on peut donc se dispenser de l'écrire... Ce que n'aime pas du tout les puristes!
Bon courage
A+
Michel