archivé des saisie

Kotov

XLDnaute Impliqué

• 2 Novembre 2008

• #2

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

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 2 Novembre 2008

• #3

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

 

Vote positif 0 Vote négatif

V

velo2max

Guest

• 3 Novembre 2008

• #4

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.

 

Pièces jointes

• essai carnet entrainement.xls

  43.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Kotov

XLDnaute Impliqué

• 3 Novembre 2008

• #5

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

Code:

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

 

Pièces jointes

• Carnetentrainement_Kotov.zip

  25.8 KB · Affichages: 30

Vote positif 0 Vote négatif

V

velo2max

Guest

• 3 Novembre 2008

• #6

Re : archivé des saisie

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

 

Vote positif 0 Vote négatif