XL 2013 VBA : Intégration date

[CaEly]

Bonjour,

Junior en macro et je cherche à intégrer la date dans l'onglet accueil dans le tableau "Aléas du jour" ainsi que dans les onglets "synthèse j-1 et synthèse hebdo et mens"

Quelqu'un par ici aurait-il l'amabilité de m'y aider en modifiant la macro ??

En tout cas si c'est le cas, je vous en remercie par avance.

Bien à vous.

Cassandra

 

[sylvanu]

Bonjour CaEly,
Dans votre feuille Accueil il n'y a aucune colonne Date, non plus dans les autres feuilles.
Et dans votre macro "misajour" nulle part vous ne copier coller la date.
Où voulez vous la mettre ?

 

[CaEly]

Bonjour CaEly,
Dans votre feuille Accueil il n'y a aucune colonne Date, non plus dans les autres feuilles.
Et dans votre macro "misajour" nulle part vous ne copier coller la date.
Où voulez vous la mettre ?

 

[CaEly]

Bonjour Sylvaanu,

J'aimerais que la colonne date soit créer sur tous les onglets en première colonne. Merci infiniment pour votre aide.

 

[sylvanu]

Re,
Voir en PJ,
Pour Accueil j'ai mis la date en colonne H, cela me semblait plus logique.
J'ai modifié les trois macros pour introduire la date, et donc décaler les colonnes.
A noter qu'il y avait une erreur sur la comparaison de dates qui n'est pas en D4 mais en E4.
A tester.

 

[CaEly]

Re,
Voir en PJ,
Pour Accueil j'ai mis la date en colonne H, cela me semblait plus logique.
J'ai modifié les trois macros pour introduire la date, et donc décaler les colonnes.
A noter qu'il y avait une erreur sur la comparaison de dates qui n'est pas en D4 mais en E4.
A tester.

 

[CaEly]

C'est super ! Mais je me suis vraiment mal exprimée dans ma demande. Ce que je souhaite c'est la date d'enregistrement de l'aléas et non la date du jour.

Je m'explique mieux : quand je clique sur "Saisir des pertes" et que je valide vient s'incrémenter les pertes et ce que j'aimerais c'est que vienne s'incrémenter la date à laquelle j'enregistre ma perte.

Encore navrée pour ma demande non précise.

 

[sylvanu]

Regardez le code :

Feuil2.Range("A" & j).Value = Feuil1.Range("D" & i).Value

Je met la date qui est présente dans la feuille 1 soit Collecteindispomateriel, je ne met pas la date du jour mais celle que vous avez enregistrée dans votre base de données.

 

[CaEly]

Merci c'est ce que je recherchais. Merci pour votre réactivité.
Toutefois, quand je teste à faire une recherche des aléas que j'ai par exemple saisie entre telle date et telle date comme il m'est possible de le faire dans l'onglet "Synthèse heb mens" depuis que j'ai la date je n'ai plus rien qui s'affiche… 😕

 

[sylvanu]

Je n'ai fait que ce qui était demandé au post #1, rien d'autre. Je n'ai pas essayé toutes vos fonctions.
Regardez dans le module "syntheseh1", l'erreur est surement autour de la ligne

If Feuil1.Range("D" & i).Value >= Feuil8.Range("E4").Value And Feuil1.Range("D" & i).Value <= Feuil8.Range("E4").Value Then 'Vérification de la date de la donnée