XL 2016 copier/coller

[Darkv59]

Bonjour a tous
nouveau sur ce forum et sur la programmation , je cherche a copier les valeurs de g3:g18(changement toute les semaines) de la feuil2
vers la feuil1 en e3 puis la semaine suivante en F3 et ainsi de suite
je m'en remet a vous
d'avance merci
bonne journée et peut être a bientôt

j ai commencé une macro pour copier coller

Darky

 

[sylvanu]

Bonjour Darkv,
Utilisez cette syntaxe qui est plus simple :

Sheets("feuil2").Range("G3:G18").Copy Destination:=Sheets("feuil1").Range("E3:E18")

Pour le reste difficile d'aller plus loin, fournissez un fichier "plus fourni". Que copier et où coller la seconde fois ? et où s'arrête t-on ?

 

[Darkv59]

Bonjour Darkv,
Utilisez cette syntaxe qui est plus simple :

Sheets("feuil2").Range("G3:G18").Copy Destination:=Sheets("feuil1").Range("E3:E18")

Pour le reste difficile d'aller plus loin, fournissez un fichier "plus fourni". Que copier et où coller la seconde fois ? et où s'arrête t-on ?

Bonsoir , merci d'avoir repondu
pour le reste les valeur (en g3:18)de la leuil2 change la semaine suivante et il faudrait quelles se mettent a coté de (e3:e18) de la feuil1et ainsi de suite
cordialement

Darky

 

[Phil69970]

Darky, Sylvain, le forum

Je te propose cela :

Si la solution te satisfait passe la en résolu.

Pour clôturer une demande :
https://www.excel-downloads.com/threads/prefixe-resolu-et-marquer-comme-solution.20029836/

@Phil69970

 

[Darkv59]

bonjour phil
super ca marche impec , a part une petite précision si j'ai pas de valeur dans ma première cellule(mis en jaune dans le fichier joint) la copie s'arrête ( j 'essai de potasser de mon cote)
bon dimanche

darky

 

[job75]

Bonjour à tous,

Le code du bouton :

Private Sub CmdCopie_Click()
Dim col As Integer
col = [MAX((3:18<>"")*COLUMN(3:18))] + 1
If col < 4 Then col = 4
Sheets("feuil2").Range("G3:G18").Copy Cells(3, col)
End Sub

Pas de souci si la cellule en ligne 3 est vide.

A+

 

[Darkv59]

Bonjour , merci a tous de m'avoir repondu cela marche nickel

bon dimanche a tous

Cordialement

Darky