Copier vers une autre feuille sans selectionner la feuille

[bbobb]

Bonjour à tous,
Sans doute un sujet maintes fois évoqué, mais je n'ai pas trouvé....
Je cherche à copier une plage de cellule selectionnée sur une feuille vers une autre feuille sans selectionner l'autre feuille.
Ci dessous le code avec selection...

    Range("B4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Feuil3").Select
    Cells(4, col_date).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Merci d'avance pour votre aide
Bonne journée
Bbobb

 

[chris]

Re : Copier vers une autre feuille sans selectionner la feuille

Bonjour

Range("B4").CurrentRegion.Copy
    Sheets("Feuil3").Cells(4, col_date).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[GIBI]

Re : Copier vers une autre feuille sans selectionner la feuille

Bonjour,


Sheets("Feuil3").Cells(4, col_date).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


GIBI

 

[bbobb]

Re : Copier vers une autre feuille sans selectionner la feuille

Merci beaucoup tout les deux.

bonne journée
Bbobb