Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel besoin d aide

besoin d aide

8 réponses
Avatar
manon81
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma feuille
archive
cette macro m envoie la ligne mais me la supprime sur l autre feuille pouvez
vous m aider
merci d avance
Sub Macro1()
n = 0
Selection.Copy
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp
End Sub
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
manon81
bonjour
si je supprime
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp la ligne est recopier mais sur la feuille
archive alors que je souhaiterais qu elle soit coller sur la feuille
maintenace
merci pour ton aide

Bonjour

Si je dis pas de bêtise , supprime

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

@+Max

"manon81" a écrit dans le message de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma feuille
archive
cette macro m envoie la ligne mais me la supprime sur l autre feuille
pouvez
vous m aider
merci d avance
Sub Macro1()
n = 0
Selection.Copy
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp
End Sub







Avatar
manon81
bonjour et merci pour ton aide
j ai essayer mais si je supprime
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp
la ligne selectionnee est colle sur la feuille archive alors que je
voudrais la coller sur la primere ligne vide de ma feuille maintenance
@+



Bonjour

Si je dis pas de bêtise , supprime

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

@+Max

"manon81" a écrit dans le message de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma feuille
archive
cette macro m envoie la ligne mais me la supprime sur l autre feuille
pouvez
vous m aider
merci d avance
Sub Macro1()
n = 0
Selection.Copy
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp
End Sub







Avatar
lSteph
Bonjour,

??? Il y a contradiction

"manon81" a écrit dans le message de
news:
.....
voudrais la coller sur la primere ligne vide de ma feuille maintenance
alors que

"manon81" a écrit dans le message de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma
feuille
archive
Ta macro , copie, sélectionne, supprime.., colle



(pas forcément tant que de besoin)

Peux tu préciser plus exactement ce que tu souhaites faire. Point de
départ....Arrivée.


Cordialement.

lSteph



Avatar
manon81
Bonjour
oui je me suis mal expliquer
Je voudrai créer une macro qui permette de sélectionner une ligne de la
feuille appellée "Maintenance" et la déplacer automatiquement à la fin d'une
autre feuille appelée "Archive
mais conserver ma ligne sur la feuille maintenace
Dans mon exemple, la feuille "Archive" contient 11 colonnes (de A à K).
la macro actuelle marche le seul probleme c est quelle me supprime la ligne
selectionner sur la feuillemaintenace
Sub Macro1()

Selection.Cut
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

End Sub

voila merci d avance

Bonjour,

??? Il y a contradiction

"manon81" a écrit dans le message de
news:
......
voudrais la coller sur la primere ligne vide de ma feuille maintenance
alors que

"manon81" a écrit dans le message de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma
feuille
archive
Ta macro , copie, sélectionne, supprime.., colle



(pas forcément tant que de besoin)

Peux tu préciser plus exactement ce que tu souhaites faire. Point de
départ....Arrivée.


Cordialement.

lSteph








Avatar
lSteph
Re,
si j'ai bien compris (la ligne entière de la sélection de la feuille active
donc a priori "Maintenance" ira mettre ses valeurs
sous la dernière cellule remplie de la colonne A de la feuille "Archive".

