Discussion :

[Zebulon777]

Salut tout le monde,
voici mon problème :

Je remplis une feuille excel dynamiquement avec du VBA.
La date jj/mm/aaaa est dans la première colonne.
Je veux mettre le numéro de la semaine correspondant dans la colonne 17, puis recopier vers le bas jusqu'à la fin du tableau, sachant que je ne connais pas à l'avance le nombre de lignes concernées.

Voila où j'en suis, mais ça ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    WDate = Cells(2, 1).Value
    Cells(2, 13).Select
    Cells(2, 13).Formula = "=ENT(MOD(ENT((A2-2)/7)+0,6;52+5/28))+1"
    Selection.AutoFill Destination:=Range(Cells(2, 13), Cells(ActiveCell.SpecialCells(xlLastCell).Row, 13)), Type:=xlFillDefault

[DeaD78]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
Dim i As Long
 
For i = 1 To Range("A65536").End(xlUp).Row
 
    Cells(i, 3).FormulaLocal = "=ENT(MOD(ENT((A" & i & "-2)/7)+0,6;52+5/28))+1"
 
Next
 
End Sub

Testé et OK.

A bientôt.

EDIT : remplace le 3 par 17 pour mettre cela dans la 17ème colonne et non la 3ème.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("Q" & i).Value = DatePart("ww", Range("A" & i).Value)
Next i

un F1 sur DatePart pour choisir les paramètre qui te conviennent

Syntaxe

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

[Zebulon777]

En fin de compte j'ai utilisé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    D = 2
    While D <= ActiveCell.SpecialCells(xlLastCell).Row
        WDate = Cells(D, 1).Value
        Cells(D, 13).Value = DatePart("ww", WDate, vbMonday, vbFirstFourDays)
        D = D + 1
    Wend

Laquelle des 2 méthodes est la plus rapide ?

Et tout cas, merci beaucoup.

[Zebulon777]

Je me répond pour donner l'astuce à tout le monde :

Voici le code que j'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
        WDate = Cells(2, 1).Value
        Range("M2").Select
        Range("M2").NumberFormat = "General"
        Range("M2").FormulaLocal = "=ENT(MOD(ENT((A2-2)/7)+0,6;52+5/28))+1"
        Selection.AutoFill Destination:=Range("M2", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 13)), Type:=xlFillDefault
        Calculate

Ce code est BEAUCOUP plus rapide que le précédent avec la boucle sur le DatePart.

Encore merci à tous de votre aide.