copier coller

[gothc]

bonjour je recherche en vba pour copier coller

liste feuil2 dans le tableau feuil1 en suivant
merci de votre aide
bone soirée [file name=gkl.zip size=5986]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gkl.zip[/file]

 

[porcinet82]

Salut gothc,

Regarde le fichier joint et dis moi si c'est que tu voulais faire.

@+

[file name=gothc.zip size=11651]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gothc.zip[/file]

 

[gothc]

merci pour ton aide

mais je v coller en suivant je v dire par la si janvier complet coller dans fevrier etc
merci pour ton aide

 

[porcinet82]

re,

ok c'est faisable, mais comment est que l'on sais que le moi de janvier est terminé? ya des criteres, par ce que si il n'y en a aps, ca risque d'etre difficile

@+

 

[gothc]

si donnée dans janvier mettre dans février

ou je vous laisse libre la methode
merci pour votre aide

 

[porcinet82]

Salut,

bon je t'ai fais une version un peu plus globale qui fonctionne pour plusieurs colonnes, a toi d'adapter selon tes besoins.

tiens moi au courant

@+

[file name=gothc_V2.zip size=13527]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gothc_V2.zip[/file]

 

[gothc]

merci pour vos reponses

j'ai un petit probleme la macro elle marche bien sauf il me copie les formule dans les cellules je cherche a avoir la valeur
merci a vous pour votre aide

Sub copieréel()

j = 1

For i = 10 To 10
Sheets('Feuil1').Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('feuil3').Select
line1:
Cells(3, j + 13).Select
If ActiveCell.Value = '' Then
ActiveSheet.Paste

Else
Cells(3, j + 14).Select
j = j + 1
GoTo line1
End If
Next i
End Sub

 

[porcinet82]

re,

Essaye de mettre :
Selection.PasteSpecial Paste:=xlValues
à la place de la ligne :
ActiveSheet.Paste
et ca devrait fonctionner

@+