Appliquer une formule à un ensemble de cellules

fenec · 18 Octobre 2012

Bonjour le forum

J’ai un tableau dans lequel je dois calculer le prix ht imputé d’une marge bénéficiaire
Je dois donc pour chaque cellule appliquer une formule.

1. Y aurait-il un moyen de rentre cette tâche automatique plutôt que de le faire manuellement ?

2. L’idéal serait qu’au remplissage de mon tableau d’origine la valeur change imputée de la formule afin de ne pas avoir deux tableaux mais la, je ne sais pas si cela est possible.

Cordialement

Fenec

Theze · 18 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Bonsoir,

Une piste, à mettre dans le module de ta feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("C7:F18")) Is Nothing Then
    
        Application.EnableEvents = False
        
        Target = Target * (1 - 35 / 100) * 2 * 1.15
        
        Application.EnableEvents = True
        
    End If
    
End Sub

Hervé.

Victor21 · 18 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Bonjour, fenec, Theze.

Entrez 1.495 dans une cellule quelconque. Edition, copier.
Sélectionnez C7: F18. Edition, collage spécial, multplcation.
🙂

fenec · 18 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Re et bonjour Theze et Victor21

Merci pour votre réactivité sur mon fichier exemple vos solutions fonctionnent me reste plus qu'a testé sur mon fichier

Victor21, pourrais-tu m'expliquer s'il te plait comment tu viens à dire que ma formule correspond à 1.495 car la j'aimerais comprendre

A+

Victor21 · 18 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Re,

Victor21, pourrais-tu m'expliquer s'il te plait comment tu viens à dire que ma formule correspond à 1.495 car la j'aimerais comprendre

C'est, sauf erreur de ma part, tout simplement le résultat de (1-35/100)*2*1.15
🙂

fenec · 18 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Re,

Merci Victor 21 que je suis bête

Par contre je rencontre un soucis avec le code de Theze

je m'explique :

si je sélectionne la plage ,clic droit, effacer le contenu ca bug sur:

Code:

Target = Target * (1 - 35 / 100) * 2 * 1.15

et part conséquent je ne peux plus entrer d'autre valeur😡

Theze · 19 Octobre 2012

Re : Appliquer une formule à un ensemble de cellules

Bonjour,

Remplace le code précédant par celui ci-dessous, il y a deux lignes de contrôle :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("C7:F18")) Is Nothing Then
    
        If Target.Cells.Count <> 1 Then Exit Sub
        If Target = "" Then Exit Sub
        
        Application.EnableEvents = False
        
        Target = Target * (1 - 35 / 100) * 2 * 1.15
        
        Application.EnableEvents = True
        
    End If
    
End Sub

Hervé.

Appliquer une formule à un ensemble de cellules

fenec

XLDnaute Impliqué

Pièces jointes

Theze

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Victor21

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Theze

XLDnaute Occasionnel

Discussions similaires

Appliquer une formule à un ensemble de cellules

fenec

XLDnaute Impliqué

Pièces jointes

Theze

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Victor21

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Theze

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency