XL 2016 formule multiplier 1 cellule

M12 à dit:

Bonjour

A tester

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("h9:h10"))

    If Not Target Is Nothing Then
        Application.EnableEvents = False
            For Each Target In Target 'si entrées/effacements multiples
                If IsNumeric(CStr(Target)) Then Target = Target * 1.5
                    Range("K10") = Range("K10") * 1.3
                    Range("K11") = Range("K11") * 2
            Next
        Application.EnableEvents = True
    End If
End Sub

Cliquez pour agrandir...

M12 à dit:

Re,

Développe un peu cette demande
je multiplie 2 cellules par 1.5 (OK
et je voudrais multiplier 2 autres cellules
K10 par 1.3 et K11 par 2
K10 et K11 ont quelle valeur, celle de leurs propres cellules ou alors ...,

Cliquez pour agrandir...