Discussion :

[Godzestla]

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

[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!

[Godzestla]

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 :

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

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

[Godzestla]

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

Code :

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

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 :

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

[drakkar_agfa]

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

et la deuxième, j'y travaille!

Edit: Grilled!

[drakkar_agfa]

Essais pour le copier coller sans Select

Code :

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

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