XL 2019 Mois en vba

Tsegp · 1 Juin 2023

Bonjour

J'ai un classeur dans lequel je colle en colonne M une liste de date au format jj/mm/aaaa.
Je souhaite a l'aide d'un bouton (et donc d'une macro associé) a écrire en colonne P le mois de cette date en lettre et en colonne O le numéro de la semaine.

Cette liste de date est complète chaque jour donc la macro ne doit pas se limiter à certaine ligne

Une idée ?

Merci d'avance a tous

Phil69970 · 1 Juin 2023

Bonjour @Tsegp

J'ai pas vu ton fichier que tu décris si bien .....

@Phil69970

Tsegp · 1 Juin 2023

Phil69970 à dit:
Bonjour @Tsegp

J'ai pas vu ton fichier que tu décris si bien .....

@Phil69970

Bonjour

Alors je n'ai pas joint mon fichier pour des raisons de confidentialité mais voici un fichier exemple dans lequel je reproduis mon classeur.

Actuellement je remplis manuellement la colonne O et P en fonction de la colonne M.

Ce que je souhaite c'est à l'aide d'une macro que cela se remplisse tout seul en fonction de la date indiquée en M.

Je souhaite le faire via une macro et non des formules.

Merci d'avance

AtTheOne · 1 Juin 2023

Bonsoir à toutes & à tous
Un petit fichier simple comme celui que je te joins aurait suffit ...
Bon je réponds quand même.
Sauf si tu tiens au VBA, je te propose une solution par formule ou formatage.
A bientôt

Tsegp · 1 Juin 2023

AtTheOne à dit:
Bonsoir à toutes & à tous
Un petit fichier simple comme celui que je te joins aurait suffit ...
Bon je réponds quand même.
Sauf si tu tiens au VBA, je te propose une solution par formule ou formatage.
A bientôt

Bonjour
Merci pour ta réponse.
J'ai joint un fichier.

Alors oui je tiens à le faire en vba et non des formules.

AtTheOne · 1 Juin 2023

Re Toujours pas de fichier !!!

Tsegp · 1 Juin 2023

AtTheOne à dit:
Re Toujours pas de fichier !!!

Bizarre, il y est pourtant.

Bon le voici de nouveau

Phil69970 · 1 Juin 2023

Bonjour à tous

Je te propose ce fichier

Merci de ton retour

@Phil69970

Tsegp · 1 Juin 2023

Phil69970 à dit:
Bonjour à tous

Je te propose ce fichier

Merci de ton retour

@Phil69970

Super c'est presque parfait.
J'ai juste besoin que le mois soit écrit en lettre et non en chiffre

AtTheOne · 1 Juin 2023

Re,
Voici ma proposition:

VB:

Sub Màj()

     Const ColM% = 13, ColO% = 15, ColP% = 16
     Dim Zdate As Range, ZSem As Range, ZMois As Range
     With Feuil1
          Set Zdate = .Range(.Cells(2, ColM), .Cells(.Rows.Count, ColM).End(xlUp))
          Set ZSem = .Cells(2, ColO).Resize(Zdate.Rows.Count)
          Set ZMois = .Cells(2, ColP).Resize(Zdate.Rows.Count)
     End With
   
     Tbdate = Zdate.Value
     TbSem = ZSem.Value
     TbMois = ZSem.Value
   
     For i = 1 To UBound(Tbdate)
          TbSem(i, 1) = WorksheetFunction.IsoWeekNum(Tbdate(i, 1))
          TbMois(i, 1) = Format(Tbdate(i, 1), "mmmm")
     Next
   
     ZSem.Value = TbSem
     ZMois.Value = TbMois
   
End Sub

Voir le fichier joint

Attention le 1er janvier 23 faisait partie de la semaine 52 au sens iso du terme

Edit : la semaine N1 est la 1ère semaine de qui compte au moins 4 jours du mois de janvier

Phil69970 · 1 Juin 2023

Re

Et avec le mois en lettre...

Merci de ton retour

@Phil69970

AtTheOne · 1 Juin 2023

Bonsoir @Phil69970
On se croisse un peu ce soir,
vue l'avertissement de Microsoft :

Je me méfis un peu de cette fonction
Et elle renvoie le N° de semaine à l'américaine et non pas comme nous l'entendons en Europe ( par exemple 1 pour le 1er janvier 2023 alors que sur nos calendriers il fait parti de la semaine 52 de 2022 )

A bientôt

Phil69970 · 1 Juin 2023

Re

Merci pour l'info Alain et je propose une solution de contournement

@Phil69970

AtTheOne · 1 Juin 2023

Re,
Vu ta proposition, j'en apprends tous les jours ...
Merci

Phil69970 · 1 Juin 2023

Re

L'aide de Bilou me donne cela

DatePart, fonction

DatePart, fonction

Voir aussi Exemple Particularités

Renvoie une valeur de type Variant (Integer) contenant l'élément spécifié d'une date donnée.

Syntaxe

DatePart(interval, date[,firstdayofweek, firstweekofyear]])

