Signaler

Formule multiplier plusieurs cellules [Résolu]

Posez votre question guismo33 308Messages postés samedi 7 décembre 2013Date d'inscription 26 novembre 2016 Dernière intervention - Dernière réponse le 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 
Utile
+0
moins plus
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 308Messages postés samedi 7 décembre 2013Date d'inscription 26 novembre 2016 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
Répondre
Gyrus 3298Messages postés samedi 20 juillet 2013Date d'inscription 26 novembre 2016 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+
Répondre
guismo33 308Messages postés samedi 7 décembre 2013Date d'inscription 26 novembre 2016 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
Répondre
Ajouter un commentaire
Utile
+0
moins plus
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 308Messages postés samedi 7 décembre 2013Date d'inscription 26 novembre 2016 Dernière intervention - 26 nov. 2016 à 13:48
Bonjour Gyrus,

Yes, merci , cela fonctionne un grand merci encore.

bon week

Bien à vous
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !