Intégrer le "/" dans une suite de nombre
Résolu
Crealex1979
Messages postés
15
Statut
Membre
-
Crealex1979 Messages postés 15 Statut Membre -
Crealex1979 Messages postés 15 Statut Membre -
Bonjour,
Je cherche la méthodo pour pouvoir faire en sorte que les collègues saisissent une suite de chiffre pour une date et que les barres de "/" se mettent seules une fois la cellule validée. Je travaille sur Excel 2010.
D'avance merci pour vos réponses.
Bonne journée
Je cherche la méthodo pour pouvoir faire en sorte que les collègues saisissent une suite de chiffre pour une date et que les barres de "/" se mettent seules une fois la cellule validée. Je travaille sur Excel 2010.
D'avance merci pour vos réponses.
Bonne journée
2 réponses
-
Bonjour,
En vba Faire Alt F11 pour accéder à l'éditeur.
Cliquez sur la feuille qui contient les données en haut à gauche.
Mettre ce code :
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) '---Convertit un nombre de 7 ou 8 chiffres en date--- Dim d As Variant d = Target.Value 'l'idéal serait de connaître la frappe exacte... If Not (d Like "#######" Or d Like "########") Then Exit Sub d = Left(Right(d, 6), 2) & "/" & Left(Right(0 & d, 8), 2) & "/" & Right(d, 4) 'mm/dd/yyyy d = ExecuteExcel4Macro("DATEVALUE(""" & d & """)") If IsNumeric(d) Then Target.NumberFormat = "dd/mm/yyyy" Target = d Else Target.NumberFormat = "General" End If End Sub
Allez sur la feuille, changer de feuille, revenez , c'est opérationnel
Il suffit d'enregistrer sous Classeur prenant en charge les macros
-
