Appliquer une formule à un ensemble de cellules

[fenec]

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]

Re : Appliquer une formule à un ensemble de cellules

Bonsoir,

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

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]

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]

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]

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]

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:

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

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

 

[Theze]

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 :

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