Retourner Mois et N° Semaine
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
Bonjour,
La fonction NO.SEMAINE ne fonctionne pas bien sur la excel 2010,
je ne sais pas si c'est le cas sur excel 2013 ?
c'est pour ça que j'utilise une function perso "NoSem"
à tester,
Sub manip()
Dim i As Long
Range("A1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1") = "Semaine"
Range("C1") = "Mois"
For i = 2 To 10
Range("B" & i).Formula = "=NoSem(A" & i & ")"
Range("C" & i).Formula = "=Month(A" & i & ")"
Next
End Sub
Function NoSem(rng As Range)
NoSem = Format(rng, "ww", vbMonday, vbFirstFourDays)
End Function
Pour 2013, il existe NO.SEMAINE.ISO
ActiveCell.FormulaR1C1 = "=ISOWEEKNUM(RC[-1])"