XL 2019 inscrire l'année automatiquement

[toffduq]

bonjour à tous
je rentre des numéro de dossier tout les jours dans un fichier Excel en B1
du style : 2022 11 0245 (2022 = année, 11 = mois, 0245 = numéro de dossier
la question est :
comment mettre 2022 automatiquement sans le taper en sachant qu'en 2023 il faudra noté 2023 si le mois est 01
et qu'il sera possible pendant le mois de janvier 2023 il pourra avoir des dossiers avec des année 2022 11 .... et 2022 12 ....

merci

 

[job75]

Bonjour toffduq,

Aller chercher midi à quatorze heures est un défaut classique, tapez 2022 ou 2023 et n'en parlons plus.

A+

 

[Orson83]

Bonjour toffduq, job75, le forum,
Une proposition avec un format personnalisé puis F9 pour figer.

 

[toffduq]

Bonjour toffduq, job75, le forum,
Une proposition avec un format personnalisé puis F9 pour figer.

merci mais cela ne fonctionne pas
le but est d'inscrire 11 0245 et qui me note 2022 11 0245
en sachant qu'en 2023 il faudra noté 2023 si le mois est 01

 

[Orson83]

Une autre proposition avec CONCATENER.

 

[toffduq]

la 2eme proposition est intéressante

 

[Orson83]

Je cite : "en sachant qu'en 2023 il faudra noté 2023 si le mois est 01."

Je comprends mais chaque année il y aura un 01 puisqu'il n'est pas assigné à une année en particulier, alors pourquoi ne pas saisir l'année en cours dans une cellule ?

 

[toffduq]

Je cite : "en sachant qu'en 2023 il faudra noté 2023 si le mois est 01."

Je comprends mais chaque année il y aura un 01 puisqu'il n'est pas assigné à une année en particulier, alors pourquoi ne pas saisir l'année en cours dans une cellule ?

je suis d'accord mais en janvier 2023 on a encore des dossier de 2022 12

 

[vgendron]

Bonjour
je ne fais que passer pour tirer mon chapeau à @Orson83 qui propose des choses sur la base de.. rien du tout..
pas un fichier exemple
@toffduq tu dis " en janvier 2023, on a encore des dossiers de 2022 12
et on est censé le savoir comment?? on ne sait meme pas de quoi tu parles
tous les jours tu tapes un numéro en B1 ==> et il faut que ca devienne "une année ; un mois et ton numéro"
==> l'année dépend de quoi??
le mois idem??

ne crois tu pas qu'il serait temps de poster ton fichier en expliquant clairement ce que tu souhaites avec des exemples??

pour l'année en cours, c'est year(now)

 

[Orson83]

Une suggestion :
Pourquoi ne pas noter une date de création de dossier, puis la figer...
... et la date du dernier traitement

Bonjour
je ne fais que passer pour tirer mon chapeau à @Orson83 qui propose des choses sur la base de.. rien du tout..
pas un fichier exemple
@toffduq tu dis " en janvier 2023, on a encore des dossiers de 2022 12
et on est censé le savoir comment?? on ne sait meme pas de quoi tu parles
tous les jours tu tapes un numéro en B1 ==> et il faut que ca devienne "une année ; un mois et ton numéro"
==> l'année dépend de quoi??
le mois idem??

ne crois tu pas qu'il serait temps de poster ton fichier en expliquant clairement ce que tu souhaites avec des exemples??

pour l'année en cours, c'est year(now)

@vgendron : j'y crois, je ne lâche rien !

 

[Orson83]

Une suggestion :
Pourquoi ne pas noter une date de création de dossier, puis la figer ? ..
... et la date du dernier traitement à saisir manuellement (pas en auto pour ne pas qu'Excel la modifie) ?

 

[Dranreb]

Bonjour.
On ne sait même pas dans quelle colonne ce numéro doit être saisi, ni si elle porte un format texte.
Une vraie plaie ces demandes dépourvues de classeur joint.

 

[toffduq]

je vous joint mon fichier pour que vous voyer mon cas en B1

 

[vgendron]

on progresse.

pour écrire en B1

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Format(DateSerial(Year(Now), Month(Now), 1), "yyyy mm") & " " & Format(Target, "0000")
Application.EnableEvents = True
End Sub

manque les explications... parce que cette partie

en sachant qu'en 2023 il faudra noté 2023 si le mois est 01
et qu'il sera possible pendant le mois de janvier 2023 il pourra avoir des dossiers avec des année 2022 11 .... et 2022 12 ....

reste un mystère

 

[toffduq]

on progresse.

pour écrire en B1

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Format(DateSerial(Year(Now), Month(Now), 1), "yyyy mm") & " " & Format(Target, "0000")
Application.EnableEvents = True
End Sub

manque les explications... parce que cette partie

reste un mystère

quand nous seront en 2023
au mois de janvier il nous restera des dossiers à traiter de 2022
du coup avec le VBA il sera automatiquement noté 2023