Modifier le format de date à la saxonne

Version imprimable

01/12/2017, 09h51
bienfp

Modifier le format de date à la saxonne

Bonjour à tous,

J'ai une fichier pour mes comptes (bancaires) avec plusieurs sheets (moi, ma femme, le compte joint, la feuille "objets" qui est un foure tout de listes et autre).

La démarche normale est d'ajouter une nouvelle ligne et de la compléter, mais pour les frais récurant, j'ai fait un tableau reprenant le schéma de base sur la feuille "objets".
Et de ce tableau j'ai un macro qui vient copier la ligne qui va bien où je veux. Jusque là tout va bien.
Là où ça commence à ne plus aller, c'est que la première cellule est une date calculée et que lorsque je copie la ligne, je suis obligé d'en faire une copie de valeur et non de formule.
Mais lorsque je fais la copie de valeur, la cellule commence par une apostrophe et lorsque je cherche à la virer via vba, le format de ma cellule bascule en mode date à la Saxon... que je n'arrive pas à remettre en mode "normal".
Le "format(Date(....." me colle systématiquement la date du jour... serte dans le bon sens, mais ce n'est pas la date du jour qui m'intéresse.

Malheureusement, à l'instant, je suis incapable de remettre la main sur le fichier sur lequel j'ai la petite macro qui va mal, que j'ai fait hier soir chez moi.

Quelqu'un aurait il la formule toute prête pour :
- supprimer le premier caractère de l'ActiveCell : '02/12/2017
- s'assurer que le format à la sortie du tronquage soit toujours le même et non saxon (12/02/17)

D'avance merci

Pierre
01/12/2017, 11h52
Marc-L

Bonjour !

- Replace
- CDate … (tout étant déjà dans l'aide VBA interne !)

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
01/12/2017, 16h30
Menhir

Citation:

Envoyé par bienfp

le format de ma cellule bascule en mode date à la Saxon... que je n'arrive pas à remettre en mode "normal".

L'enregistreur automatique de macro aurait pu te donner ça.

Code:

Range("MaCellule").NumberFormat = "General"

Citation:

Le "format(Date(....." me colle systématiquement la date du jour... serte dans le bon sens, mais ce n'est pas la date du jour qui m'intéresse.

Pourquoi utiliser la fonction "Format" qui transforme ta date en texte ?
Mieux vaudrait laisser une vraie date et jouer sur le format de cellule avec NumberFormat = "dd/mm/yy".

Citation:

- supprimer le premier caractère de l'ActiveCell : '02/12/2017

Meilleure question : comment faire en sorte qu'il n'apparaisse pas ?
Car on peut "copier la valeur" en ayant une vraie date comme résultat.
Je pense que le coupable est la formule se trouvant dans ta cellule source. Mais comme tu ne dis pas de quelle formule il s'agit, difficile d'en dire plus.
02/12/2017, 00h23
bienfp

Ah, me revoilà.

Merci pour vos retours, qui je dois l'avouer ne m'ont pas forcément aidé, j'ai essayé d'explorer un peu les propositions sans aboutir !

Voici la formule qui me sert à calculer la date du prochain "frais automatique".
=SI(JOUR(AUJOURDHUI())>15;"02/"&SI(MOIS(AUJOURDHUI())=12;"01";MOIS(AUJOURDHUI())+1)&"/"&SI(MOIS(AUJOURDHUI())=12;ANNEE(AUJOURDHUI())+1;ANNEE(AUJOURDHUI()));"02/"&MOIS(AUJOURDHUI())&"/"&ANNEE(AUJOURDHUI()))

En gros avant le 15 du mois je prends la date 02/mm/yyyy, après le 15 du mois je créé la date 02/mm+1/yyyy (voir yyyy+1 si on est en décembre).
Bref, à priori ça me donne une date qui va bien, ou plutôt s'affiche comme je le souhaite.
Je copie colle ma ligne de Ax à Ix sur une autre feuille. Ma formule date est copiée collée en A3 sans problème.

Mais elle ne peut pas rester sous forme de formule. Il me faut une date DATE, pas une formule.

....
....
Je sèche.

J'ai essayé plein de truc, ... du formatage, du bricolage... je ne pige pas. Ah oui, je tâtonne en vb... bcp !
D'ailleurs

Citation:

(tout étant déjà dans l'aide VBA interne !)

A part les forums, j'ai jamais ni trop cherché ni trop trouvé l'aide interne.

Quel est la manipe pour transformer cette belle et longue formule en simple date. Et pas Saxonne ?

Merci d'avance pour votre aide

Pierre
02/12/2017, 00h57
78chris

Bonjour

Ceci serait plus adaptée comme formule

Code:

=FIN.MOIS(AUJOURDHUI();SI(JOUR(AUJOURDHUI())<=15;-1;0))+2

I suffit que tes cellules de destination soient au format date : si tu colles la valeur (voir PasteSpecial) tu obtiens bien une date.

Si le format n'est pas positionné avant, cela apparait sous forme numérique mais il suffit de le mettre en date
02/12/2017, 10h44
bienfp

C'EST BON !!!

Merci 78Chris ! effectivement ma formule de départ faisait une forme de concaténation que devait être considérée comme du texte, d'où j'imagine l'apostrophe lorsque je ne copiais que la valeur.

Avec ta formule, je remonte directement une date et la copie de valeur fonctionne tout de suite. Nickel.
Je n'ai donc plus besoin d'essayer de supprimer quoi que ce soit ou reformater mes cellule. Sachant que A3 était déjà une date avant la copie.

Merci beaucoup.

Pierre
04/12/2017, 09h45
Menhir

Citation:

Envoyé par bienfp

Merci 78Chris ! effectivement ma formule de départ faisait une forme de concaténation que devait être considérée comme du texte, d'où j'imagine l'apostrophe lorsque je ne copiais que la valeur.

La prochaine fois, pour recomposer une date, utilise la fonction DATE() plutôt qu'une concaténation de texte.
https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR
04/12/2017, 15h20
bienfp

Merci Menhir, j'irai prendre le temps de lire un peu ça.
05/12/2017, 00h23
clementmarcotte

Citation:

Envoyé par bienfp

Bonjour à tous,

- s'assurer que le format à la sortie du tronquage soit toujours le même et non saxon (12/02/17)

D'avance merci

Pierre

Ouais. Sauf que ton expression saxon est archi-fausse. Là, tu parles des Américains. Les Britanniques utilisent le même format que les Français. Les Canadiens (Anglais et Français) sont en train (du moins sur les documents de l'État) de passer du format "britanico-français" au format ISO année-mois-jour. Et maudit que cela va bien pour trier des dates.
05/12/2017, 10h47
Menhir

Citation:

Envoyé par clementmarcotte

Les Canadiens (Anglais et Français) sont en train (du moins sur les documents de l'État) de passer du format "britanico-français" au format ISO année-mois-jour. Et maudit que cela va bien pour trier des dates.

L'année étant elle-même, de gauche à droite, décomposable en millénaire-siècle-décénie-année (donc du plus grand au plus petit), le format année-mois-jour est effectivement le plus logique.