Manque de zero!
Le
rthompson
BONNE ANNEE à vous toutes et tous
Et je commence mon année par une perte de zéro devant les chiffres
Enfin il vaut mieux merdre des zéros devant que derrière un chiffre
Si on me supprime les zéros à la fin de mon salaire je ne serais pas content
Le code ci-dessous (qui fonctionne bien, merci à vous)
me met l'année le mois et le jour dans trois cellule côte-à-côte
Et je me sers de ces cellule pour créer un nom de commande
MAIS
Si le 2010 (et le 2009) s'affiche correctement il n'en est pas de même pour
le reste
ce qui me donne un nom de cpmmande " Defi - 201011"
alors que je voudrais " Defi - 20100101"
En C1 j'ai =Today()
Merci pour votre aide et à très bientôt
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
[f1] = Year([c1])
[g1] = Month([c1])
[h1] = Day([c1])
End If
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et je commence mon année par une perte de zéro devant les chiffres
Enfin il vaut mieux merdre des zéros devant que derrière un chiffre
Si on me supprime les zéros à la fin de mon salaire je ne serais pas content
Le code ci-dessous (qui fonctionne bien, merci à vous)
me met l'année le mois et le jour dans trois cellule côte-à-côte
Et je me sers de ces cellule pour créer un nom de commande
MAIS
Si le 2010 (et le 2009) s'affiche correctement il n'en est pas de même pour
le reste
ce qui me donne un nom de cpmmande " Defi - 201011"
alors que je voudrais " Defi - 20100101"
En C1 j'ai =Today()
Merci pour votre aide et à très bientôt
Rex
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
[f1] = Year([c1])
[g1] = Month([c1])
[h1] = Day([c1])
End If
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Poser une question
Il faut passer par la fonction Format qui permet de formater un résultat.
Au passage tu n'est pas obligé de renvoyer tes valeurs dans des cellules
pour les exploiter. Des variables font autant l'affaire.
a=format(year(now),"0000")
m=format(month(now),"00")
j=format(day(now),"00")
MaDate=a & " " & m & " " & j
Camille
"rthompson" news:
Et surtout MERCI
C'est exactement ce que je voulais
A bientôt et encore merci
Rex
"Ellimac" %
NomCommande=" Defi - " & Format(Now,"yyyymmdd")
ne brûles pas les étapes ...
pense quand même à remettre ta pendule à l'heure !!!
Subject: Re: Manque de zero!
Date: Sat, 30 Jan 2010 14:26:33 +0100
Et Bonne Année
Merci pour ta réponse
Pour cette fois-ci j'utilise l'autre propositionµ
Mais, une fois de plus, je constate que tu frappe juste et court
C'est mis en boîte pour plus tard
Merci et à bientôt
Rex
"Modeste" %
Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
NomCommande=" Defi - " & Format(Now,"yyyymmdd")