Calcul direct dans une cellule

Bonjour

je voudrais que le calcul se fasse automatiquement dans une cellule en rentrant une valeur. En rentrant 10, je voudrais que le résultat de 10 * cellule A1 soit 30.

UN GROS MERCI

Bonjour,

A tester

Bonjour,

Code à insérer dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Application.EnableEvents = False
    'si colonne C, ligne comprises entre 3 et 14 :
    If Target.Column = 3 And Target.Row > 2 And Target.Row < 15 Then
        Target.Value2 = Target.Value2 * Range("A1").Value2
    End If
Fin:
Application.EnableEvents = True
End Sub

Bonjour,

Pour le principe avec une procédure évènementielle.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        Application.EnableEvents = False
        Target.Value = Target.Value * Me.Cells(1, 1).Value
        Application.EnableEvents = True
    End If
End Sub

MERCI A TOUS

cela fonctionne très bien

Cordialement