XL 2016 copier/coller

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2020

• #2

Bonjour Darkv,
Utilisez cette syntaxe qui est plus simple :

VB:

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 ?

 

Vote positif 0 Vote négatif

D

Darkv59

XLDnaute Nouveau

• 8 Octobre 2020

• #3

sylvanu à dit:

Bonjour Darkv,
Utilisez cette syntaxe qui est plus simple :

VB:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Octobre 2020

• #4

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

 

Pièces jointes

• essai_copie Darky.xlsm

  23.1 KB · Affichages: 4

Vote positif 0 Vote négatif

D

Darkv59

XLDnaute Nouveau

• 11 Octobre 2020

• #5

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

 

Pièces jointes

• essai_copie Darky.xlsm

  22 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2020

• #6

Bonjour à tous,

Le code du bouton :

VB:

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+

 

Pièces jointes

• essai_copie Darky(1).xlsm

  21.1 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

D

Darkv59

XLDnaute Nouveau

• 11 Octobre 2020

• #7

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

bon dimanche a tous

Cordialement

Darky

 

Vote positif 0 Vote négatif