Conseil pour améliorer ce code

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:

---

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:

---

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:

---

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

---

:aie:

Si tu veux tester sans utiliser tout "le dinosaure", tu peux essayer avec un nouveau classeur et de mettre une formule simple dans n'importe quelle cellule.

Tu verras si ça fonctionne, et quand tout sera OK, tu l'appliques dans ton dinosaure!

Citation:

---

Envoyé par drakkar_agfa

Si tu veux tester sans utiliser tout "le dinosaure", tu peux essayer avec un nouveau classeur et de mettre une formule simple dans n'importe quelle cellule.

Tu verras si ça fonctionne, et quand tout sera OK, tu l'appliques dans ton dinosaure!

---

Pas idiot, mais si tu as un quelconque tuyau, je suis preneur histoire d'être plus efficace (j'avoue être un peu flemard sur ce coup-là).

(aussi pour ce que j'ai rajouté via Edit dans mon post d'origine).

j'ai essayé ceci et ca merde avec type mismatch

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim Facts(12) As Integer Dim Month_id As Integer   Month_id = 3 Facts(3) = 50 Sheets(1).Range("A1").Formula = "=(" + Facts(Month_id) + ")/1000" ' End Sub

---

Ok, j'ai trouvé pour la partie 1. il fallait remplacer les + par des &

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim Facts(12) As Integer Dim Month_id As Integer   Month_id = 3 Facts(3) = 50 Worksheets(1).Range("A1").Formula = "=(" & Facts(Month_id) & ")/1000"   End Sub

---

mais pour la deuxième partie je n'ai vraiement aucune idée :

Code:

---

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

---

:?

Pour la première partie, remplace les + par &

et la deuxième, j'y travaille!

Edit: Grilled!

Essais pour le copier coller sans Select

Code:

---

Sheets("Feuil1").Range("A1").Copy Sheets("Feuil1").Range("B1")

---

Citation:

---

Envoyé par drakkar_agfa

Essais pour le copier coller sans Select

Code:

---

Sheets("Feuil1").Range("A1").Copy Sheets("Feuil1").Range("B1")

---

---

Est-ce que cela supporte aussi le paste-special ?

Bonjour,

j'ai trouvé seul....

Code:

---

1 2 3 4

Workbooks(KST_NAME).Sheets("TOOLS").Range("H6").Copy Workbooks(Workbook_Name).Sheets("TOOLS").Range("J24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False

---