Bouton + macro de calcul de cellules entres elles

[havopti]

Salut à tous j'ai une nouvelle question

J'ai créer un tableau sur le fichier joint

Sur excel aucun problème par contre je n'arrive pas à le mettre en place avec des macros
Je m'explique, lorsque je clique sur mon bouton et que j'ai mit une valeur dans ma cellule en vert ( à déduire ) je voudrais que cela modifie ma colonne X'. La formule multiplie le poids de chacun de mes prix X sur le total X ( et pas tout mon total ) par la valeur à déduire auquel j'ajoute l'ancienne valeur X.
C'est pas très compliqué mais je ne trouve pas les formules de macro pour multiplier, diviser et additionner des cellules entres elles

edit j'ai réussi a faire la macro manuellement pour le moment
sauf que j'ai que chose comme 1500 lignes a modifier

Sub Ajout()
Range("F4").Value = Range("C4").Value + Range("C4").Value / Range("C11").Value * Range("E13").Value
Range("F5").Value = Range("C5").Value + Range("C5").Value / Range("C11").Value * Range("E13").Value
End Sub

ce n'est pas possible d'automatiser tous ca? en disant de rajouter + 1 à mes 3 premiers Range

 

[Efgé]

Re : Bouton + macro de calcul de cellules entres elles

Bonjour havopti
Avec ce que j'ai compris.

Sub test()
'Avec le range F4:F11 A adapter
With Sheets("Feuil1").Range("F4:F11")
    'On colle la formule (elle va s'incrémenter toute seule)
    'Il fau mettre la formule valide dans la première cellule de la plage
    .FormulaLocal = "=C4/$C$11*$E$13+C4"
    'On peux ne garder que les valeurs
    'en écrasant les formules
    .Value = .Value
End With
End Sub

Cordialement

 

[Dull]

Re : Bouton + macro de calcul de cellules entres elles

Salut havopti, le Forum

Peut-être comme cela si j'ai bien compris pour les lignes de 4 à 10 à modifier éventuellement

Sub Ajout()
For i = 4 To 10
    Cells(i, 6) = Cells(i, 3) + Cells(i, 3) / Cells(11, 3) * Cells(13, 5)
Next i
End Sub

EDITION: Salut FG

Bonne Journée

 

[havopti]

Re : Bouton + macro de calcul de cellules entres elles

merci beaucoup a vous 2 par contre pourquoi

Sub test()
'Avec le range F4:F11 A adapter
With Sheets("Feuil1").Range("F4:F11")

F11 et pas F10?

 

[Efgé]

Re : Bouton + macro de calcul de cellules entres elles

Re havopti, Bonjour Dull
F10; F11; F10000 c'est toi qui choisi (Comme préciser A adapter)
Cordialement