Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dans une
variable) en texte et non en date?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Si tu veux récupérer le format de ta cellule dans une variable "Texte"
Dim Fa As String, Fr As String
'En anglais Fa = Range("G1").NumberFormat
'Paramètres locaux de l'ordi -> Français Fr = Range("G1").NumberFormatLocal
"fred" a écrit dans le message de news: 45585f12$0$6994$ Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
Si tu veux récupérer le format de ta cellule dans une variable "Texte"
Dim Fa As String, Fr As String
'En anglais
Fa = Range("G1").NumberFormat
'Paramètres locaux de l'ordi -> Français
Fr = Range("G1").NumberFormatLocal
"fred" <fredgarlon@free.fr> a écrit dans le message de news:
45585f12$0$6994$426a74cc@news.free.fr...
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dans une
variable) en texte et non en date?
Merci
Si tu veux récupérer le format de ta cellule dans une variable "Texte"
Dim Fa As String, Fr As String
'En anglais Fa = Range("G1").NumberFormat
'Paramètres locaux de l'ordi -> Français Fr = Range("G1").NumberFormatLocal
"fred" a écrit dans le message de news: 45585f12$0$6994$ Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
JB
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dan s une variable) en texte et non en date? Merci
Bonjour,
x = [C3] ' date
y = Format([C3], "dd-mmm-yy") ' texte
xx = VarType(x) ' 7
yy = VarType(y) ' 8
Cordialement JB
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dan s une
variable) en texte et non en date?
Merci
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dan s une variable) en texte et non en date? Merci
fred
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
J'ai testé avec ceci
LaDate = Format(Now, "mmm-dd")
Fa = Range("H1").NumberFormat
MsgBox LaDate 'ici c'est ok
Range("H1") = LaDate
MsgBox Range("H1")
Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13
afin que je puisse utiliser ce Nov-13 dans
If Cells(k , 2).Value Like "*" & LaDate & "*" Then
MsgBox "stop"
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1163432723.417172.233070@e3g2000cwe.googlegroups.com...
Bonjour,
x = [C3] ' date
y = Format([C3], "dd-mmm-yy") ' texte
xx = VarType(x) ' 7
yy = VarType(y) ' 8
Cordialement JB
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dans une
variable) en texte et non en date?
Merci
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
JB
LaDate = Format([H1], "mmm-dd") MsgBox LaDate
JB
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov -13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée d ans une variable) en texte et non en date? Merci
LaDate = Format([H1], "mmm-dd")
MsgBox LaDate
JB
J'ai testé avec ceci
LaDate = Format(Now, "mmm-dd")
Fa = Range("H1").NumberFormat
MsgBox LaDate 'ici c'est ok
Range("H1") = LaDate
MsgBox Range("H1")
Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov -13
afin que je puisse utiliser ce Nov-13 dans
If Cells(k , 2).Value Like "*" & LaDate & "*" Then
MsgBox "stop"
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1163432723.417172.233070@e3g2000cwe.googlegroups.com...
Bonjour,
x = [C3] ' date
y = Format([C3], "dd-mmm-yy") ' texte
xx = VarType(x) ' 7
yy = VarType(y) ' 8
Cordialement JB
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée d ans une
variable) en texte et non en date?
Merci
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov -13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée d ans une variable) en texte et non en date? Merci
Ange Ounis
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai() LaDate = Format(Now, "mmm-dd") MsgBox LaDate 'ici c'est ok Range("H1").Value = LaDate Range("H1").NumberFormat = "mmm-dd" MsgBox Range("H1").Text End Sub
---------- Ange Ounis ----------
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai()
LaDate = Format(Now, "mmm-dd")
MsgBox LaDate 'ici c'est ok
Range("H1").Value = LaDate
Range("H1").NumberFormat = "mmm-dd"
MsgBox Range("H1").Text
End Sub
----------
Ange Ounis
----------
J'ai testé avec ceci
LaDate = Format(Now, "mmm-dd")
Fa = Range("H1").NumberFormat
MsgBox LaDate 'ici c'est ok
Range("H1") = LaDate
MsgBox Range("H1")
Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13
afin que je puisse utiliser ce Nov-13 dans
If Cells(k , 2).Value Like "*" & LaDate & "*" Then
MsgBox "stop"
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1163432723.417172.233070@e3g2000cwe.googlegroups.com...
Bonjour,
x = [C3] ' date
y = Format([C3], "dd-mmm-yy") ' texte
xx = VarType(x) ' 7
yy = VarType(y) ' 8
Cordialement JB
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dans une
variable) en texte et non en date?
Merci
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai() LaDate = Format(Now, "mmm-dd") MsgBox LaDate 'ici c'est ok Range("H1").Value = LaDate Range("H1").NumberFormat = "mmm-dd" MsgBox Range("H1").Text End Sub
---------- Ange Ounis ----------
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
fred
Merci à tous pour vos réponses et vos précisions! Tout est ok ;)
"Ange Ounis" a écrit dans le message de news:
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai() LaDate = Format(Now, "mmm-dd") MsgBox LaDate 'ici c'est ok Range("H1").Value = LaDate Range("H1").NumberFormat = "mmm-dd" MsgBox Range("H1").Text End Sub
---------- Ange Ounis ----------
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci
Merci à tous pour vos réponses et vos précisions!
Tout est ok ;)
"Ange Ounis" <nospam@nospam> a écrit dans le message de news:
e9mbe11BHHA.4948@TK2MSFTNGP02.phx.gbl...
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai()
LaDate = Format(Now, "mmm-dd")
MsgBox LaDate 'ici c'est ok
Range("H1").Value = LaDate
Range("H1").NumberFormat = "mmm-dd"
MsgBox Range("H1").Text
End Sub
----------
Ange Ounis
----------
J'ai testé avec ceci
LaDate = Format(Now, "mmm-dd")
Fa = Range("H1").NumberFormat
MsgBox LaDate 'ici c'est ok
Range("H1") = LaDate
MsgBox Range("H1")
Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit
Nov-13 afin que je puisse utiliser ce Nov-13 dans
If Cells(k , 2).Value Like "*" & LaDate & "*" Then
MsgBox "stop"
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1163432723.417172.233070@e3g2000cwe.googlegroups.com...
Bonjour,
x = [C3] ' date
y = Format([C3], "dd-mmm-yy") ' texte
xx = VarType(x) ' 7
yy = VarType(y) ' 8
Cordialement JB
Bonjour,
J'ai dans une cellule un format date de type :
Range("G1").Select
Range("G1").Value = Format(Date , "mmm-dd")
Selection.NumberFormat = "mmm-dd"
Ce qui me donne : nov-13
Comment faire pour récupérer cette valeur (pour être utilisée dans une
variable) en texte et non en date?
Merci
Merci à tous pour vos réponses et vos précisions! Tout est ok ;)
"Ange Ounis" a écrit dans le message de news:
Utilise la propriété Text de la cellule et non sa propriété par défaut :
Sub essai() LaDate = Format(Now, "mmm-dd") MsgBox LaDate 'ici c'est ok Range("H1").Value = LaDate Range("H1").NumberFormat = "mmm-dd" MsgBox Range("H1").Text End Sub
---------- Ange Ounis ----------
J'ai testé avec ceci LaDate = Format(Now, "mmm-dd") Fa = Range("H1").NumberFormat MsgBox LaDate 'ici c'est ok Range("H1") = LaDate MsgBox Range("H1") Le msgbox de la cellule H1 donne 13/11/2006, j'aimerais que cela soit Nov-13 afin que je puisse utiliser ce Nov-13 dans If Cells(k , 2).Value Like "*" & LaDate & "*" Then MsgBox "stop"
"JB" a écrit dans le message de news:
Bonjour,
x = [C3] ' date y = Format([C3], "dd-mmm-yy") ' texte xx = VarType(x) ' 7 yy = VarType(y) ' 8
Cordialement JB
Bonjour, J'ai dans une cellule un format date de type : Range("G1").Select Range("G1").Value = Format(Date , "mmm-dd") Selection.NumberFormat = "mmm-dd" Ce qui me donne : nov-13 Comment faire pour récupérer cette valeur (pour être utilisée dans une variable) en texte et non en date? Merci