Microsoft 365 Remplir sur feuille de suivi avec une feuille de donnée d'entrée

[Ethlios]

Bonjour à tous,

Je cherche un moyen de remplir un fichier de suivi automatiquement sur Excel, en effet, je veux utiliser la première feuille comme donnée d'entrée, ou l'on rentre manuellement des données telles que date/nom/référence/... Une fois toutes les données rentrées, par le biais d'un bouton ou autre, envoyer toutes ces informations dans le fichier de suivi de façon à crée un système d'historique sans rentrée une deuxième fois les données manuellement.

J'ai mis un fichier comme exemple, en espèrent avoir bien exprimé ma demande.

Merci d'avance !

 

[Lolote83]

Bonjour ETHLIOS,
Voici ton fichier en retour.
En espérant avoir bien ciblé la demande
@+ Lolote83

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[sylvanu]

Bonjour Ethlios, Lolote, Fanfan,
Une variante avec :

Sub Transfert()
    Dim dl%, i%
    With Sheets("Fiche suivi")
        dl = .Range("B" & Rows.Count).End(xlUp).Row + 1
        For i = 2 To 6
            .Cells(dl, i) = Cells(i, "B"): Cells(i, "B") = ""
        Next i
        For i = 8 To 15
            .Cells(dl, i - 1) = Cells(i, "C"): Cells(i, "C") = ""
        Next i
    End With
End Sub

 

[sylvanu]

Un peu plus optimisé avec :

Sub Transfert()
    Dim dl%
    With Sheets("Fiche suivi")
        dl = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("B" & dl & ":" & "F" & dl) = Application.Transpose(Range("B2:B6"))
        .Range("G" & dl & ":" & "N" & dl) = Application.Transpose(Range("C8:C15"))
        Range("B2:D6").ClearContents: Range("C8:C15").ClearContents
    End With
End Sub

 

[Ethlios]

Problème résolu merci beaucoup pour votre aide !