Reporter

[Bandit]

Bonjour,

Je désirerais savoir comment reporter des cellules dans une autre feuille par date , je m'explique.

J'ai une page Hebdomadaire avec les heures normal que je rentre avec des feuilles journaliere ,Lundi ,mardi etc..jusqu'au samedi et je voudrais qu"a la fin de semaine celle ci soyent rentrer automatiquement dans la feuille mois par date avant que je rentre dans la feuille de semaine les dates de la semaine en cour car je met les dates de la semaine sur la feuille semaine et dans le mois cela sera le résumer de la semaine

J'espere etre clair !!!

Merci d'avance de votre aide

 

[Nicolas 65]

Bonjour Bandit,

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

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

 

[Bandit]

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

 

[Celeda]

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

 

[Bandit]

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

 

[myDearFriend]

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

 

[Celeda]

Bonsoir Le Forum,


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

 

[Alain]

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