Page 1 sur 1

[Résolu] Ajout automatique date dans cellule

Publié : 29 mai 2018 16:49
par Lafricain
Bonjour,
Me voilà encore de retour! Je n'arrive pas à enregistrer une modif dans une cellule dans laquelle je souhaite mettre la date du jour automatiquement, avec =MAINTENANT(), j'enregistre et à l'ouverture suivante plus rien... J'ai regardé cette fois dans les macros, je n'y ai rien trouvé! J'ai bien dévérouillé la feuille.
Merci d'avance.

Re: Ajout automatique date dans cellule

Publié : 29 mai 2018 19:44
par OOotremer971
Bonjour,

Module facture macro Nouveau, ligne 63 :

Code : Tout sélectionner

Saisie.getcellrangebyname("D45").string = ""
à replacer par :

Code : Tout sélectionner

Saisie.getcellrangebyname("D45").SetFormula(Now)
 Ajout : Tu peux aussi t'inspirer de la ligne 59 qui met une date en I11 :

Code : Tout sélectionner

Saisie.getcellrangebyname("I11").value = dateValue(Now)
 
@+

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 12:27
par Lafricain
Bonjour et déjà merci,
Alors si je mets:

Code : Tout sélectionner

Saisie.getcellrangebyname("D45").SetFormula(Now)
Ça fonctionne mais ça me met aussi l'heure ce qui n'est pas très utile...
Si je copie la ligne 59:

Code : Tout sélectionner

Saisie.getcellrangebyname("D45").value = dateValue(Now)
J'ai ces chiffres qui s'affichent dans la cellule : 43250??
Enfin j'ai tenté de faire ceci sur la cellule du dessous (D46):

Code : Tout sélectionner

Saisie.getcellrangebyname("D46").SetFormula(D45+30)
Pour ajouter 30 jours à la date de livraison, mais ça marche pas :fou: (J'ai tenté hein :) )

Cordialement, L'Africain

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 13:02
par jeanmimi
Bonjour,
Lafricain a écrit :J'ai ces chiffres qui s'affichent dans la cellule : 43250??
C'est normal, car il faut ensuite formater la cellule au Format Date.

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 15:26
par Lafricain
C'est normal, car il faut ensuite formater la cellule au Format Date.
Ok ça fonctionne, reste la date plus trente jour. J'ai mis dans la macro:

Code : Tout sélectionner

Saisie.getcellrangebyname("D46").SetFormula(Now+30)
(parce qu'avec D45+30 ça fonctionne pas) et j'ai à nouveau l'heure avec la date. Si je mets Today, il y a une erreur dans la macro.
PS: Faut-il ouvrir un nouveau fil?
PS2: Comment fait-on pour actualiser les changements d'une macro sans devoir ouvrir et fermer le document?

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 16:53
par rollmops
Bonjour,
Lafricain a écrit : parce qu'avec D45+30 ça fonctionne pas
En principe une formule commence par = donc :

Code : Tout sélectionner

Saisie.getcellrangebyname("D46").SetFormula("=D45+30")

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 17:04
par jeanmimi
Lafricain a écrit :reste la date plus trente jour.J'ai mis dans la macro:

Code : Tout sélectionner

Saisie.getcellrangebyname("D46").SetFormula(Now+30)
Tu as eu la solution un peu lus haut par OOotremer971
Les lignes de codes doivent être :

Code : Tout sélectionner

Saisie.getcellrangebyname("D45").Value=Now
Saisie.getcellrangebyname("D46").Value=Now+30
et les cellules passées en Format Date.

Re: Ajout automatique date dans cellule

Publié : 30 mai 2018 18:41
par Lafricain
Merci à vous tous ça fonctionne impec!