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