XL 2016 formule multiplier 1 cellule

[Guismo33]

Bonjour a tous,

voici la formule :
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

Next
Application.EnableEvents = True
End If
End Sub

je multiplie 2 cellules par 1.5 et je voudrais multiplier 2 autres cellules
K10 par 1.3 et K11 par 2
pourriez vous m'aider a reformuler ma formule svp

merci a tous

Bien à vous

 

[M12]

Bonjour

A tester

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

 

[Guismo33]

Bonjour

A tester

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

Bonjour,
merci, mais cela ne fonctionne pas

bien à vous

 

[M12]

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 ...,

 

[Guismo33]

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 ...,

Re,
mes cellules H9, H10 , K10 , K11 sont des valeurs numérique, j'insert une valeur et elle se multiplie automatiquement.

Bien à vous