formule multiplier plusieurs cellules Résolu

Question

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>

Gyrus · Answer

Bonjour,

Tu dis vouloir multiplier K10 par 1.3 et K11 par 2, mais tu ne dis pas quel est l'évènement qui va provoquer cette opération.
Est-ce la modification d'une valeur dans  H9:H10 qui va déclencher la procédure ?

A+

Gyrus · Answer

Bonjour,

Essaie comme cela :
Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Count > 1 Then Exit Sub    Application.EnableEvents = False    If IsNumeric(Target.Value) Then        Select Case Target.Address            Case "$H$9": Target = Target * 1.5            Case "$H$10": Target = Target * 1.5            Case "$K$10": Target = Target * 1.3            Case "$K$11": Target = Target * 2        End Select    End If    Application.EnableEvents = TrueEnd Sub
A+

Formule multiplier plusieurs cellules

2 réponses

Discussions similaires

Newsletters