Transformer 2016 en 216

Bonjour à tous,

Pour une numérotation, je souhaiterais avoir 216.... à la place de 2016.

dans la cellule X315 je saisi 3945

Je m'explique en A1 j'ai la date du 01/07/2016

je souhaiterais avoir dans ma cellule X315 : 2163945.

Si quelqu'un à une idée, je suis preneuse

Je vous remercie par avance

Cordialement.

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$X$315" And Target <> "" Then
        If IsNumeric(Target) And IsDate(Me.Range("A1")) Then
            Application.EnableEvents = False
            Target = Year(Me.Range("A1")) - 1800 & Target
            Application.EnableEvents = True
        End If
    End If
End Sub

A mettre dans module de la feuille.

Cordialement.

Bonjour MFerrand,

Je pensais plus à une formule !! j'ai 12 feuilles, c'est à dire 12 mois.

Cela dit je garde votre solution.

Merci beaucoup,

Bonjour,

Essaye la formule suivante mais pas dans la cellule X315 :

=SUBSTITUE(ANNEE(A1);"0";"")&X315

Tu écris dans X315... et tu veux que ce que tu écris soit modifié ! Cela exclut les formules : si tu mets une formule dans X315, tu n'y écris plus !

Si même config à appliquer sur 12 feuilles, il faut adapter au même évènement niveau classeur.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$X$315" And Target <> "" Then
        If IsNumeric(Target) And IsDate(Sh.Range("A1")) Then
            Application.EnableEvents = False
            Target = Year(Sh.Range("A1")) - 1800 & Target
            Application.EnableEvents = True
        End If
    End If
End Sub

Et elle doit être placée dans le module ThisWorkbook.

bonjour, Raja,

pas facile de vous envoyer mon fichier.

Ok je vous envoi un fichier de ce que je souhaiterais

Merci.

Re,

Que veux-tu ? La formule marche comme tu veux.