[Excel] Format date changeant macro/normal
Résolu
deniooo
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
deniooo Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
deniooo Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
Bonjours,
Je veux définier la valeur d'une cellule entre 2 date, 01/2008 et 12/2099. Je réussi trés bien en passant par les menus excel à la souris. Cela me donne un résultat visible :
déc-08
Or dés que je veux le passer en macro, il ne prends plus ce format de date mais le format basique xx/xx/xxxx..
Je ne vois pas quel champ modifier pour changer ce format. Le macro automatique d'excel m'a donné les codes suivant :
Range("E14").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1/1/2008", Formula2:="31/12/2099"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
end with
une idée pour garder le premier format (mois-année) sous macro ?!
merci.
Je veux définier la valeur d'une cellule entre 2 date, 01/2008 et 12/2099. Je réussi trés bien en passant par les menus excel à la souris. Cela me donne un résultat visible :
déc-08
Or dés que je veux le passer en macro, il ne prends plus ce format de date mais le format basique xx/xx/xxxx..
Je ne vois pas quel champ modifier pour changer ce format. Le macro automatique d'excel m'a donné les codes suivant :
Range("E14").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1/1/2008", Formula2:="31/12/2099"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
end with
une idée pour garder le premier format (mois-année) sous macro ?!
merci.
A voir également:
- [Excel] Format date changeant macro/normal
- Format epub - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Format factory - Télécharger - Conversion & Codecs
- Liste déroulante excel - Guide
- Hp usb disk storage format tool - Télécharger - Stockage
1 réponse
Function Datte(ByVal cel As Range)
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1/1/2005", Formula2:="12/31/2099"
End With
Selection.NumberFormat = "mmm-yyyy"
End Function
(encore du code si quelqu'un a le même probléme)
Probléme résolu !
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1/1/2005", Formula2:="12/31/2099"
End With
Selection.NumberFormat = "mmm-yyyy"
End Function
(encore du code si quelqu'un a le même probléme)
Probléme résolu !