Discussion :

[Assia1990]

Bonjour,
Je débute en VBA soyez s'il vous plaît indulgents , J'aimerais archiver des saisies, qu'elles s'incrémentent les unes après les autres, je joins le fichier. Elle ne fonctionne pas et je ne comprends pas pourquoi?! pouvez -vous m'aider s'il vous plaît? Merci

[Fab_de_chez_PERFORM]

Bonjour
votre code n'indique pas ce qu'il doit copier, c'est sans doute pour cela que cela ne se retranscrit pas.

Je vous mets un exemple en dessous
- Saisir depuis la feuille "PRIME_DONNEE" puis lancer la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Valeurs_lignes()
 
Sheets("Prime_données").Select
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select 'pour choper la dernière ligne
Range("A" & ActiveCell.Row & ":L" & ActiveCell.Row).Value = Sheets("PRIME_DONNEES").Range("A2:L2").Value
End Sub

Attention par contre à votre ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Calculation = xlCalculationManual

Quand on met ca, il faut le réactiver à la fin avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlAutomatic

[Assia1990]

Merci beaucoup je teste

[Assia1990]

Ca ne fonctionne pas et je ne comprends pas pourquoi, je suis désolée :/

[Assia1990]

En fait c'est tout le tableau qu'il faut que j'archive, et qu'il s'incrémente (en entier) chaque mois...

[Fab_de_chez_PERFORM]

Ah OK,
je pensais que la macro était lancée à chaque enregistrement

Dans ce cas là on pourrait faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Valeurs_lignes()
 
Sheets("Prime_données").Select
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select 'pour choper la dernière ligne
 
Sheets("PRIME_DONNEES").Select
Range("A2:L" & Range("A" & Rows.Count).End(xlUp).Row).Copy
 
Sheets("Prime_données").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Sheets("PRIME_DONNEES").Range("A2:L" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
 
End Sub