Copier coller valeur automatique

[mcj1997]

Bonjour,

Quelle macro faire afin que les résultats que j'ai sur une ligne exemple ligne 1 de A à K passe sur la ligne 2 ?

Merci d'avance,

 

[PascalXLD]

Re : Copier coller valeur automatique

Bonjour

Tu pourrais préciser STP

 

[mcj1997]

Re : Copier coller valeur automatique

Bonjour

Tu pourrais préciser STP

Le résultat en A1 est copié en A2, le résulat en B1 est copié en B2....... les formules en A1, B1, C1 .... ne changent pas.

merci

 

[PascalXLD]

Re : Copier coller valeur automatique

Re

Dans ce cas là par exemple

for x = 1 to 11
cells(2,x)=cells(1,x).value
next

 

[mcj1997]

Re : Copier coller valeur automatique

Re

Dans ce cas là par exemple

for x = 1 to 11
cells(2,x)=cells(1,x).value
next

Ca ne fonctionne pas,
NB : j'ai demandé pour une ligne, mais je veux adapter la réponse car j'ai plusieurs lignes que je souhaitent copier coller valeur.

Merci

 

[PascalXLD]

Re : Copier coller valeur automatique

RE

euh qu'est-ce qui ne fonctionne pas ?

 

[mcj1997]

Re : Copier coller valeur automatique

RE

euh qu'est-ce qui ne fonctionne pas ?

la macro ne fonctionne pas

 

[PascalXLD]

Re : Copier coller valeur automatique

RE

Excuses moi mais ma macro fonctionne très bien par rapport à ta demande

elle recopie en ligne 2 les résultats de la ligne 1

J'ai fait le test et ça marche

 

[mcj1997]

Re : Copier coller valeur automatique

RE

Excuses moi mais ma macro fonctionne très bien par rapport à ta demande

elle recopie en ligne 2 les résultats de la ligne 1

J'ai fait le test et ça marche

Autant pour moi, OK ça marche
merci

 

[mcj1997]

Re : Copier coller valeur automatique

Autant pour moi, OK ça marche
merci

VOICI UNE PARTIE DE MA MACRO JE VAIS AVOIR BEAUCOUP DE LIGNES A AJOUTER DANS LA REDACTION DE LA MACRO Y-A-T-IL PLUS SIMPLE NOTAMMENT LORSQUE SUR UNE MEME LIGNE IL Y A DES TROUS ?

Sub MACRO()

For x = 2 To 11
Cells(5, x) = Cells(3, x).Value
Next
For x = 13 To 20
Cells(5, x) = Cells(3, x).Value
Next

MERCI D'AVANCE

End Sub

 

[ledzepfred]

Re : Copier coller valeur automatique

pascal,mcj1997,

je comprends pas ta question, un trou c'est une cellule vide donc valeur "", pourquoi tu ne veux pas tranférer cette valeur en ligne 2

Enfin si tu veux recopier les valeurs de ta ligne 1 vers ta ligne 2

essayes ceci

for i= 1 to cells(1,255).end(xltoleft).column
if isempty(cells(1,i))=false then cells(2,i)=cells(1,i)
next

qui recopie les valeurs de toutes les cellules non vides de la ligne 1

 

[mcj1997]

Re : Copier coller valeur automatique

pascal,mcj1997,

je comprends pas ta question, un trou c'est une cellule vide donc valeur "", pourquoi tu ne veux pas tranférer cette valeur en ligne 2

Enfin si tu veux recopier les valeurs de ta ligne 1 vers ta ligne 2

essayes ceci

for i= 1 to cells(1,255).end(xltoleft).column
if isempty(cells(1,i))=false then cells(2,i)=cells(1,i)
next

qui recopie les valeurs de toutes les cellules non vides de la ligne 1

Bonjour,

En fait dans des cellules j'ai des formules pour lesquelles je veux copier les résultats et dans d'autres j'ai du texte que je ne veux pas recopier, j'ai fait une macro qui est très longue pour laquelle j'ai posé une question sur le forum quant à sa simplification le titre de la discussion est "simplifier une macro"

Merci d'avance,