OVH Cloud OVH Cloud

Couper/Coller les valeurs

8 réponses
Avatar
Crel
Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle (valeur) dans
une autre, puis revient dans la 1ère feuille et efface les données qui ont
été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne fonctionne
pas avec l'enregisteur de macros.
Merci beaucoup
Patrick

8 réponses

Avatar
Jacky
Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message news:

Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle (valeur)
dans

une autre, puis revient dans la 1ère feuille et efface les données qui ont
été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne fonctionne
pas avec l'enregisteur de macros.
Merci beaucoup
Patrick





Avatar
Crel
Bonjour, Jacky euh...
En fait, voici ce que je souhaite faire.
Je souhaite couper puis coller les valeurs, il s'agit de collage spécial
valeurs.
Patrick


"Jacky" a écrit dans le message de news:

Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message news:

Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle (valeur)
dans

une autre, puis revient dans la 1ère feuille et efface les données qui
ont


été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick









Avatar
STéphane
bonjour

regarde la méthode pastespecial

ou bien, essaye de mettre en oeuvre des instructions du genre suivant :

sheets("feuil2").range("A1:B10").value=sheets("feuil1").range("A1:B10").valu
e



bye
stephane

"Crel" a écrit dans le message de news:

Bonjour, Jacky euh...
En fait, voici ce que je souhaite faire.
Je souhaite couper puis coller les valeurs, il s'agit de collage spécial
valeurs.
Patrick


"Jacky" a écrit dans le message de news:

Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message
news:



Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle
(valeur)



dans
une autre, puis revient dans la 1ère feuille et efface les données qui
ont


été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick













Avatar
Jacky
Re
Range("A1:A3").Select
Selection.Cut
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("a1:a3")

Je n'arrive pas non plus à faire un collage spécial de valeur avec un cut,
ici les formules sont copiées avec, mais cela efface les premières.
Désolé, mais attendons que certains se réveillent de leur sieste ;o))

Salutations
JJ

"Crel" a écrit dans le message news:

Bonjour, Jacky euh...
En fait, voici ce que je souhaite faire.
Je souhaite couper puis coller les valeurs, il s'agit de collage spécial
valeurs.
Patrick


"Jacky" a écrit dans le message de news:

Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message
news:



Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle
(valeur)



dans
une autre, puis revient dans la 1ère feuille et efface les données qui
ont


été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick













Avatar
Crel
Merci beaucoup Stephane, effectivement, cela peut aussi.
Patrick

"STéphane" a écrit dans le message de news:

bonjour

regarde la méthode pastespecial

ou bien, essaye de mettre en oeuvre des instructions du genre suivant :


sheets("feuil2").range("A1:B10").value=sheets("feuil1").range("A1:B10").valu

e



bye
stephane

"Crel" a écrit dans le message de
news:


Bonjour, Jacky euh...
En fait, voici ce que je souhaite faire.
Je souhaite couper puis coller les valeurs, il s'agit de collage spécial
valeurs.
Patrick


"Jacky" a écrit dans le message de news:

Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message
news:



Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle
(valeur)



dans
une autre, puis revient dans la 1ère feuille et efface les données
qui




ont
été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick

















Avatar
Crel
Merci beaucoup Jacky, c'est très sympa de ta part.
Patrick

"Jacky" a écrit dans le message de news:

Re
Range("A1:A3").Select
Selection.Cut
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("a1:a3")

Je n'arrive pas non plus à faire un collage spécial de valeur avec un cut,
ici les formules sont copiées avec, mais cela efface les premières.
Désolé, mais attendons que certains se réveillent de leur sieste ;o))

Salutations
JJ

"Crel" a écrit dans le message news:

Bonjour, Jacky euh...
En fait, voici ce que je souhaite faire.
Je souhaite couper puis coller les valeurs, il s'agit de collage spécial
valeurs.
Patrick


"Jacky" a écrit dans le message de news:

Salut Patrick

Un exemple avec l'enregistreur de Macro:

Range("A1:A3").Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("B6").Select

Salutations
JJ
"Crel" a écrit dans le message
news:



Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle
(valeur)



dans
une autre, puis revient dans la 1ère feuille et efface les données
qui




ont
été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick

















Avatar
Alain CROS
Bonjour.

Tu peux essayer comme ça.

With [C1:C5]
[Feuil2!A1:A5] = .Value
.Clear
End With

Alain CROS.

"Crel" a écrit dans le message de news:
Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle (valeur) dans
une autre, puis revient dans la 1ère feuille et efface les données qui ont
été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne fonctionne
pas avec l'enregisteur de macros.
Merci beaucoup
Patrick





Avatar
Crel
Merci beaucoup Alain cela fonctionne et m'intéresse beaucoup.
Patrick

"Alain CROS" a écrit dans le message de news:
#TK#
Bonjour.

Tu peux essayer comme ça.

With [C1:C5]
[Feuil2!A1:A5] = .Value
.Clear
End With

Alain CROS.

"Crel" a écrit dans le message de
news:

Bonjour à toutes et tous,
j'ai une proc qui copie les données d'une feuille et les colle (valeur)
dans


une autre, puis revient dans la 1ère feuille et efface les données qui
ont


été copiées
Je souhaite la syntaxe qui coupe et colle les valeurs, cela ne
fonctionne


pas avec l'enregisteur de macros.
Merci beaucoup
Patrick