Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format que
tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format que
tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format que
tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4311ed8e$0$17203$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OyEk3F9qFHA.3836@TK2MSFTNGP12.phx.gbl...
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4311ed8e$0$17203$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OyEk3F9qFHA.3836@TK2MSFTNGP12.phx.gbl...
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient :
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire, ( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" a écrit dans le message de news:
4312ba42$0$17210$
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" a écrit dans le message de news:
%23mjJLp$Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4312ba42$0$17210$8fcfb975@news.wanadoo.fr...
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23mjJLp$qFHA.3596@TK2MSFTNGP15.phx.gbl...
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4311ed8e$0$17203$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OyEk3F9qFHA.3836@TK2MSFTNGP12.phx.gbl...
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" a écrit dans le message de news:
4312ba42$0$17210$
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" a écrit dans le message de news:
%23mjJLp$Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" a écrit dans le message de news:
4312ba42$0$17210$
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" a écrit dans le message de news:
%23mjJLp$Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4312ba42$0$17210$8fcfb975@news.wanadoo.fr...
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23mjJLp$qFHA.3596@TK2MSFTNGP15.phx.gbl...
Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4311ed8e$0$17203$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OyEk3F9qFHA.3836@TK2MSFTNGP12.phx.gbl...
Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
431186f8$0$27421$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
4310b4c2$0$27419$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eaJFukyqFHA.908@tk2msftngp13.phx.gbl...
Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43109a85$0$1717$8fcfb975@news.wanadoo.fr...
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
Bonjour DC,
Pour un format particulier, tu as la réponse dans le premier message que
je te faisais, il y a de ça quelques jours :
'---------------------------
Dim MaDate as string
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
MaDate = Format(C, "dd mmmm yyyy") ou le format de ton choix.
c.FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next
'---------------------------
Salutations!
"DC" a écrit dans le message de news:
4312ba42$0$17210$
Bonjour à Tous.................Bonjour michdenis,
Sans modifier la ligne j'obtient : 29 août 2005
En modifiant la ligne j'obtient : 29/08/05
Salutations!...........Merci d'avance..........DC
"michdenis" a écrit dans le message de news:
%23mjJLp$Bonjour DC,
Tu modifies cette ligne : c.Value = CDate(c)
Par
c.FormulaLocal = "=NOMPROPRE(""" & CDate(c) & """)"
Salutations!
"DC" a écrit dans le message de news:
4311ed8e$0$17203$
Bonsoir à Tous.............Bonsoir michdenis,
Ta macro fonctionne très bien, juste un mot sur la fonction NOMPROPRE(),
c'est AV qui me la introduite dans une autre macro et ça permet de mettre
une majuscule au nom du mois : 27 Août 2005 et çà fonctionne
parfaitement.
Aussi je ne sais pas si c'est possible dans le cas présent, car jobtient
:
27 août 2005 et ça fonctionne aussi parfaitement, mais la différence
c'est
le "A" masjuscule.
Bien sûr on peux s'en passer, mais impossible n'est pas une bonne devise,
n'est-ce pas!....Bon j'ai encore dû mal m'exprimer, mais c'est vrai que
ce
n'est pas forcément facile non plus.................!
Salutations!.............Merci d'avance............DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Je pensais que ta préoccupation était d'avoir une variable en vba
contenant une date dans un format particulier.
Si ta question était : Comment modifier le format des dates de cellules
contenant ceci :
=NOMPROPRE("12 septembre 2005")
A ) La date est entrée dans la cellule comme une chaîne de caractère.
Observe les guillemets qui l'entourent. La fonction
NOMPROPRE() ajoute une majuscule à chaque mot de la chaîne. Aucun
formatage issu de la commande format / cellules n'aura d'effet sur
ce que retourne la cellule.
B ) Pour pouvoir transformer le contenu de tes cellules en vrai date, tu
peux utiliser ceci en adaptant le nom de la feuille et ta
plage de cellules.
Dim rg As Range
With Worksheets("Feuil1")
Set rg = .Range("D1:D" & .Range("D65536").End(xlUp).Row)
End With
For Each c In rg
If IsDate(c) Then
'Si tu veux afficher un format particulier
c.numberformat = "dd mmm yy"
c.Value = CDate(c)
End If
Next
Salutations!
"DC" a écrit dans le message de news:
431186f8$0$27421$
Bonjour à Tous..............Bonjour michdenis,
Jai beau insister, rien ni fait! c'est vrai que le fait de ne pas savoir
faire, ne peut pas être remplacé par du "peut-ètre que"; ..........Enfin
bon!.................
J'espére que quelqu'un me trouvera une solution.........?
Salutation!.............Merci d'avance...........DC
"DC" a écrit dans le message de news:
4310b4c2$0$27419$Bonsoir à Tous...........Bonsoir michdenis,
Je suis navré de te le dire, mais je suis vraiment incapable de
construire
ce que tu me propose,
Peut-être que toi, si tu le veux bien, tu pourrais me le construire,
( A
toi de voir.!......)
Salutation.!..........Merci d'avance...........DC
"michdenis" a écrit dans le message de news:Bonjour DC,
Si tu définis le type de ta variable "As Date" , peu importe le format
que tu utiliseras avec la fonction "Format", le format
retourné sera toujours celui définit par défaut dans le panneau de
configuration de Windows
Utilise le Type String
Dim MaDate as String
MaDate = Format(Date, "dd mmmm yyyy") ou le format de ton choix.
Et si tu veux transformer MaDate en "vrai" date
Myvar = cdate(Madate)
Salutations!
"DC" a écrit dans le message de news:
43109a85$0$1717$
Bonsoir à Tous,
Dans une macro, qui me met la date du Jour, j'aimerais changer le
format
de
la date.
Pour éviter des explications trop compliquées, je vais indiquer en
premier
la dite macro et ensuite une macro ou le format en question existe
déja,
--------------------------------------------------
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Font
.Name = "Times New Roman"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = Date
Calculate
ActiveCell.Offset(6, -5).Range("A1").Select
End With
End Sub
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String
If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True
End Sub
---------------------------------------------------------
Salutations.!.........Merci d'avance...........DC
