Figer l'année

Roland_M

XLDnaute Barbatruc

• 4 Octobre 2016

• #2

Bonsoir,

je comprends pas très bien, perso, avec le format cellule mmm si je tape 01/01 j'ai bien janv et 01/02 j'ai bien févr !?

à propos de la date sytème il est préférable de ne jamais la modifier !

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 5 Octobre 2016

• #3

Bonjour Roland et le forum

Oui effectivement cela inscrit bien janv dans la cellule, mais si tu regardes bien la vrai date reste 01/01/2016 ce qui normal puisque la date system est en 2016. Mais n'empêche que pour des besoins de planification, i faut que cette date soit 01/01/2017.

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 5 Octobre 2016

• #4

Bonjour sonskriverez, Roland_M, toutes et tous,

J'ai moi même réfléchi à cette question, mais à part taper la date 01/01 au format "mmm" par exemple en "A1" et mettre en "A2" =DATE(ANNEE(A1)+1;MOIS(A1);JOUR(A1)) au format "mmm", où plus court =MOIS.DECALER(A1;12), puis se servir de "A2" pour d'autres calcules, je ne vois pas d'autres moyens d'obtenir ce que tu souhaites.
Peut-être en VBA, mais là, il faudra attendre qu'un pro regarde ce problème.

Cordialement.

 

Dernière édition: 5 Octobre 2016

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Octobre 2016

• #5

Bonjour à tous,

en même temps il faudrait peut être aussi rester logique !
si on tape 01/01 c'est tout à fait normal que ça mette l'année en cours, j'avais bien vu cela.

on pourrait aussi bien vouloir taper que 01 pour janv 02 pour févr ...
ce ne serait pas plus simple de taper 01/01/2017 que de chercher autant de complications pour 4 chiffres à taper au clavier !?
vous pouvez me répondre que moins on en fait mieux on se porte !

sinon une solution avec ce code feuille
il te faut mettre la date qui t'intéresse dans une cellule, exp ici en A1
avec test des cellules concernées: si pas dans ce champ exit

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
Dim Dat As Date
If IsDate(Target) Then Dat = Day(Target) & "/" & Month(Target) & "/" & Range("A1"): Target = Dat
End Sub

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 5 Octobre 2016

• #6

Bsr Roland

Ouais je sais bien que cela fait un peu faignasse mais j'ai pas mal de feuilles à gérer. Ton bout de code fonctionne, je vais m'en contenter.

Merci pour ton aide

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 5 Octobre 2016

• #7

Bonsoir Roland,
"bout de code" ... "contenter" ... ben en voilà un qui est pas avare de compliments !!!

Pour ma part je trouve ta réponse efficace et judicieuse : bravo !

Cordialement

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Octobre 2016

• #8

Salut à toi Dugenou !

eh oui, comme tu peux t'en rendre compte, les temps changent et les mentalités aussi !

 

Vote positif 0 Vote négatif