Reporter

Bonjour Bandit,

Pas trop (en tout cas pour moi) ...

Pourquoi ne mettrais tu pas un exemple. Celà serait plus facile à comprendre.

Voici l'exemple et tous cela du moins le cumul des heures ainsi que les noms etc ... devrais se reporter sur une feuille de MOIS pourqui est le recapitulatif mais devrais etre sauvegardé automatiquement par date car au début de semaine je change les dates pour la nouvelle semaine

Bonsoir Le Forum,


Ceci n'est qu'un premier pas car
je ne sais pas faire un compteur en VBA :

donc grâce à quelques lectures sur le forum pour recopier des valeurs dans un tableau
j'ai choisi quelque chose de très simple pour mon niveau

un copy coller de la feuille "Hebdomadaire" dans la feuille "Reports" crée
avec une répartition par semaine de mois
mais il faudrait que la macro fasse un Décaler
à chaque fois
que l'on change de semaine
et pas de veine !!!!

je stoppe là
en vba

par la suite on peut faire un total par mois
asssocié à un TCD
au choix
de ce que l'on veut afficher

de plus, il serait vivement recommandé
dans la colonne des Hsup, de noter

0 à la place de "aucunes"
à cause de la formule

Voici Bandit,
un tout petit
début pour permettre de lancer ton fil
selon les inspirations de chacun ou chacune
et si tu es un peu agile
tu devrais pouvoir finaliser
sur XLD!!!!!!!!!!!!!!!!


Je te joins mon modeste fichier.


ah aussi un autre petit détail : il est inutile de protèger les fichiers
c'est ridicule; pour deux choses :


1- cela m'a pris quand même 2,5 mn avec le Nouvel Acyd de Ti à déprotéger
  (à récupérer ici :Lien supprimé)


2- cela fait perdre du temps à celui ou à celle qui veut aider et le temps
est une notion qui est vraiment précieuse pour tout le petit
monde d'XLD.



Merci à l'avance.


Celeda

Merci Celeda de toute c'est information et de l'exemple qui est déja tres bien pour bien débuter ,en tous cas une fois que toute cette page de gestion sera au point je la placerais sur le site pour pouvoir le faire partager a tous ceux qui veulent le télécharger Merci encore et je vous tiens au courant de mon avancement car je suppose et du moins j'en suis sur j'aurais d'autres questions a poser sur le forum


Merci encore et gros bisou

Bonsoir Bandit, Nicolas 65, Celeda.

Bandit, après discussion avec Celeda sur le t'ChatXLD, voici une macro VBA pouvant peut-être te servir de base pour trouver une solution à ton problème (voir fichier ci-joint)...

Public Sub Archiver()
Dim TabTemp As Variant
Dim D As Date
Dim C As Byte
   With Sheets("HEBDOMADAIRE")
      D = .Range("E4")
      TabTemp = .Range(.Cells(11, 15), .Cells(19, 16)).Value
   End With
   With Sheets("REPORTS")
      .Activate
      C = .Range("IV1").End(xlToLeft).Column + 1
      C = Application.WorksheetFunction.Even(C)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If C < 12 Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cells(1, C).Value = D
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cells(2, C).Value = D + 6
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Range(.Cells(4, C), .Cells(12, C + 1)).Value = TabTemp
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;End With
End Sub


Cordialement.

Didier_mDF

Bonsoir Le Forum,


myDearFriend : je ne sais plus comment te remercier alors accepte ces modestes

Celeda et Didier,


Désolé pour le retard de mes remerciements,celle ci fonctionne tres bien et vue que j'avais mis un tas de message ou plutot de demande de coup de main je n'ai pas eu le temps de te répondre . Et beaucoup de mise au point de mes feuilles de calculs donc UN GRAND MERCI du coup de main et bonne soirée