Inscrire l'année automatiquement

Bonjour

Il faudrait utiliser VBA pour corriger juste après la frappe mais que cela ne se déclenche pas en cas de modif : vite usine à gaz

As-tu une autre colonne où tu indiques la date ?

non il y a que là

Re

Et en dehors de B1 y a quoi ?

je te joint le fichier

tu verra la question est pour B1 et B3 ou il y a l'année à inscrire

sur les autres feuilles cela se note automatiquement en validant

RE

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing And Intersect(Target, [B3]) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Format(Date, "yyyy mm") & " " & Target.Value
    Application.EnableEvents = True
End Sub

Cependant cela ne gère pas la modif :

• soit il faut veiller à retaper le numéro et pas jusle changer au bout
• soit il faut mémoriser la modif, l'annuler pour vérifier ce qu'il y avait avant et orienter la suite

ca marche bien pour 2022

mais quand on sera en 2023 peut ton encore avoir 2022 selon le mois du dossier

RE

On prend la date du jour donc non

Sinon il faut prévoir un paramètre qui bloque la modif : par exemple

si x dans telle cellule on sort du code,

à charge pour l’utilisateur de saisir tout

ok ca marche