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