creation de sauvegarde

K

kjin

XLDnaute Barbatruc

• 9 Mars 2008

• #2

Re : creation de sauvegarde

Bonjour max47, bonjour à tous,
Les données à copier étant disséminées, pas beaucoup de solution:
Donc ta macro à modifier comme suit :

Sub Macro4()
derlign = Sheets("sauve_saisie").Range("A65000").End(xlUp).Row + 1
Sheets(1).Range("B3").Copy
Sheets("sauve_saisie").Range("A" & derlign).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets(1).Range("B4").Copy
Sheets("sauve_saisie").Range("B" & derlign).PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

etc, etc....

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 9 Mars 2008

• #3

Re : creation de sauvegarde

Re,
voilà ton fichier modifié
A+
kjin

 

Pièces jointes

• GEST_V1.zip

  16.8 KB · Affichages: 23

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Mars 2008

• #4

Re : creation de sauvegarde

bonjour max,kjin
une autre proposition
à bientôt

 

Pièces jointes

• GEST.zip

  18 KB · Affichages: 21
• GEST.zip

  18 KB · Affichages: 21
• GEST.zip

  18 KB · Affichages: 22

Vote positif 0 Vote négatif

M

max47

XLDnaute Nouveau

• 9 Mars 2008

• #5

Re : creation de sauvegarde

Je te remercie la version N°1 marche tres bien, mais je te joint un nouveau fichier j ai rajoute un onglet temp_saisie qui me permet de stoker mes données sans macro et de simplifier la macro de copie sur la feuille sauv_saisie mais toujours le probleme de copier sur la premiere ligne vide
merci
max

 

Pièces jointes

• GEST_V2.zip

  18.4 KB · Affichages: 20

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 9 Mars 2008

• #6

Re : creation de sauvegarde

Re, bonjour bebere,
La solution de bebere fonctionne très bien, mais si tu préfères passer par la saisie intermédiaire, c'est pas mal aussi :
Sub Macro6()
derlign = Sheets("sauve_saisie").Range("A65000").End(xlUp).Row + 1
Sheets("temp_saisie").Range("A2:AT2").Copy
Sheets("sauve_saisie").Range("A" & derlign).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("saisie").Activate
Application.CutCopyMode = False
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Mars 2008

• #7

Re : creation de sauvegarde

Kjin,Max a t'il vu les 2 réponses?
pour la dernière ligne tu as la solution de Kjin
et la mienne
peut être une solution plus simple avec userform
et de là alimenter la feuille sauve_saisie
ensuite éditer dans feuille saisie,pour imprimer,etc
à bientôt

 

Vote positif 0 Vote négatif

M

max47

XLDnaute Nouveau

• 9 Mars 2008

• #8

Re : creation de sauvegarde

Merci beaucoup ça marche impeccable une petite remarque il y as une petite erreur dans la ligne 1 (r ow) pour (row) au cas ou quelqun voudrait se servir de cette macro
re merci
max

 

Vote positif 0 Vote négatif