Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
feuille "classés"
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la feuille "classés"
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:eO9U6BA9DHA.3880@TK2MSFTNGP11.phx.gbl...
Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
feuille "classés"
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la feuille "classés"
Une solution, copier la ligne sur place en valeur, la déplacer et la supprimer :
Sub Suppr() a = ActiveCell.Row Cells(a, 1).EntireRow.Copy Cells(a, 1).EntireRow.PasteSpecial xlPasteValues Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End (xlUp)(2) Cells(a, 1).EntireRow.Delete End Sub
Camille
-----Message d'origine----- Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Une solution, copier la ligne sur place en valeur, la
déplacer et la supprimer :
Sub Suppr()
a = ActiveCell.Row
Cells(a, 1).EntireRow.Copy
Cells(a, 1).EntireRow.PasteSpecial xlPasteValues
Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End
(xlUp)(2)
Cells(a, 1).EntireRow.Delete
End Sub
Camille
-----Message d'origine-----
Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une
autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une
solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle
en valeur sur la
Une solution, copier la ligne sur place en valeur, la déplacer et la supprimer :
Sub Suppr() a = ActiveCell.Row Cells(a, 1).EntireRow.Copy Cells(a, 1).EntireRow.PasteSpecial xlPasteValues Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End (xlUp)(2) Cells(a, 1).EntireRow.Delete End Sub
Camille
-----Message d'origine----- Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Bonjour Titus; Par exemple, pour la ligne 1: Sheets("tableau").Rows("1:1").Cut Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown Application.CutCopyMode = False MP
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la feuille "classés"
Bonjour Titus;
Par exemple, pour la ligne 1:
Sheets("tableau").Rows("1:1").Cut
Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown
Application.CutCopyMode = False
MP
"Titus" <Titus@noproblemo.fr> a écrit dans le message de
news:eO9U6BA9DHA.3880@TK2MSFTNGP11.phx.gbl...
Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
feuille "classés"
Bonjour Titus; Par exemple, pour la ligne 1: Sheets("tableau").Rows("1:1").Cut Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown Application.CutCopyMode = False MP
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la feuille "classés"
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Merci Camille Cela fonctionne très bien, mais me supprime a chaque fois une ligne, je souhaiterai que la ligne soit seulement effacer, et faire un tri par date à l'issue Titus
"Ellimac" a écrit dans le message de news:110cc01c3f46b$e13d8810$ Bonjour,
Une solution, copier la ligne sur place en valeur, la déplacer et la supprimer :
Sub Suppr() a = ActiveCell.Row Cells(a, 1).EntireRow.Copy Cells(a, 1).EntireRow.PasteSpecial xlPasteValues Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End (xlUp)(2) Cells(a, 1).EntireRow.Delete End Sub
Camille
-----Message d'origine----- Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Merci Camille
Cela fonctionne très bien, mais me supprime a chaque fois une ligne, je
souhaiterai que la ligne soit seulement effacer, et faire un tri par date à
l'issue
Titus
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:110cc01c3f46b$e13d8810$a601280a@phx.gbl...
Bonjour,
Une solution, copier la ligne sur place en valeur, la
déplacer et la supprimer :
Sub Suppr()
a = ActiveCell.Row
Cells(a, 1).EntireRow.Copy
Cells(a, 1).EntireRow.PasteSpecial xlPasteValues
Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End
(xlUp)(2)
Cells(a, 1).EntireRow.Delete
End Sub
Camille
-----Message d'origine-----
Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une
autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une
solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle
en valeur sur la
Merci Camille Cela fonctionne très bien, mais me supprime a chaque fois une ligne, je souhaiterai que la ligne soit seulement effacer, et faire un tri par date à l'issue Titus
"Ellimac" a écrit dans le message de news:110cc01c3f46b$e13d8810$ Bonjour,
Une solution, copier la ligne sur place en valeur, la déplacer et la supprimer :
Sub Suppr() a = ActiveCell.Row Cells(a, 1).EntireRow.Copy Cells(a, 1).EntireRow.PasteSpecial xlPasteValues Cells(a, 1).EntireRow.Cut Sheets(2).Range("a65000").End (xlUp)(2) Cells(a, 1).EntireRow.Delete End Sub
Camille
-----Message d'origine----- Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
Bonjour Titus; Par exemple, pour la ligne 1: Sheets("tableau").Rows("1:1").Cut Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown Application.CutCopyMode = False MP
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:uKcrBtH9DHA.2480@TK2MSFTNGP10.phx.gbl...
Bonjour Titus;
Par exemple, pour la ligne 1:
Sheets("tableau").Rows("1:1").Cut
Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown
Application.CutCopyMode = False
MP
"Titus" <Titus@noproblemo.fr> a écrit dans le message de
news:eO9U6BA9DHA.3880@TK2MSFTNGP11.phx.gbl...
Bonsoir,
j'ai un tableau classique, j'ai des données de A:E
Je désire copier un enregistrement d'une feuille à une autre avec un
bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui
supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur
la
Bonjour Titus; Par exemple, pour la ligne 1: Sheets("tableau").Rows("1:1").Cut Sheets("classés").Range("A65536").End(xlUp)(2).Insert Shift:=xlDown Application.CutCopyMode = False MP
"Titus" a écrit dans le message de news:
Bonsoir, j'ai un tableau classique, j'ai des données de A:E Je désire copier un enregistrement d'une feuille à une autre avec un bouton
macro. J'ai le début de ma proc, mais, je cherche une solution qui supprime
l'enregistrement de la feuille "tableau" et qui le colle en valeur sur la
