Script VBA qui "archive" les donnée

[IPOUEST]

Bonjour tout le monde,

Il y a quelques temps sur ce forum on m'a aidé pour un script qui copie des valeurs (feuille "CHEQUES") vers une autre feuille ("ARCHIVE CH") pour les archiver.
Voici le script :

Dim e, j As Integer
e = 0
j = 0
For e = 1 To 40
    If Worksheets("CHEQUES").Cells(9 + e, 4).Value <> 0 Then
        Worksheets("ARCHIVE CH").Cells(e, 1).Value = CDate(Worksheets("CHEQUES").Cells(4, 3).Value)
    End If
    Worksheets("ARCHIVE CH").Cells(e, 2).Value = Worksheets("CHEQUES").Cells(9 + e, 4).Value
    Worksheets("ARCHIVE CH").Cells(e, 3).Value = Worksheets("CHEQUES").Cells(9 + e, 5).Value
    Worksheets("ARCHIVE CH").Cells(e, 4).Value = Worksheets("CHEQUES").Cells(9 + e, 6).Value
Next

Le problème avec ce code, c'est qu'à CHAQUE enregistrement il efface les enregistrements déjà présent sur la page "ARCHIVE CH".

Est-ce que quelqu'un sait ce que je dois rajouter pour que le code n'écrase pas les données mais qu'il continue bien à la suite.

Merci d'avance.

 

[youky(BJ)]

Re : Script VBA qui "archive" les donnée

Bonjour Ipounest,
Peut être comme ceci.
Bruno

Dim e, lig
With Worksheets("ARCHIVE CH")
lig = .Cells(Application.Rows.Count, 2).End(xlUp).Row + 1
 For e = 1 To 40
     If Worksheets("CHEQUES").Cells(9 + e, 4).Value <> 0 Then
         .Cells(lig, 1).Value = CDate(Worksheets("CHEQUES").Cells(4, 3).Value)
     End If
     .Cells(lig, 2).Value = Worksheets("CHEQUES").Cells(9 + e, 4).Value
     .Cells(lig, 3).Value = Worksheets("CHEQUES").Cells(9 + e, 5).Value
     .Cells(lig, 4).Value = Worksheets("CHEQUES").Cells(9 + e, 6).Value
     lig = lig + 1
 Next
End With

 

[IPOUEST]

Re : Script VBA qui "archive" les donnée

Super Youky, ça me semble parfait.

Merci beaucoup 😉