Formule multiplier plusieurs cellules

Résolu/Fermé

Valeur

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 23 nov. 2016 à 11:23
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 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>

A voir également:

Excel multiplier toutes les cellules par une valeur
Formule excel pour additionner plusieurs cellules - Guide
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellules excel - Guide
Déplacer une colonne excel - Guide

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
23 nov. 2016 à 11:39

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 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
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 Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021
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 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
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éponse 2 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
24 nov. 2016 à 12:39

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 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
26 nov. 2016 à 13:48

Bonjour Gyrus,

Yes, merci , cela fonctionne un grand merci encore.

bon week

Bien à vous

Discussions similaires

Renommer automatiquement une feuille d'après une cellule

valeur derniere cellule dans une colonne

VBA Excel 2013 : Selectionner les cellules contenant "unedonnée"

Comment affecter une valeur à une cellule contenant du texte

[EXCEL] contenu d'une cellule dans une formule

Calculer le nombre de cellule contenant un texte