Archivage

[JUDOKA]

Bonjour,

Est-il possible d'archiver dans une autre feuille une ligne de cellule
par exemple j'ai dans feuille1 A1 à A6 des renseignements avec des formules en fin d'année j'ai besoin en feuille2 d'archiver ces renseignements en copie valeur lors de l'effacement de ces données sans effacer en feuille 1 la formule se trouvant en A6

en quelque sorte avoir l'archivage de la ligne a1 à a6de la feuille1 en feuille2

FEUILLE1
A1 A2 A3 A4 A5 A6
21 vallet Testelin 123 veux =INDEX(ventil;EQUIV(cdt;cdtrventil;0);2)
Lorsque j'efface ces renseignements j'aurai en feuille2
A1 A2 A3 A4 A5 A6
21 vallet Testelin 123 veux aaa

et en feuille1

A1 A2 A3 A4 A5 A6
=INDEX(ventil;EQUIV(cdt;cdtrventil;0);2)
sans toucher aux autres lignes quelques soient la position dans la feuille1 de la ligne a effacer
j'avais utiliser cette ces formules, mais reprend tous les renseignements et renvoie sur la feuille2
Sub archive()

Sheets('CDT').Select
Range('A9:G30').Select
Selection.Copy
Sheets('archive').Select
Range('a4').Select
Cells.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

merci de votre réponse

 

[Sylvie]

Bonjour Judoka,

te serait il possible de joindre ton fichier pour bien comprendre ta demande ?

Merci