Bonjour,
Désolé je débute avec les macros donc je ne maitrise pas trop.
Je voudrais retourner le mois et le n° de semaine par rapport à des dates présentes.
J'ai en colonne A mes dates avec l'entête en A1 et les infos en A2.
Voici la macro :
Sub manip()
Columns("A:C").Select
Range("A1").Activate
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
ActiveCell.FormulaR1C1 = "Semaine"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Mois"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=WEEKNUM([@[Date]])"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=MONTH([@[Date]])"
ActiveWorkbook.RefreshAll
End Sub
Merci d'avance