je suis en train de revoir une application grosse et mal conçue (au niveau de la qualité du code et de la rapidité).


je voudrais enlever les select de ce code mais dans certains cas comme celui-ci, je ne sais pas quoi faire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
           Sheets(Sheet_name).Select
           Range(temp_rid).Select
           ActiveCell.formula = "=(" + Facts(Month_id) + ")/1000"
idéalement je voudrais une instruction mais je sais pas si le code suivant fonctionnera ou pas ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
worksheets(Sheet_name).Range(temp_rid).formula = "=(" + Facts(Month_id) + ")/1000"
(désolé si je ne teste pas, cette appli est un dinosaure (créé par moi, mon premier dinosaure)et est vitale).

merci d'avance pour le tuyau.

Edit _______

Et aussi ce code-ci en propre et court sans select.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
'Get Accounting database Date&Time from KSTXXX.XLS)
Windows(KST_NAME).Activate
Sheets("TOOLS").Select
Range("H6").Select
Selection.Copy
Windows(Workbook_Name).Activate
Sheets("TOOLS").Select
Range("J24").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False