Format date automatiquedans une cellule excel
Nicolas
-
Emeline -
Emeline -
Bonjour
je cherche comment afficher automatiquement une date dans une cellule excel après l'avoir taper sous cette forme 12022005. je souhaiterai que la date taper se mette sous cette forme 12/02/2005. si quelcun c'est repondre a ma question merci d'avance
je cherche comment afficher automatiquement une date dans une cellule excel après l'avoir taper sous cette forme 12022005. je souhaiterai que la date taper se mette sous cette forme 12/02/2005. si quelcun c'est repondre a ma question merci d'avance
A voir également:
- Format date automatiquedans une cellule excel
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Liste déroulante excel - Guide
- Format apfs - Guide
3 réponses
bonjour , j'ai cherché de mon coté , mais j'ai fini par laisser tomber , j'en étais arrivé à créer une macro qui convertissait la cellule en une longue serie de colonnes chacune ne comportant qu'un chiffre , puis je rassemblais le tout sous forme "jj/mm/aaaa" , et enfin je faisais le ménage , pour finir par me rendre compte que si tu peux saisir 12022005 , tu peux aussi directement taper "12/02/2005" , non ?
re-salut ;
autrement j'ai ça , mais il faut que la cellule soit bien selectionnée ; cette macro se lance par un bouton
Sub Macro5()
'
val_pos = ActiveCell.AddressLocal
If ActiveCell.Value < 10000000 Then
Selection.NumberFormat = "@"
ActiveCell = "0" & ActiveCell
End If
Selection.NumberFormat = "@"
Selection.TextToColumns Destination:=Range(val_pos), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End Sub
autrement j'ai ça , mais il faut que la cellule soit bien selectionnée ; cette macro se lance par un bouton
Sub Macro5()
'
val_pos = ActiveCell.AddressLocal
If ActiveCell.Value < 10000000 Then
Selection.NumberFormat = "@"
ActiveCell = "0" & ActiveCell
End If
Selection.NumberFormat = "@"
Selection.TextToColumns Destination:=Range(val_pos), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End Sub
