Lafricain a écrit: Faut-il indiquer quelque part dans la macro le type de formatage? Là je l'ai fait avec le menu contextuel.
Alors oui tu peux contourner de cette façon. Dans le fichier original les cellules D45 et D46 sont vidées de leur contenu lorsque l'on clique sur le bouton nouveau. Les dates sont renseignées manuellement puis transférées vers la feuille Factures lorsqu'on appuie sur le bouton enregistrer. Elle sont ensuite rapatriées au format texte par la macro
VoirFacture et les cellules conservent alors le format texte.
Pour contourner il faut d'abord créer un style
Date. Le plus simple est de mettre au format date les cellules D45 et D46 puis d'ouvrir le styliste en appuyant sur la touche de fonction F11.
Sélectionne une des deux cellules D45 ou D46 puis dans le styliste clique sur l’icône centrale parmi les trois icônes situées en haut à droite. Une info bulle doit te proposer de créer un style à partir de la sélection. Une fois cliqué sur cette icône il suffit juste de nommer le style
DateEnsuite dans la macro
Nouveau tu ajoutes les lignes suivantes :
- Code : Tout sélectionner AgrandirRéduire
Saisie.getcellrangebyname("D45").CellStyle = "Date"
Saisie.getcellrangebyname("D46").CellStyle = "Date"
il faut les mettre sous les lignes existantes :
- Code : Tout sélectionner AgrandirRéduire
Saisie.getcellrangebyname("D45").value = dateValue(Now)
Saisie.getcellrangebyname("D46").SetFormula("=D45+30")
ce qui donne au final :
- Code : Tout sélectionner AgrandirRéduire
Saisie.getcellrangebyname("D45").value = dateValue(Now)
Saisie.getcellrangebyname("D45").CellStyle = "Date"
Saisie.getcellrangebyname("D46").SetFormula("=D45+30")
Saisie.getcellrangebyname("D46").CellStyle = "Date"
@+