Archivages avec saut de ligne à chaque validation

Bonjour,

Je suis actuellement bloqué sur une macro. J'ai saisi mes données et je peux archiver. Cependant, je n'arrive pas à changer de ligne automatiquement. Gros problème quand j'ai besoin de retrouver un colis perdu car je n'ai que le dernier colis traité qui est enregistré ...

Je veux archiver les données des onglets "doc à remplir si BL" et "doc à remplir si problème"

J'ai réussi à décaler les lignes avec cette formule : ActiveCell.Offset(1, 0).Value = Sheets("Doc à remplir si BL").Range("C12")

mais pas à archiver les nouvelles données.

J'ai regardé sur le forum pour des réponses mais j'ai du mal à comprendre le code VBA malgré les explications des "pros" du code

Si l'un de vous a des renseignements à me donner, cela serait vraiment très gentil

Bonjour,

Essaie cette procédure qui est valable pour les 2 archivages.

Elle s'exécute en fonction de la feuille active.

Cdlt.

Option Explicit
'Option Private Module

Public Sub Archives()
Dim wb As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim lCol As Long, lRow As Long

    Set wb = ActiveWorkbook
    Set ws = ActiveSheet
    Set ws2 = wb.Worksheets("Archives")
    lCol = 1

    If ws.Name = "Doc à remplir si problème" Then lCol = 8
    With ws2
        lRow = .Cells(.Cells.Rows.Count, lCol).End(xlUp).Row + 1
        .Cells(lRow, lCol).Value = ws.Cells(12, 3).Value
        .Cells(lRow, lCol + 1).Value = ws.Cells(12, 6).Value
        .Cells(lRow, lCol + 2).Value = ws.Cells(14, 3).Value
        .Cells(lRow, lCol + 3).Value = ws.Cells(14, 6).Value
        If ws.Name = "Doc à remplir si problème" Then
        .Cells(lRow, lCol + 4).Value = ws.Cells(19, 2).Value
        Else
        .Cells(lRow, lCol + 4).Value = ws.Cells(50, 7).Value
        End If
    End With

    Set ws2 = Nothing: Set ws = Nothing
    Set wb = Nothing

End Sub

Bonjour,

Merci beaucoup de votre aide, je vais regarder le code pour le comprendre et être capable de le refaire pour plus tard si besoin est.