Fiche de suivi automatique

[xbelond]

Bonjour je souhaiterais que certaine cellule de la feuille 1 soit automatiquement (a l'aide d'un bouton) ajouté à la suite sur la feuille 2.
il s'agit des champs date, transporteur, nb de colis, origine, et observations.
Ce doit être simple mais je ni arrive pas.
Merci d'avance.

 

[Gareth]

Re : Fiche de suivi automatique

Bonjour,

Ci-joint une interpretation

 

[Efgé]

Re : Fiche de suivi automatique

Bonjour xbelond
Regarder dans le code de la feuill1 (clic droit sur l'onglet / Visualiser le code)
Au plus simple:

Sub Simple()
Dim i As Long
i = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & i).Value = Sheets("Feuil1").Range("A2").Value
Sheets("Feuil2").Range("B" & i).Value = Sheets("Feuil1").Range("C2").Value
Sheets("Feuil2").Range("C" & i).Value = Sheets("Feuil1").Range("A6").Value
Sheets("Feuil2").Range("D" & i).Value = Sheets("Feuil1").Range("F2").Value
Sheets("Feuil2").Range("E" & i).Value = Sheets("Feuil1").Range("A13").Value
End Sub

Au mieux:

Private Sub CommandButton1_Click()
Dim T(1 To 5)
T(1) = Cells(2, 1).Value
T(2) = Cells(2, 3).Value
T(3) = Cells(6, 1).Value
T(4) = Cells(2, 6).Value
T(5) = Cells(13, 1).Value
Sheets("Feuil2").Cells(Rows.Count, 1).End(3)(2).Resize(, UBound(T)) = T
End Sub

Cordialement

EDIT Bonjour Gareth

 

[xbelond]

Re : Fiche de suivi automatique

Merci beaucoup,