archivé des saisie

[velo2max]

Bonjour. Je voudrais créer un carnet d'entrainement sportif.
Une feuille pour saisir la séance avec différentes items.
Toutes ces items sont associé à une date.
Et enfin toutes les saisies daté sont archivé sur une autre feuille sous forme de tableau.

Ce que je ne parviens pas à faire c'est à à créer une feuille de saisie des infos qui les enregistre ensuite dans une feuille récapitulative par dates.

Si quelqu'uns peu m'aider ou me donner un support de ce type merci.

 

[Kotov]

Re : archivé des saisie

Bonjour Vélo2max, bienvenue sur ce forum,

Prépares ton carnet d'entraînement sous la forme d'un tableau avec les données que tu as besoin de répertorier :

Par exemple :
Date
Type (entraînement, compétition)
Travail effectué (décontraction, aérobie, anaérobie lactique, anaérobie alactique)
Kilométrage
Fourchette de pulsations
Sensations (Très bonne, bonne, moyenne, fatigue etc...)
Observations (travail en groupe, seul, crevaison, chute etc...)

Ensuite, propose ton fichier sur XLD, et je t'aiderai à réaliser un formulaire de saisie en VBA.

A +
Kotov

 

[BERRACHED said]

Re : archivé des saisie

Salut,velomax2,Kotov

joindre un fichier exemple pour voir la disposition de l'information deja notre ami Kotov il t'a met sur une piste nous attendons le reste pour pouvoir vous aidé

Coedialement

 

[velo2max]

Re : archivé des saisie

Bonjour.

Voici en pièce jointe un aperçu de ce que je recherche.

j'ai rempli les item dont j'ai besoin, créer une feuille pour archiver les séances.

Il me reste à créer cette fonction qui permet en remplissant les items et la date de la feuille de saisie de tout envoyer dans la base.

Merci d'avoir répondu si vite.

 

[Kotov]

Re : archivé des saisie

Bonjour Velo2max, Saïd, le forum,

Je te propose cette macro:
Quand tu appuies sur le bouton "Transfert", la macro compare les dates de ta feuille de saisie avec les dates de ta base. Les transferts se font automatiquement sur la bonne date

Private Sub cb_Transfert_Click()
Transfert
End Sub

Sub Transfert()
Dim n&, r&, c&
Dim NewItem As Date
Dim shB As Worksheet, shS As Worksheet, x As Range
Set shB = Sheets("BASE")
Set shS = Sheets("SAISIE SORTIE")

n = shS.Cells(65536, 2).End(3).Row
NewItem = Cells(n, 2)
Set x = shB.Columns(1).Find(NewItem, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        r = x.Row
        For c = 2 To 18
            shB.Cells(r, c - 1) = shS.Cells(n, c)
        Next c
    End If
   
Set shB = Nothing
Set shS = Nothing
Set x = Nothing
End Sub

Et je te joins le fichier.

Ps : en tant qu'ex coureur cycliste, je vois que tu te prépares sérieusement pour la saison prochaine : travail à la FC mais également aux sensations (l'idéal)

Bonne préparation;

A+
Kotov

 

[velo2max]

Re : archivé des saisie

Merci beaucoup Kotov. Quand j'aurais finit l'application je ne manquerai pas de la proposer sur le site.