faire les calculs par macro

wilfried_42 à dit:

bonjour amaury

avec un ptit fichier exemple ce serait plus simple; parceque dans ta formule, je ne vois que des remises à blanc et la mise en place de la valeur E3

Cliquez pour agrandir...

sub macro_calc()
dim i as long, nbl as long
nbl = range("A65000").end(xlup).row
for i = 1 to nbl
range("F" & cstr(i)).formulalocal = "=SI('base PDV'!$B3='base PDV'!$A3;" & chr(34) & chr(34) & _
";SI(ET('base PDV'!$B3<>$B$2;'base PDV'!$A3<>$B$2);" & chr(34) & chr(34) & _
";SI('base PDV'!$B3<>$B$2;'base PDV'!$E3;" & chr(34) & chr(34) & ")))"
next i
end sub

Cliquez pour agrandir...

wilfried_42 à dit:

re:

sur 5000 ligne le probleme est que se serait aussi long avec une macro, et la macro serait à relancer à chaque necessité de calcul

le mieux c'est une macro qui mette les formules dans les cellules du style :


j'imagine le colonne F mise à jour
à lier avec un bouton

Cliquez pour agrandir...