Transformation date

JBARBE

XLDnaute Barbatruc

• 31 Mars 2015

• #2

Re : Transformation date

Florian53 à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Mars 2015

• #3

Re : Transformation date

bonjour à tous,

une solution par formule et par fonction

à+
Philippr

 

Pièces jointes

• 111.xlsm

  17 KB · Affichages: 20
• 111.xlsm

  17 KB · Affichages: 26
• 111.xlsm

  17 KB · Affichages: 25

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Mars 2015

• #4

Re : Transformation date

Bonjour Florian

Salut JBARBE

Via 2 fonctions personnalisées

Edit: Salut Philippe

 

Pièces jointes

• Florian.xlsm

  15.6 KB · Affichages: 16
• Florian.xlsm

  15.6 KB · Affichages: 20
• Florian.xlsm

  15.6 KB · Affichages: 18

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2015

• #5

Re : Transformation date

Bonjour Florian53, JBARBE, Philippe, Pierre,

Voyez cette macro dans le fichier joint :

Code:

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+

 

Pièces jointes

• Format de dates(1).xls

  41 KB · Affichages: 16

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Mars 2015

• #6

Re : Transformation date

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

 

Vote positif 0 Vote négatif