Dates à transformer

Bonsoir,

plusieurs possibilités,
sélectionne ta plage à traiter et clic droit sur la sélection/Format de cellule/onglet Nombre/Personnalisée
et crée ce format
0000"-"00"-"00 ou encore ####"-"##"-"##
et OK

ou dans une autre colonne avec cette formule pour une saisie en A2 et incrémenter vers le bas
=GAUCHE(A2;4)&"-"&GAUCHE(DROITE(A2;4);2)&"-"&DROITE(A2;2)

puis sélectionner la plage modifiée/clic droit Copier/clic droit sur la même sélection Coller (la formule sera remplacée par des valeurs fixes
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

Bonsoir chers tous

Une possibilité en vba

Sub Format_date()
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Sheets("Feuil1").Range("A1:A10") 'PLAGE A ADAPTER
If Not WorksheetFunction.IsText(cell.Value) Then
cell.Value = Left(cell.Value, 4) & "-" & Mid(cell.Value, 5, 2) & "-" & Mid(cell.Value, 7, 2)
cell.NumberFormat = "yyyy-mm-dd"
 Else
Cancel = True
End If
Next
Application.ScreenUpdating = False
End Sub

Cdt

Merci beaucoup à vous deux mais j'ai trouvé une autre solution:

J'ai converti ma cellule en largeur fixe ce qui m'a donné 3 nouvelles cellules et j'ai ensuite utiliser la fonction DATE et sélectionner ces 3 dernières. Ça prend plus de place c'est certain mais c'est tout de même efficace ;)

Bonjour,

moins de place et plus rapide :
'Données / Convertir', à l'étape 3 choisir Date et AMJ
eric