Format de cellule

[Eric C]

Bonsoir le forum
Bonsoir à toutes & à tous

J'ai repris un code qui affiche le n° de la semaine avec l'année dans un fichier. L'affichage, en format de cellule "standard" qui me convenait jusqu'à présent, est passé en format "personnalisé : mmm-aa" subitement et me converti depuis le 29/12, la valeur en mois-année. J'ai testé sur les semaines à venir et il me faudra attendre le 23 mars 2015 pour tout rentre dans l'ordre ???. Je ne vois pas le format ou l'astuce à adopter.
Vous souhaitant une bonne soirée ou plutôt une bonne nuit.

 

[jpb388]

Re : Format de cellule

bonsoir à tous

format de cellule
onglet nombre
choisir date
dans type prendre le 1er en haut

 

[Eric C]

Re : Format de cellule

Bonjour le forum
Bonjour jp

J'avais également testé mais non....
Merci & bonne journée

 

[chris]

Re : Format de cellule

Bonjour

En formatant au préalable en texte

Private Sub Workbook_Open()
    Sheets("Feuil1").Range("A1").NumberFormat = "@"
    Sheets("Feuil1").Range("A1") = DatePart("WW", Date, 2, 2) & " " & "-" & " " & Year(Date)
End Sub

 

[Eric C]

Re : Format de cellule

Bonjour le forum
Re jp, bonjour Chris

2pecccable. Merci bien.
Bonne journée

 

[Modeste]

Re : Format de cellule

Bonjour Éric, jpb388, chris,

On aurait pu aussi "glisser" (sauvagement, j'en conviens 😱) une petite apostrophe en première position, non?

 

[chris]

Re : Format de cellule

RE

Bonjour Éric, jpb388, chris,

On aurait pu aussi "glisser" (sauvagement, j'en conviens 😱) une petite apostrophe en première position, non?

Tout à fait Modeste 🙂

 

[Eric C]

Re : Format de cellule

Re le forum
Re jp, Chris, bonjour Modeste

Pour ma gouverne, où aurait-il fallu placer l'apostrophe ? Dans la cellule .... Non, dans le type de format personnalisé.... Non ???
@ +

 

[Modeste]

Re : Format de cellule

Re,

Juste devant le DatePart, comme ceci:

Sheets("Feuil1").Range("A1") = "'" & DatePart("WW", CLng(Date), 2, 2) & " " & "-" & " " & Year(Date)

Joyeux réveillon à tout le monde! 😀

 

[Eric C]

Re : Format de cellule

Re le forum

Merci pour cette réponse que je garde également. Autre question (pendant que l'on y est) Pourquoi avoir ajouté la fonction "CLng" ?
@ +

 

[Modeste]

Re : Format de cellule

Pourquoi avoir ajouté la fonction "CLng" ?

Mais ... pour voir si tu étais attentif, mon cher Éric 😉

Bon d'accord, j'étais parti sur autre chose au départ ... et j'ai oublié de l'effacer 😱

 

[TooFatBoy]

Re : Format de cellule

Bonjour,

N'y a-t-il pas un problème pour la date d'aujourd'hui 31 décembre 2014 ?

Chez moi ça affiche semaine n° 1 de l'année 2014 au lieu de semaine n° 1 de l'année 2015.
Il faudrait donc modifier l'année en fonction de la date. Ce qui donnerait quelque chose comme ça :

Private Sub Workbook_Open()
    MaDate = Date
    MaDate_Jour = DatePart("y", MaDate, 2, 2)
    MaDate_Semaine = DatePart("ww", MaDate, 2, 2)
    MaDate_Annee = DatePart("yyyy", MaDate, 2, 2)
    If MaDate_Semaine = 1 And MaDate_Jour > 7 Then MaDate_Annee = MaDate_Annee + 1
    Sheets("Feuil1").Range("A1") = "'" & MaDate_Semaine & " - " & MaDate_Annee
End Sub

 

[Eric C]

Re : Format de cellule

Bonsoir et mille regrets d'être aussi à la "bourre"
Re les zamis (arf... Modeste) et bonsoir Marcel32

Bien vu Marcel32 et je mets également ton code dans ma hotte. Je vous souhaite à tous ainsi qu'à vos familles une EXCELlente fin d'année 2014 et meilleurs voeux pour l'année qui pointe le bout du museau.

Mes meilleurs voeux s'adressent également à toutes celles & à tous ceux qui contribuent à l'épanouissement quotidien de ce forum.

 

[TooFatBoy]

Re : Format de cellule

Merci et tout plein de bonnes choses également pour toi et les tiens. 😉