Formule multiplier plusieurs cellules [Résolu/Fermé]

guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention - 23 nov. 2016 à 11:23 - Dernière réponse : guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention
- 26 nov. 2016 à 13:48
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>
Afficher la suite 
315Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention

6 réponses

Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 23 nov. 2016 à 11:39
0
Utile
3
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+
guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention - 23 nov. 2016 à 18:06
Bonjour Gyrus,

cette formule me multiplie H9 etH10 dés que je rentre un chiffre ex: si H9= 10 automatiquement il le multiplie par 1.5
Donc H9:H10 je dois les multiplier par le même nombre, mais K10 et K11
par 1.3 et 2 cela reste toujours des valeur numerique

Merci

Bien à vous
Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention > guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention - 23 nov. 2016 à 18:28
Tu ne réponds pas à ma question.
Est-ce que :
- la modification d'une valeur dans H9:H10 provoque la multiplication dans K10 et K11,
- la modification d'une valeur dans K10 provoque la multiplication dans K10,
- la modification d'une valeur dans K11 provoque la multiplication dans K11,
- la modification d'une valeur dans K10 ou K11 provoque la multiplication dans K10 et K11,
- ou ????

A+
guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention - 24 nov. 2016 à 11:53
Bonjour,
désolé, je mets une valeur dans K10 qui se multiplie par 1.3 et une autre valeur dans K11 qui se multiplie par 2.

Ex: en K10 je mets 10 avec multiplication donne 13

merci.

Bien à vous
Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 24 nov. 2016 à 12:39
0
Utile
1
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 = True
End Sub

A+
guismo33 315 Messages postés samedi 7 décembre 2013Date d'inscription 2 octobre 2017 Dernière intervention - 26 nov. 2016 à 13:48
Bonjour Gyrus,

Yes, merci , cela fonctionne un grand merci encore.

bon week

Bien à vous