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.
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
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.
Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" <Alain_Foutoir@mcihotmail.fr> a écrit dans le message de news:
4649ec5e$0$27388$ba4acef3@news.orange.fr...
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.
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.
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.
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ODHxFcylHHA.4132@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" <Alain_Foutoir@mcihotmail.fr> a écrit dans le message de news:
4649ec5e$0$27388$ba4acef3@news.orange.fr...
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.
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.
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.
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" <Alain_Foutoir@mcihotmail.fr> a écrit dans le message de news:
464ebef8$0$27366$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ODHxFcylHHA.4132@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Il n'y a pas de raison. Ton classeur est peut-être corrompu ?
Essaie avec un nouveau classeur.
Cordialement.
Daniel
"Mdi" <Alain_Foutoir@mcihotmail.fr> a écrit dans le message de news:
4649ec5e$0$27388$ba4acef3@news.orange.fr...
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.
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.
Mdi
Effectivement sur un autre poste ça marche très bien. Merci pour votre aide à tous !
Effectivement sur un autre poste ça marche très bien. Merci pour votre aide
à tous !