Date juste avec le jour

[team18fr]

Bonjour à tous,
Est-il possible que lorsque je met le numéro d'un jour du mois la date ce complète avec le mois et l'année du jour ?
Dans ma cellule si je met le chiffre 12 et que l'on est au mois de Février, je voudrais voir dans la cellule 12/02/2017. Car en mettant la cellule en format date lorsque je tape un chiffre j'ai 12/01/1990 qui s'affiche.
Merci

 

[Modeste geedee]

Bonjour à tous,
Est-il possible que lorsque je met le numéro d'un jour du mois la date ce complète avec le mois et l'année du jour ?
Dans ma cellule si je met le chiffre 12 et que l'on est au mois de Février, je voudrais voir dans la cellule 12/02/2017. Car en mettant la cellule en format date lorsque je tape un chiffre j'ai 12/01/1990 qui s'affiche.
Merci

??? c'est de la fainéantise ou bien ... ???
sans macro, sans formule
tu sais quel numéro de mois on est ...
tape alors : (jour)/(numéro)
soit :
12/9
tu peux même taper :
12 Sept
12 Oct
11 déc
....

 

[team18fr]

Non ce n'est pas de la fainéantise c'est un fichier pour une équipe et tous le monde n'est pas fort avec un PC c'est pour ça qu'au lieu de taper toute la date il serait plus facile de mettre que le jour et que la date s'affiche en entier.

 

[DoubleZero]

Bonjour, team18fr, Modeste geedee , le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Column > 1 Or c.Count > 1 Then Exit Sub
    If IsNumeric(c) Then c = Month(Date) & "/" & Format(c, "00") & "/" & Year(Date)
End Sub

A bientôt

 

[team18fr]

Merci pour ton aide mais je n'arrive pas à le faire fonctionner.
Les cellules concernées sont les lignes 4,5,6,7 à partir de la colonne H.
J'ai collé le code dans visual basic sur ma feuille 1.

 

[Modeste geedee]

Bonsour®

Non ce n'est pas de la fainéantise c'est un fichier pour une équipe et tous le monde n'est pas fort avec un PC c'est pour ça qu'au lieu de taper toute la date il serait plus facile de mettre que le jour et que la date s'affiche en entier.

Inserer un DTPICKER dans la feuille
Puis ce code dans le code de la feuille

Option Explicit
Private Sub DTPicker1_Change()
DTPicker1.TopLeftCell.Value = DTPicker1.Value
DTPicker1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DTPicker1.Value = Date
DTPicker1.Visible = (Target.Column = 8 And Target.Row > 3 And Target.Row < 8)
DTPicker1.Left = Target.Left
DTPicker1.Top = Target.Top
End Sub

 

[team18fr]

Merci mais je préfère vraiment mettre juste le numéro du jour car j'ai plus de 10 cellules et la date est à la verticale.

 

[Staple1600]

Bonsoir le fil, le forum

S'il s'agit de mettre la date du jour alors il suffit de toujours se souvenir de ce simple raccourci
CTRL+;
(donc on appuie sur CTRL puis sur le point-virgule)

La date du jour sera alors automatiquement insérée dans la cellule active.

 

[team18fr]

Non je ne veux pas forcément la date du jour mais mettre un jour du mois en cours.

 

[Jacky67]

Merci mais je préfère vraiment mettre juste le numéro du jour

Bonsoir,
Si tu ne veux absolument pas le "DTPICKER ", essaye la pj

 

[Staple1600]

Re à tous

c'est un fichier pour une équipe et tous le monde n'est pas fort avec un PC

tape alors : (jour)/(numéro)
soit :
12/9

Tout le monde est assez fort pour savoir que nous sommes le 29
donc on saisit: 29/9

Qu'est-ce qui te convient pas dans cette solution de Modeste ?
(entre saisir 29 et 29/9, ça fait fait que deux caractères de plus
Si c'est trop, il a raison, c'est bel et bien de la fainéantise ou en tout cas ça y ressemble bigrement

 

[team18fr]

Bonsoir,
Si tu ne veux absolument pas le "DTPICKER ", essaye la pj

Merci c'est exactement ce que je cherchais.