Syntaxe Date au jour le jour

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour