Transformation date

[Florian53]

Bonjour,

Est ce possible de transformer un nombre type " 201501 " en " 01-2015". Je suis a la recherche d'un code vba pour réaliser ceci mais je ne trouve pas.

Cordialement

 

[JBARBE]

Re : Transformation date

Bonjour,

Est ce possible de transformer un nombre type " 201501 " en " 01-2015". Je suis a la recherche d'un code vba pour réaliser ceci mais je ne trouve pas.

Cordialement

Bonjour à tous,

A essayer :
Pour la référence de cellule A1 et la textbox: "TxtDate"

Range("A1") = Format(TxtDate, "mm/yyyy")

Mais ce n'est pas gagné !

Bonne journée !

 

[phlaurent55]

Re : Transformation date

bonjour à tous,

une solution par formule et par fonction

à+
Philippr

 

[pierrejean]

Re : Transformation date

Bonjour Florian

Salut JBARBE

Via 2 fonctions personnalisées

Edit: Salut Philippe

 

[job75]

Re : Transformation date

Bonjour Florian53, JBARBE, Philippe, Pierre,

Voyez cette macro dans le fichier joint :

Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, [A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In r 'si entrées multiples
  If r.Value2 Like "######" Then
    r = "=--(""1/" & Right(r.Value2, 2) & "/" & Left(r.Value2, 4) & """)"
    If IsDate(r) Then r = r Else r = ""
  End If
Next
Application.EnableEvents = True
End Sub

A+

 

[Florian53]

Re : Transformation date

Merci à tous j'ai essayé vos solutions elles fonctionnent toutes impeccable. Un grand merci à vous