Syntaxe Date au jour le jour

  • Initiateur de la discussion Bernard M
  • Date de début
B

Bernard M

Guest
Salut le forum, Bonjour à tous,

Pour mon travail, j’ai créé un tableau qui centralise le résultat de 4 autres.

Les 4 tableaux sont saisies tous les matins avec trois infos plus la date.
Formule = aujourdhui ()

Le lancement de la macro aura lieu toujours l’après midi du même jour.

L’objectif est que les infos prennent place dans la colonne correspondante, sous la date du jour de la saisie.

Comme j'ai construit mon module, les infos arrivent à la 1ere date du mois. Mes petites connaissances enVBA sont très limitées et s’arrêtes la.

J’ai donc un grand besoin de votre aide.

Merci, Bernard
[file name=VANNES.zip size=19140]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/VANNES.zip[/file]
 

Pièces jointes

  • VANNES.zip
    18.7 KB · Affichages: 21
B

Bernard M

Guest
1000 escuses, je me suis planté dans mon zipage

A+ Bernard M [file name=Free.zip size=19880]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Free.zip[/file]
 

Pièces jointes

  • Free.zip
    19.4 KB · Affichages: 18

Charly2

Nous a quittés en 2006
Repose en paix
Bonsoir Bernard, bonsoir à toutes et à tous :)

Peut-être une piste à explorer dans le fichier suivant :

[file name=RECAPITULATIF_V1.zip size=17050]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RECAPITULATIF_V1.zip[/file]

Je ne te retourne que le récapitulatif, le seul qui soit modifié.

2 procédures à voir dans Module1 :

[ul][li]InitialiseFormules
à n'utiliser qu'avec un tableau vierge, il écrit, en C3:AG14, les formules qui permettront d'afficher les données des 4 fichiers VANNE dans la colonne correspondant à la date du jour.[/li]
[li]MaJ_Quotidienneà lancer chaque jour après l'actualisation des données des 4 fichiers VANNE. Elle écrase les formules de la colonne correspondant à AUJOURDHUI() pour les remplacer par leurs valeurs.[/li][/ul]

Voilà, il te reste à créer une procédure qui, en fin de mois, nettoierait le fichier des formules qui resteraient. Quelquechose du genre :

Dim i As Byte

With Range('C3:C14')
  For i = 0 To 30
    With .Offset(0, i)
      If .HasFormula Then .ClearContents
    End With
  Next i
End With

Tiens-nous au courant...

A+ ;)
 

Pièces jointes

  • RECAPITULATIF_V1.zip
    16.7 KB · Affichages: 21
B

Bernard M

Guest
Merci Charly, cela est un véritable plaisir de recevoir une réponse de ta part, clair et très instructif. J'espère que le fait que tu sois devant ton micro à une heure aussi tardive n'est pas dû à mon petit exercice.

Un comble, il me tarde d'être lundi pour aller au boulot et mettre tes connaissances en applications.

Merci encore, Bernard
 

Discussions similaires

Statistiques des forums

Discussions
312 495
Messages
2 088 964
Membres
103 992
dernier inscrit
Christine 974