Bouton + macro de calcul de cellules entres elles

havopti · 30 Avril 2013

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

Code:

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é · 30 Avril 2013

Re : Bouton + macro de calcul de cellules entres elles

Bonjour havopti
Avec ce que j'ai compris.

VB:

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 · 30 Avril 2013

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

Code:

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 · 30 Avril 2013

Re : Bouton + macro de calcul de cellules entres elles

merci beaucoup a vous 2 par contre pourquoi

VB:

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

F11 et pas F10?

Efgé · 30 Avril 2013

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

Bouton + macro de calcul de cellules entres elles

havopti

XLDnaute Nouveau

Pièces jointes

Efgé

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

havopti

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Discussions similaires