XL 2019 Exporter données de cellules dans un tableau

[J@NoT]

Bonjour à tous !
Je souhaite exporter des données de certaines cellules dans un tableau automatiquement.
Idéalement cliquer sur un bouton pour envoyer les données une fois la saisie réalisée.

Je rentre les données dans les cellules fond blanc.
Je souhaite que celles ci une fois le résultat de calcul trouvée les données s'enregistrent dans le tableau "données" avec la date du jour.

Avez vous des idées ?? Des solutions svp ?

En vous remerciant grandement !!!

 

[Hasco]

Bonjour et bienvenue sur le forum,

J'ai ouvert votre fichier mais n'ai trouvé aucune tentative de résolution de votre problème, peut-être que la macro "copier_coller_cellules" en est-elle une ? A partir d'un autre classeur sans doute car le votre ne contient pas de feuille nommées "Feuil1".

Tout ceci pour vous dire que le forum, contrairement à une société de services, n'est là que pour dépanage, lorsque un excelien tombe sur un problème particulier dans le développement de sa propre solution.

Avez vous des idées ?? Des solutions svp ?

Toute cuite la solution ? Non.
Des idées : oui, commencez quelque chose et revenez avec un point d'achoppement éventuel.

Cordialement

 

[sylvanu]

Bonjour J@Not, roblochon,
Dommage d'avoir abandonné, vous n'en étiez pas loin.
Attention aux noms de variables ( comme derniereLigne et derniere_ligne )
Voir en PJ avec :

Sub copier_coller_cellules()
Application.ScreenUpdating = False
Dim fichier As Workbook, onglet As Worksheet, derniere_ligne As Long
'identifier le fichier et l'onglet
Set fichier = ActiveWorkbook
Set Dest = fichier.Worksheets("RETRAIT CYLINDRE")
'trouver la derniere ligne du tableau
derniere_ligne = Sheets("Données").Range("A" & Rows.Count).End(xlUp).Row + 1
'copier coller les cellules
With Sheets("Données")
    .Cells(derniere_ligne, 1) = Date
    .Cells(derniere_ligne, 2) = Dest.Range("F4")
    .Cells(derniere_ligne, 3) = Dest.Range("F9")
    .Cells(derniere_ligne, 4) = Dest.Range("F14")
    .Cells(derniere_ligne, 5) = Dest.Range("F19")
    .Cells(derniere_ligne, 6) = Dest.Range("F24")
    .Cells(derniere_ligne, 7) = Dest.Range("F29")
    .Cells(derniere_ligne, 8) = Dest.Range("C13")
    .Cells(derniere_ligne, 9) = Dest.Range("H13")
End With
Application.ScreenUpdating = False
End Sub

 

[Phil69970]

Bonjour à tous

Je te propose ceci :

*Le volume n'est pas demandé dans l'onglet "Données"

@Phil69970

 

[fanch55]

Bonjour,
Mince, j'avais pas posté la réponse,

Sub Archiver()
Dim C As Integer, R As Integer
C = 1
    With Sheets("Données")
        R = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(R, C).Value = Now
        For Each Cell In Sheets("RETRAIT CYLINDRE").Range("F4,F9,F14,F19,F24,F29,C13,H13")
            C = C + 1
            .Cells(R, C).Value = Cell.Value
            .Cells(R, C).NumberFormat = Cell.NumberFormat
        Next
    End With
End Sub

Edit: Salut le Fil

Attention, j'ai compté une colonne (F29) non présente dans les Données) en tant que Volume

 

[J@NoT]

Encore merci à tous pour vos solutions !!! C'est parfait !! Bonne fin de journée à vous !
J'ai finalement opté pour la solution de Phil69970 pour la conversion directe en pourcentage et j'ai trouvé la VBA plus simple pour moi !