La syntaxe de la fonction DatePart comprend les arguments nommés suivants :

Élément Description
interval Expression de chaîne correspondant à l'intervalle de temps à renvoyer.
date Valeur Variant (Date) à évaluer.
firstdayofweek Facultatif. Constante précisant le premier jour de la semaine. Si aucune valeur n'est précisée, la valeur par défaut est dimanche.
firstweekofyear Facultatif. Constante précisant la première semaine de l'année. Si aucune valeur n'est précisée, la première semaine est par défaut celle du 1er janvier.

Valeurs

L'argument interval peut prendre les valeurs suivantes :

Valeur Description
yyyy Année
q Trimestre
m Mois
y Jour de l'année
d Jour
w Jour de la semaine
ww Semaine
h Heure
n Minute
s Seconde

L'argument firstdayofweek peut prendre les valeurs suivantes :

Constante Valeur Description
vbUseSystem 0 Utilise les paramètres de l'API NLS.
vbSunday 1 Dimanche (valeur par défaut)
vbMonday 2 Lundi
vbTuesday 3 Mardi
vbWednesday 4 Mercredi
vbThursday 5 Jeudi
vbFriday 6 Vendredi
vbSaturday 7 Samedi

L'argument firtweekofyear peut prendre les valeurs suivantes :

Constante Valeur Description
vbUseSystem 0 Utiliser l'argument NLS API.
vbFirstJan1 1 Commencer par la semaine du 1er janvier (valeur par défaut).
vbFirstFourDays 2 Commencer par la première semaine comportant au moins quatre jours dans l'année nouvelle.
vbFirstFullWeek 3 Commencer par la première semaine complète de l'année.

@Phil69970

XL 2019 Mois en vba

Tsegp

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Tsegp

XLDnaute Nouveau

Pièces jointes

AtTheOne

XLDnaute Accro

Pièces jointes

Tsegp

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Tsegp

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Tsegp

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

AtTheOne

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Pièces jointes

AtTheOne

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

DatePart, fonction

Discussions similaires

Élément	Description
*interval*	Expression de chaîne correspondant à l'intervalle de temps à renvoyer.
*date*	Valeur Variant (Date) à évaluer.
*firstdayofweek*	Facultatif. Constante précisant le premier jour de la semaine. Si aucune valeur n'est précisée, la valeur par défaut est dimanche.
*firstweekofyear*	Facultatif. Constante précisant la première semaine de l'année. Si aucune valeur n'est précisée, la première semaine est par défaut celle du 1er janvier.

Valeur	Description
yyyy	Année
q	Trimestre
m	Mois
y	Jour de l'année
d	Jour
w	Jour de la semaine
ww	Semaine
h	Heure
n	Minute
s	Seconde

Constante	Valeur	Description
vbUseSystem	0	Utilise les paramètres de l'API NLS.
vbSunday	1	Dimanche (valeur par défaut)
vbMonday	2	Lundi
vbTuesday	3	Mardi
vbWednesday	4	Mercredi
vbThursday	5	Jeudi
vbFriday	6	Vendredi
vbSaturday	7	Samedi

Constante	Valeur	Description
vbUseSystem	0	Utiliser l'argument NLS API.
vbFirstJan1	1	Commencer par la semaine du 1er janvier (valeur par défaut).
vbFirstFourDays	2	Commencer par la première semaine comportant au moins quatre jours dans l'année nouvelle.
vbFirstFullWeek	3	Commencer par la première semaine complète de l'année.

XL 2019 Mois en vba

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

DatePart, fonction​

Discussions similaires

DatePart, fonction