Date juste avec le jour

team18fr · 29 Septembre 2017

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 · 29 Septembre 2017

team18fr à dit:
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 · 29 Septembre 2017

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 · 29 Septembre 2017

Bonjour, team18fr, Modeste geedee , le Forum,

Comme ceci ?

Code:

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 · 29 Septembre 2017

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 · 29 Septembre 2017

Bonsour®

team18fr à dit:
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

VB:

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 · 29 Septembre 2017

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 · 29 Septembre 2017

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 · 29 Septembre 2017

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

Jacky67 · 29 Septembre 2017

team18fr à dit:
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 · 30 Septembre 2017

Re à tous

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

Modeste geedee à dit:
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 · 30 Septembre 2017

Jacky67 à dit:
Bonsoir,
Si tu ne veux absolument pas le "DTPICKER ", essaye la pj

Merci c'est exactement ce que je cherchais.

Date juste avec le jour

team18fr

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

team18fr

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

team18fr

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

team18fr

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

team18fr

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

team18fr

XLDnaute Occasionnel

Discussions similaires