VBA - N° de semaine en fonction d'une date

Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
- - Dernière réponse : pololow
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
- 25 janv. 2019 à 16:34
Bonjour,

Quelqu'un connaît le code VBA pour afficher dans une cellule (A2 par exemple) le numéro de semaine (exemple : S4) d'une date située dans une autre cellule (A1 par exemple)?

Merci d'avance :)
Afficher la suite 

1 réponse

Messages postés
14838
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
7 novembre 2019
1189
0
Merci
Bonjour,

Pourquoi VBA, formule dans A2: ="S"&NO.SEMAINE(A1)
A vous de dire…..
pololow
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
-
Parce que j'ai des conditions.
La date peut potentiellement changer mais je souhaite conserver la semaine de la 1ère actualisation de la date.
f894009
Messages postés
14838
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
7 novembre 2019
1189 -
Re,

Ok
je souhaite conserver la semaine
Et ce ad vitam aeternam, quelque soit la date????
pololow
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
-
Oui oui
f894009
Messages postés
14838
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
7 novembre 2019
1189 -
Re,
Une facon de faire, a vous de voir pour declacher le code!!
Sub Num_Sem()
    With Worksheets("feuil1")
        If .Cells(1, 1) <> "" And IsDate(.Cells(1, 1)) And .Cells(2, 1) = "" Then
            .Cells(2, 1) = "S" & DateDiff("w", DateSerial(Year(.Cells(1, 1)), 1, 1), .Cells(1, 1)) + 1
        End If
    End With
End Sub
pololow
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
-
Merci pour l'aide :)
J'ai réussi à traffiquer quelque chose de fiable avec DatePart("ww", Date, 2, 2)
Commenter la réponse de f894009