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
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
Ellimac
Bonjour,
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" a écrit dans le message de news:
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
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
"Ellimac" <Ellimac_cremelier@hotmail.com> a écrit dans le message de news:
%23vqBbEuiKHA.1536@TK2MSFTNGP06.phx.gbl...
Bonjour,
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
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" a écrit dans le message de news:
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
Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
NomCommande=" Defi - " & Format(Now,"yyyymmdd")
Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
NomCommande=" Defi - " & Format(Now,"yyyymmdd")
Modeste
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
rthompson
Bonjour à toi Modeste 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" a écrit dans le message de news: % Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
NomCommande=" Defi - " & Format(Now,"yyyymmdd")
Bonjour à toi Modeste
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" <gd@libre.fr> a écrit dans le message de news:
%230fSNquiKHA.5520@TK2MSFTNGP06.phx.gbl...
Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
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" a écrit dans le message de news: % Bonsour® Ellimac avec ferveur ;o))) vous nous disiez :
Bonjour,
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
NomCommande=" Defi - " & Format(Now,"yyyymmdd")
rthompson
Bonjour Jacky et une Bonne Année
Merci pour ta proposition J'en prends note
A bientôt et encore merci pour tes nombreuses interventions
A bientôt
Rex
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
A bientôt et encore merci pour tes nombreuses interventions
A bientôt
Rex
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23$2JOYuiKHA.1420@TK2MSFTNGP05.phx.gbl...
Bonjour en cette nouvelle année
un peu plus simple
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
MsgBox "defi-" & Format(Date, "yyyymmdd")
End If
End Sub
'----------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
A bientôt et encore merci pour tes nombreuses interventions
A bientôt
Rex
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
pense quand même à remettre ta pendule à l'heure !!!
Voila qui est fait, merci de me l'avoir fait remarquer (une fois de plus). Je n'avais pas vu ta réponse, si c'était avant la mienne, désolé pour le doublon.
-- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
Re..
ne brûles pas les étapes ...
;o))))
pense quand même à remettre ta pendule à l'heure !!!
Voila qui est fait, merci de me l'avoir fait remarquer (une fois de plus).
Je n'avais pas vu ta réponse, si c'était avant la mienne, désolé pour le
doublon.
--
Salutations
JJ
"Modeste" <gd@libre.fr> a écrit dans le message de news:
eaa9OxuiKHA.1536@TK2MSFTNGP06.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
pense quand même à remettre ta pendule à l'heure !!!
Voila qui est fait, merci de me l'avoir fait remarquer (une fois de plus). Je n'avais pas vu ta réponse, si c'était avant la mienne, désolé pour le doublon.
-- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Bonjour en cette nouvelle année
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
Mgr T. Banni
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou
souhaitez-vous vraiment vieillir plus vite?
Mgr T.B.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23$2JOYuiKHA.1420@TK2MSFTNGP05.phx.gbl...
Bonjour en cette nouvelle année
un peu plus simple
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
MsgBox "defi-" & Format(Date, "yyyymmdd")
End If
End Sub
'----------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
Ah! pardon...mille pardons Monseigneur.... Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se souvient encore ? Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait" Cela était dû aux tests pour le code de Rex et à la visite...... d'Aloïs.:o))
Bonne année JJ
"Mgr T. Banni" a écrit dans le message de news:
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
Ah! pardon...mille pardons Monseigneur....
Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se souvient
encore ?
Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait"
Cela était dû aux tests pour le code de Rex et à la visite......
d'Aloïs.:o))
Bonne année
JJ
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de news:
eejzId5iKHA.1824@TK2MSFTNGP04.phx.gbl...
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils,
ou souhaitez-vous vraiment vieillir plus vite?
Mgr T.B.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23$2JOYuiKHA.1420@TK2MSFTNGP05.phx.gbl...
Bonjour en cette nouvelle année
un peu plus simple
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
MsgBox "defi-" & Format(Date, "yyyymmdd")
End If
End Sub
'----------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
Ah! pardon...mille pardons Monseigneur.... Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se souvient encore ? Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait" Cela était dû aux tests pour le code de Rex et à la visite...... d'Aloïs.:o))
Bonne année JJ
"Mgr T. Banni" a écrit dans le message de news:
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
te absolvo.... T.B. (qui n'avait pas vu l'intervention du Lucky Luke d'Aniche qui tire plus vite que ses macros enfumées se se mettent en oeuvre)
"Jacky" a écrit dans le message de news:
Ah! pardon...mille pardons Monseigneur.... Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se souvient encore ? Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait" Cela était dû aux tests pour le code de Rex et à la visite...... d'Aloïs.:o))
Bonne année JJ
"Mgr T. Banni" a écrit dans le message de news:
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
te absolvo....
T.B. (qui n'avait pas vu l'intervention du Lucky Luke d'Aniche qui tire plus
vite que ses macros enfumées se se mettent en oeuvre)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OBPiFp5iKHA.4912@TK2MSFTNGP02.phx.gbl...
Ah! pardon...mille pardons Monseigneur....
Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se
souvient encore ?
Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait"
Cela était dû aux tests pour le code de Rex et à la visite......
d'Aloïs.:o))
Bonne année
JJ
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de news:
eejzId5iKHA.1824@TK2MSFTNGP04.phx.gbl...
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils,
ou souhaitez-vous vraiment vieillir plus vite?
Mgr T.B.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23$2JOYuiKHA.1420@TK2MSFTNGP05.phx.gbl...
Bonjour en cette nouvelle année
un peu plus simple
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "B5" Then
MsgBox "defi-" & Format(Date, "yyyymmdd")
End If
End Sub
'----------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: uZNC85tiKHA.3792@TK2MSFTNGP02.phx.gbl...
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
te absolvo.... T.B. (qui n'avait pas vu l'intervention du Lucky Luke d'Aniche qui tire plus vite que ses macros enfumées se se mettent en oeuvre)
"Jacky" a écrit dans le message de news:
Ah! pardon...mille pardons Monseigneur.... Aurais-je abusé de ce vin rapporté par ma fille et dont mon foie se souvient encore ? Comme dit plus haut dans ce fil à notre ami Modeste, "c'est fait" Cela était dû aux tests pour le code de Rex et à la visite...... d'Aloïs.:o))
Bonne année JJ
"Mgr T. Banni" a écrit dans le message de news:
pourriez-vous mettre l'horloge de votre ordi à la bonne heure, mon fils, ou souhaitez-vous vraiment vieillir plus vite? Mgr T.B.
"Jacky" a écrit dans le message de news: %23$
Bonjour en cette nouvelle année un peu plus simple '---------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(False, False) = "B5" Then MsgBox "defi-" & Format(Date, "yyyymmdd") End If End Sub '---------- -- Salutations JJ
"rthompson" a écrit dans le message de news:
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
