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

Fermé
pololow Messages postés 7 Date d'inscription jeudi 24 janvier 2019 Statut Membre Dernière intervention 25 janvier 2019 - 25 janv. 2019 à 11:28
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 :)

1 réponse

f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 1 659
25 janv. 2019 à 11:32
Bonjour,

Pourquoi VBA, formule dans A2: ="S"&NO.SEMAINE(A1)
A vous de dire…..
0
pololow Messages postés 7 Date d'inscription jeudi 24 janvier 2019 Statut Membre Dernière intervention 25 janvier 2019
25 janv. 2019 à 11:41
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.
0
f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 1 659
25 janv. 2019 à 11:51
Re,

Ok
je souhaite conserver la semaine
Et ce ad vitam aeternam, quelque soit la date????
0
pololow Messages postés 7 Date d'inscription jeudi 24 janvier 2019 Statut Membre Dernière intervention 25 janvier 2019
25 janv. 2019 à 12:29
Oui oui
0
f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 1 659
Modifié le 25 janv. 2019 à 16:18
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
0
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
Merci pour l'aide :)
J'ai réussi à traffiquer quelque chose de fiable avec DatePart("ww", Date, 2, 2)
0