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
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
