Recopie de données

[abc]

Bonjour,
Malgré les recherhes je n y arrive.
Un peu d'aide me ferait du bien
Pourquoi le code ne fonctionne t il pas ?
Merci d'avance
A +

 

[Cousinhub]

Re : Recopie de données

Bonjour,
en lisant entre les lignes, j'ai cru comprendre que tu voulais copier les cellules de la feuille 1 ("A1,A3,A5,A7") vers la première ligne non vide de la feuille 3, avec transposition...

Si c'est cela, tu peux essayer :

Sub Macro1()
    Range("A1,A3,A5,A7").Copy
    Sheets("Feuil3").Range("A" & [A1].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Si ce n'est pas cela, explique ce qui ne fonctionne pas (tout fonctionne chez moi), ou ce que tu désires obtenir

 

[herve62]

Re : Recopie de données

Bonjour
Que veux tu faire exactement ??
Donne un peu d'explications , cela ira mieux

PS : je viens juste de voir que Bhbh répond aussi !!!

 

[abc]

Re : Recopie de données

Bonjour,
Oui,un peu plus d'explication.
Je désire copier les cellules A1,A3,A5,A7 de la feuille 1 sur la feuille 3 en A1,B1,C1,D1.
Lorsque je fais une nouvelle saisie dans la feuille1 ,les données doivent s'écrires sur la feuille 3 sur la ligne suivante et les garder.
J'ai essayé la formule de bhbh, mais les cellules séletionnées de la feuille 1 restent activées et elles ne s'ajoutent pas a la ligne suivante de la feuille 3.
Je désire garder une trace.
Merci
A +

 

[Cousinhub]

Re : Recopie de données

Re-,

mais les cellules séletionnées de la feuille 1 restent activées

je ne sélectionne aucune cellule...
au pire, tu peux rajouter Application.CutCopyMode = False en fin de code, mais autrement, la macro fait ce que tu désires :

Elle copie les cellules A1,A3,A5,A7 vers la feuille 3, et sur la première ligne vide de cette feuille

 

[abc]

Re : Recopie de données

Bonsoir,
malgré mes tentatives d'adapter le code où j'ai commis l'erreur, cela ne fonctionne pas.
Peux être un problème de version d"excel.
J'ai excel 2003.
A +

 

[Cousinhub]

Re : Recopie de données

RE-,
au temps pour moi....
PS : moi aussi Xl 2003

le code :

Sub Macro1()
    Range("A1,A3,A5,A7").Copy
    Sheets("Feuil3").Range("A" & [COLOR="Red"][A65000][/COLOR].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

En rouge, la modif.....

 

[abc]

Re : Recopie de données

Bonsoir,
D'abord merci pour le suivi ,mais cela ne fonctionne pas .
J'ai beau changer par si par la mais rien a faire.
Une fausse manoeuvre ?
A +

 

[Cousinhub]

Re : Recopie de données

Re-,
on va y arriver...

Sub Macro1()
    Range("A1,A3,A5,A7").Copy
    Sheets("Feuil3").Range("A" & Sheets("Feuil3").[A65000].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Application.CutCopyMode = False
End Sub

 

[abc]

Re : Recopie de données

Bonsoir,
je n'ai jamais eu un doute.
Je suis régulièrement le forum et je n'ai jamais vu que l'on avait pas de solution.
Encore merci.
A +

 

[abc]

Re : Recopie de données

Bonjour,
tout d'abord merci pour l'aide de bhbh.
Dans la feuille 1 en A1,A3,A5,A7 ainsi que les données du tableau sont copiées dans la feuille2 . Jusque la OK.
Dans la feuille 2 A1,A3,A5,A7 se mettent a la derniere ligne vide .
Je souhaiterais quelle suivent le nombre de données du tableau qui peut varié.
Quelles viennent s'nscrire a la hauteur du tableau ou al derniere ligne.
A +

 

[abc]

Re : Recopie de données

Bonjour,
je me permet de relancer ma question.
Quelqu'un a t il une idée,je me suis peux etre mal exprimer.
Merci d'avance
A +

 

[Cousinhub]

Re : Recopie de données

Bonjour,
si j'ai bien compris??
essaie le code suivant

Public Sub Copie()
Sheets("Feuil1").Range("A1,A3,A5,A7").Copy
Sheets("Feuil2").Range("A" & Sheets("Feuil2").[H65000].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
With Sheets(2).Range("H65536").End(xlUp)(2)
Sheets(1).Range("A10").CurrentRegion.Copy
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False
End Sub

 

[abc]

Re : Recopie de données

Bonsoir,
encore merci cela est parfait.
A +