Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
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
isabelle
bonjour,
mois = "2009-02-05" x = Application.Proper(Format(CDate(mois), "mmmm"))
isabelle
AnB a écrit :
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
bonjour,
mois = "2009-02-05"
x = Application.Proper(Format(CDate(mois), "mmmm"))
isabelle
AnB a écrit :
bonjour
Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
mois = "2009-02-05" x = Application.Proper(Format(CDate(mois), "mmmm"))
isabelle
AnB a écrit :
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
Jacky
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
Bonsoir,
Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
e2Qpj0giJHA.2204@TK2MSFTNGP02.phx.gbl...
bonjour
Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
AnB
je me suis trompé dans le précédent message
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
je me suis trompé dans le précédent message
débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2)
sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois,
2)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5$EAEhiJHA.2384@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
e2Qpj0giJHA.2204@TK2MSFTNGP02.phx.gbl...
bonjour
Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant
chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
AnB
avec mois = 310109 çà marche aussi
merci
mois = "2009-02-05" x = Application.Proper(Format(CDate(mois), "mmmm"))
"AnB" a écrit dans le message de news:
je me suis trompé dans le précédent message
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
avec mois = 310109 çà marche aussi
merci
mois = "2009-02-05"
x = Application.Proper(Format(CDate(mois), "mmmm"))
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
OR5RvahiJHA.1288@TK2MSFTNGP02.phx.gbl...
je me suis trompé dans le précédent message
débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2)
sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois,
2)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5$EAEhiJHA.2384@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
e2Qpj0giJHA.2204@TK2MSFTNGP02.phx.gbl...
bonjour
Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant
chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
mois = "2009-02-05" x = Application.Proper(Format(CDate(mois), "mmmm"))
"AnB" a écrit dans le message de news:
je me suis trompé dans le précédent message
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
Jacky
RE... Sans autres contrôle......
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Application.Proper(Format(CDate(Left(mois, 2) & "/" & Mid(mois, 3, 2) & "/" & Right(mois, 2)), "mmmm")) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = Format(CDate("20/" & Mid(mois, 3, 2) & "/" & Right(mois, 2)), "dd mmmm")
-- Salutations JJ
"AnB" a écrit dans le message de news:
je me suis trompé dans le précédent message
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
RE...
Sans autres contrôle......
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) =
Application.Proper(Format(CDate(Left(mois, 2) & "/" & Mid(mois, 3, 2) & "/"
& Right(mois, 2)), "mmmm"))
sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = Format(CDate("20/" &
Mid(mois, 3, 2) & "/" & Right(mois, 2)), "dd mmmm")
--
Salutations
JJ
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
OR5RvahiJHA.1288@TK2MSFTNGP02.phx.gbl...
je me suis trompé dans le précédent message
débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2)
sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois,
2)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5$EAEhiJHA.2384@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
e2Qpj0giJHA.2204@TK2MSFTNGP02.phx.gbl...
bonjour
Débutant en macro
j'ai ceci ci desous qui marche
mais je voudrais en colonne 13 mettre le mois en lettre en allant
chercher
le mois en chiffre dans la chaine "mois"
par ex : si mid (mois,3,2) = 01 mettre janvier
j'ai regardé la fonction array mais là !!??
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Application.Proper(Format(CDate(Left(mois, 2) & "/" & Mid(mois, 3, 2) & "/" & Right(mois, 2)), "mmmm")) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = Format(CDate("20/" & Mid(mois, 3, 2) & "/" & Right(mois, 2)), "dd mmmm")
-- Salutations JJ
"AnB" a écrit dans le message de news:
je me suis trompé dans le précédent message
débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
merci de votre aide
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2) sh.Sheets(1).Range(Cells(debut, 14), Cells(fin, 14)) = Mid(mois, 3, 2) sh.Sheets(1).Range(Cells(debut, 15), Cells(fin, 15)) = "20" & Right(mois, 2)
"Jacky" a écrit dans le message de news: e5$
Bonsoir,
Sans macro, juste les formats Voir ici http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls -- Salutations JJ
"AnB" a écrit dans le message de news:
bonjour
Débutant en macro j'ai ceci ci desous qui marche mais je voudrais en colonne 13 mettre le mois en lettre en allant chercher le mois en chiffre dans la chaine "mois" par ex : si mid (mois,3,2) = 01 mettre janvier j'ai regardé la fonction array mais là !!??
