Copier plusieurs données d'une feuille à une autre

[ergastule]

Bonjour à tous

Je voudrais copier à partir d'une macro plusieurs données d'une feuille à une autre

Ma macro fonctionne déjà avec une donnée avec la syntaxe ci dessous,

Range("B6").Select
Selection.Copy
Sheets("Etude GO améliorée").Select
Range("O17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

mais je voudrais copier deux données

La 2ème donnée à copier se trouve dans la cellule "B8"
à copier dans la cellule "K17" de la feuille "Etude GO améliorée"

Pouvez vous m'aider SVP

Merci d'avance

Cordialement

 

[Victor21]

Re : Copier plusieurs données d'une feuille à une autre

Bonjour, ergastule.

Pouvez vous m'aider SVP

Non... car on ne sait pas dans quelle feuille sont B6 et B8

Mais une recherche un peu plus bas vous aidera.
Et fuyez donc tous ces Select Selection

 

[Paf]

Re : Copier plusieurs données d'une feuille à une autre

Bonjour à tous,

si ça marche pour une, en faisant deux fois en adaptant la deuxième ça devrait marcher?
A+

 

[Victor21]

Re : Copier plusieurs données d'une feuille à une autre

Re,

si vous êtes sur la feuille contenant B6 et B8, essayez :

 Sub macroi()
Sheets("Etude GO améliorée").Range("O17") = Range("B6")
Sheets("Etude GO améliorée").Range("k17") = Range("B8")
End Sub