XL 2013 VBA : Intégration date

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2021

• #2

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 ?

 

Vote positif 0 Vote négatif

C

CaEly

XLDnaute Nouveau

• 12 Janvier 2021

• #3

sylvanu à dit:

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 ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

CaEly

XLDnaute Nouveau

• 12 Janvier 2021

• #4

Bonjour Sylvaanu,

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2021

• #5

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.

 

Pièces jointes

• ALEAS (2).xlsm

  290.2 KB · Affichages: 6

Vote positif 0 Vote négatif

C

CaEly

XLDnaute Nouveau

• 12 Janvier 2021

• #6

sylvanu à dit:

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

CaEly

XLDnaute Nouveau

• 12 Janvier 2021

• #7

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2021

• #8

Regardez le code :

VB:

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.

 

Vote positif 0 Vote négatif

C

CaEly

XLDnaute Nouveau

• 12 Janvier 2021

• #9

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…

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2021

• #10

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

VB:

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

 

Vote positif 0 Vote négatif