vba format de cellule n° de semaine

[asta29]

Bonjour,
J'aimerai pouvoir convertir en VBA une colonne entières en format n°semaine.
Comme la fonction "=NO.SEMAINE" mais je ne trouve pas comment mettre ce format en vba. Merci d'avance.

 

[greguVB]

Re : vba format de cellule n° de semaine

bonjour asta29,

Pour un de mes fichiers j'ai fais ca (version excel 2007):

numSemaine = DatePart("ww", Now())

bonne journée !

 

[Catrice]

Re : vba format de cellule n° de semaine

Bonjour,

Peut etre peux tu t'inspirer du code suivant :
Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
X.Offset(0, 1) = DateDiff("ww", DateSerial(Year(X), 1, 1), X) + 1
Next
End Sub

voir fichier joint

Edit : Bonjour greguVB, Datepart, c'est boucoup mieux

Voilà la macro qui remplace toutes les dates de la colonne A par leur N° de semaine :
Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
X.Value = DatePart("ww", X)
X.NumberFormat = "General"
Next
End Sub

 

[greguVB]

Re : vba format de cellule n° de semaine

bonjour Catrice,

merci
bon evidemment il fallait chamngé le 'Now()' par la valeur de la cellule, je mets donc la procedure, pour facilité Asta29

Sub test()
Dim madate As Date
madate = Range("A1").value
Range("B1").value = DatePart("ww", madate)
End Sub

y a plus qu'a rajouter une boucle et hop !

ouaaa mon 2 eme message sur le forum, et beh !!

 

[asta29]

Re : vba format de cellule n° de semaine

Merci à vous deux!!
Ca fonctionne trés bien^^

 

[pierrejean]

Re : vba format de cellule n° de semaine

Bonjour a tous

Voici une version qui
1) debute la semaine le lundi
2) conserve la date c'est a dire que si , apres execution de la macro , on applique a la colonne le format personnalisé jj/mm/aaaa on retrouvera la date

For n = 1 To Range("A65536").End(xlUp).Row
 Range("A" & n).NumberFormat = DatePart("ww", Range("A" & n), 2)
Next n