Discussion :

[malouxa]

Bonjour
Je cherche à un peu simplifier et rendre plus rapide l'execution de mes macros. Enfin j'espère que ça les rendrait plus véloces

Après quelques essais je ne suis pas parvenue à m'affranchir du "select" de Range pour pouvoir exécuter la ligne .Formula = "=INDEX...

Voici les lignes où je coince

Code :

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

1
2
Range("AJ" & CStr(addL0Pan)).Select
ActiveCell.Formula = "=INDEX(LINEST(" & addL0PanMatY & ":" & addLendPanMatY & "," & addL0PanMatX & ":" & addLendPanMatX & ",TRUE,TRUE),1,1)"

Avez vous un conseil pour ne faire qu'une ligne?

[aalex_38]

Bonjour,

Comme ça :

Code :

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

Range("AJ" & CStr(addL0Pan)).Formula = "=INDEX(LINEST(" & addL0PanMatY & ":" & addLendPanMatY & "," & addL0PanMatX & ":" & addLendPanMatX & ",TRUE,TRUE),1,1)"

[malouxa]

Bonjour,

Comme ça :

Code :

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

Range("AJ" & CStr(addL0Pan)).Formula = "=INDEX(LINEST(" & addL0PanMatY & ":" & addLendPanMatY & "," & addL0PanMatX & ":" & addLendPanMatX & ",TRUE,TRUE),1,1)"

Merci, ça semble simple et ça marche...
cependant je comprends pas, j'avais commencé par ça sans succès, y devait y avoir d'autres bugs pour que la ligne ne prenne pas

[aalex_38]

Peut être n'étais tu pas sur la bonne feuille, il est possible de préciser :

Code :

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

Worksheets("nomdelafeuiile").Range( ...