Ptite question: simplifications d'instruction

Question

Salut,
Je cherche à optimiser mon programme vb, pour cela j'aimerais simplifier plusieurs expressions:
Je voudrait réliaser le copier-coller suivant en une seule (ou le minimum possible) d'instruction 
*******************************************************************
    Sheets("OHS").Select
    Range(Cells(k, 2), Cells(k, nb_col_OHS)).Copy

    Sheets("Résultats de comparaison").Select
    Range(Cells(k, 3), Cells(k, nb_col_OHS + 3)).Select

    ActiveSheet.Paste
************************************************************************
j'ai essayé avec  mais ca marche pas
*************************************************************************
Worksheets("OHS").Range(Cells(k, 2), Cells(k, nb_col_OHS)).Copy
ActiveSheet.Paste Destination:=Worksheets("Résultats de comparaison").Range(Cells(k, 3), Cells(k, nb_col_OHS + 3))
**************************************************************************
existe t il un autre moyen?

Merci de me répondre
@+,Pier0

cs_CanisLupus · Answer

Salut, tu as essay&#233; :

    Sheets("OHS").Range(Cells(k, 2), Cells(k, nb_col_OHS)).Copy
    Sheets("R&#233;sultats de comparaison").Range(Cells(k, 3), Cells(k, nb_col_OHS + 3))..Paste

???

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

pier0 · Answer

Oui, j'essaye de suite.
MAis ca marche pas ca bloque à 

Sheets("OHS").Range(Cells(k, 2), Cells(k, nb_col_OHS)).Copy

Ca me met erreur d'execution 1004.
t'as une solution?
@+, Pier0

Ptite question: simplifications d'instruction

2 réponses

Discussions similaires