aide sur macro

Le
AnB
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #18618621
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






Jacky
Le #18618831
Bonsoir,

Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ


"AnB"
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
Le #18619191
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" e5$
Bonsoir,

Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ


"AnB"
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
Le #18619381
avec mois = 310109 çà marche aussi

merci

mois = "2009-02-05"
x = Application.Proper(Format(CDate(mois), "mmmm"))




"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" e5$
Bonsoir,

Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ


"AnB"
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
Le #18619631
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"
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" e5$
Bonsoir,

Sans macro,
juste les formats
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200902/cijHRMKZht.xls
--
Salutations
JJ


"AnB"
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














Publicité
Poster une réponse
Anonyme