Sub ArchiveLigne()
Selection.EntireRow.Copy
Sheets("Archive").Activate
[a65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub

'lSteph

"manon81" a écrit dans le message de
news:
Bonjour
oui je me suis mal expliquer
Je voudrai créer une macro qui permette de sélectionner une ligne de la
feuille appellée "Maintenance" et la déplacer automatiquement à la fin
d'une
autre feuille appelée "Archive
mais conserver ma ligne sur la feuille maintenace
Dans mon exemple, la feuille "Archive" contient 11 colonnes (de A à K).
la macro actuelle marche le seul probleme c est quelle me supprime la
ligne
selectionner sur la feuillemaintenace
Sub Macro1()

Selection.Cut
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

End Sub

voila merci d avance

Bonjour,

??? Il y a contradiction

"manon81" a écrit dans le message de
news:
......
voudrais la coller sur la primere ligne vide de ma feuille maintenance
alors que

"manon81" a écrit dans le message
de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma
feuille
archive
Ta macro , copie, sélectionne, supprime.., colle



(pas forcément tant que de besoin)

Peux tu préciser plus exactement ce que tu souhaites faire. Point de
départ....Arrivée.


Cordialement.

lSteph










Avatar
manon81
Je te remercie infiniment
C est bien ce que je voulais
Je débute et ne suis pas douée
Encore merci de ta gentillesse


Re,
si j'ai bien compris (la ligne entière de la sélection de la feuille active
donc a priori "Maintenance" ira mettre ses valeurs
sous la dernière cellule remplie de la colonne A de la feuille "Archive".

Sub ArchiveLigne()
Selection.EntireRow.Copy
Sheets("Archive").Activate
[a65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub

'lSteph

"manon81" a écrit dans le message de
news:
Bonjour
oui je me suis mal expliquer
Je voudrai créer une macro qui permette de sélectionner une ligne de la
feuille appellée "Maintenance" et la déplacer automatiquement à la fin
d'une
autre feuille appelée "Archive
mais conserver ma ligne sur la feuille maintenace
Dans mon exemple, la feuille "Archive" contient 11 colonnes (de A à K).
la macro actuelle marche le seul probleme c est quelle me supprime la
ligne
selectionner sur la feuillemaintenace
Sub Macro1()

Selection.Cut
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

End Sub

voila merci d avance

Bonjour,

??? Il y a contradiction

"manon81" a écrit dans le message de
news:
......
voudrais la coller sur la primere ligne vide de ma feuille maintenance
alors que

"manon81" a écrit dans le message
de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma
feuille
archive
Ta macro , copie, sélectionne, supprime.., colle



(pas forcément tant que de besoin)

Peux tu préciser plus exactement ce que tu souhaites faire. Point de
départ....Arrivée.


Cordialement.

lSteph















Avatar
lSteph
;-) ravi d'avoir pu t'aider, à bientôt.

lSteph
"manon81" a écrit dans le message de
news:
Je te remercie infiniment
C est bien ce que je voulais
Je débute et ne suis pas douée
Encore merci de ta gentillesse


Re,
si j'ai bien compris (la ligne entière de la sélection de la feuille
active
donc a priori "Maintenance" ira mettre ses valeurs
sous la dernière cellule remplie de la colonne A de la feuille "Archive".

Sub ArchiveLigne()
Selection.EntireRow.Copy
Sheets("Archive").Activate
[a65536].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End Sub

'lSteph

"manon81" a écrit dans le message de
news:
Bonjour
oui je me suis mal expliquer
Je voudrai créer une macro qui permette de sélectionner une ligne de
la
feuille appellée "Maintenance" et la déplacer automatiquement à la fin
d'une
autre feuille appelée "Archive
mais conserver ma ligne sur la feuille maintenace
Dans mon exemple, la feuille "Archive" contient 11 colonnes (de A à K).
la macro actuelle marche le seul probleme c est quelle me supprime la
ligne
selectionner sur la feuillemaintenace
Sub Macro1()

Selection.Cut
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row +
1
Cells(k, 1).Select
ActiveSheet.Paste
Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

End Sub

voila merci d avance

Bonjour,

??? Il y a contradiction

"manon81" a écrit dans le message
de
news:
......
voudrais la coller sur la primere ligne vide de ma feuille
maintenance
alors que

"manon81" a écrit dans le
message
de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma
feuille
archive
Ta macro , copie, sélectionne, supprime.., colle



(pas forcément tant que de besoin)

Peux tu préciser plus exactement ce que tu souhaites faire. Point de
départ....Arrivée.


Cordialement.

lSteph

















Avatar
Maximus
Bonjour

Si je dis pas de bêtise , supprime

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp

@+Max

"manon81" a écrit dans le message de
news:
bonjour
je souhaiterais copie une ligne de ma feuille maintenance sur ma feuille
archive
cette macro m envoie la ligne mais me la supprime sur l autre feuille
pouvez
vous m aider
merci d avance
Sub Macro1()
n = 0
Selection.Copy
Sheets("Archive").Select
k = ActiveSheet.UsedRange.SpecialCells(xlLastCell).End(xlToLeft).Row + 1
Cells(k, 1).Select
ActiveSheet.Paste

Sheets("Maintenance").Select
Selection.Delete Shift:=xlUp
End Sub