Discussion :

[Anthony75]

Bonjour à tous les membres,

j'ai un petit problème sur VBA. voilà j'ai une macro qui sert à effectuer de nombreux calculs liés presque à toutes les feuilles du classeur. Je n'ai pas créé cette macro, elle existait avant mon arrivée ds la boite. Le problème c'est que cette macro finalement colle une formule excel avec des Labels pour effectuer les calculs du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
"=IF(('Last Peak'-'Activate Line')*SIGN('Quantity')<=0;
IF('Stock Picking'=$G$36;'Fix Stop Price';
IF('Already Touche TSL'=1;'Fix Stop Price';'Trailing StopPrice'));
IF(('Last Peak'-'TargetPrice')*SIGN(Quantity)>0;ABS(MAX(TargetPrice*SIGN(Quantity);'Trailing StopPrice'*SIGN(Quantity)));'Trailing StopPrice'))"

alors le problème est que les calculs ne s'effectuent pas pour toutes les cases et que certaines affichent "Value!" jusqu'à ce que je click sur la formule et que j'appuie sur entrée!

j'ai essayé de nombreuses options du genre:
calculate, refresh... rien n'y fait.

quelqu'un a-t-il une idée?

Anthony

[Anthony75]

En fait si je pouvais créer un bouton qui actionnerait un code pour recalculer ou rafraichir toutes les ceullules du workbook...

[aalex_38]

As tu essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.EnableCalculation = True
Application.Calculate
Application.ScreenUpdating = True

[Anthony75]

merci j'essaye de suite

Dîtes moi, jme disais créer une macro qui sélectionne chaque cellule et les valides du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
sub test ()
Dim plage_1 as range
dim cell as range
set plage_1 = range(cells(39,7),cells(133,7))
 
for each cell in plage_1
application.sendkeys "{F2}"
application.sendkeys "{enter}"
next 
endsub

j'ai essayé ça ne marche pas pour le moment... peut etre le code déconne-t'il?

[Anthony75]

DSL Aalex ça ne fonctionne pas, je suis bien en mode calcul automatique mais nothing to do. Penses-tu qu'il y aurait un problème sur mon code pour simuler la pression des touches?

merci

[Anthony75]

Bonjour à tous ,

petites précisions, j'ai donc essayé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Worksheets("BFTPosition").Activate
Dim cell As Range
Dim plage_1 As Range
Set plage_1 = Range(Worksheets("BFTPosition").Cells(43, 7), Worksheets("BFTPosition").Cells(145, 7))
 
For Each cell In plage_1
    Application.SendKeys "{F2}", True
    Application.Wait Now + TimeValue("0:00:01")
    Application.SendKeys "{ENTER}", True
    Application.Wait Now + TimeValue("0:00:01")
Next
End Sub

Je ne vois pas franchement où se trouve l'erreur dans ce code. On m'a dit que la fonction Sendkeys fonctionnait mal. Je pense plutôt qu'il doit me manquer une option qqpart.