Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel année par defaut

année par defaut

4 réponses
Avatar
Mdi
Bonjour, suite à une demande précédente pour une date avec une année par
defaut, j'ai trouvé ça à taper sous VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target) Then
Target.NumberFormat = "DD/MM/YYYY" ' à adapter
Target = DateSerial(2006, Month(Target), Day(Target))
End If
End Sub

ça marche 1 fois (arf) après ça excel 2003 ferme tout simplement. Quelqu'un
à une suggestion ?
Merci.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" a écrit dans le message de news:
4649ec5e$0$27388$
Bonjour, suite à une demande précédente pour une date avec une année par
defaut, j'ai trouvé ça à taper sous VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target) Then
Target.NumberFormat = "DD/MM/YYYY" ' à adapter
Target = DateSerial(2006, Month(Target), Day(Target))
End If
End Sub

ça marche 1 fois (arf) après ça excel 2003 ferme tout simplement.
Quelqu'un à une suggestion ?
Merci.




Avatar
Mdi
Non, ça ne marche tout simplement pas. Je ne comprend pas.
j'entre une date au format jj/mm je valide, l'affichage passe les données
sous la forme jj/mm/aa et l'année est bien à 2006 mais excel ferme aussitôt
après sans aucun message d'enregistrement.

"Daniel" a écrit dans le message de news:

Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" a écrit dans le message de news:
4649ec5e$0$27388$
Bonjour, suite à une demande précédente pour une date avec une année par
defaut, j'ai trouvé ça à taper sous VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target) Then
Target.NumberFormat = "DD/MM/YYYY" ' à adapter
Target = DateSerial(2006, Month(Target), Day(Target))
End If
End Sub

ça marche 1 fois (arf) après ça excel 2003 ferme tout simplement.
Quelqu'un à une suggestion ?
Merci.








Avatar
MichDenis
Utilise la même macro dans un classeur vierge
as-tu le même problème ?

Si tu utilises la commande Ctrl + ; pour saisir
une date dans une cellule au format standard,
quel est le format "date" par défaut exhibé dans la cellule ?

Est-ce que les mises à jour de ta version ont été effectuées ?



"Mdi" a écrit dans le message de news:
464ebef8$0$27366$
Non, ça ne marche tout simplement pas. Je ne comprend pas.
j'entre une date au format jj/mm je valide, l'affichage passe les données
sous la forme jj/mm/aa et l'année est bien à 2006 mais excel ferme aussitôt
après sans aucun message d'enregistrement.

"Daniel" a écrit dans le message de news:

Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" a écrit dans le message de news:
4649ec5e$0$27388$
Bonjour, suite à une demande précédente pour une date avec une année par
defaut, j'ai trouvé ça à taper sous VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target) Then
Target.NumberFormat = "DD/MM/YYYY" ' à adapter
Target = DateSerial(2006, Month(Target), Day(Target))
End If
End Sub

ça marche 1 fois (arf) après ça excel 2003 ferme tout simplement.
Quelqu'un à une suggestion ?
Merci.








Avatar
Mdi
Effectivement sur un autre poste ça marche très bien. Merci pour votre aide
à tous !