VBA - N° de semaine en fonction d'une date [Fermé]

Signaler
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
-
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019
-
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

Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 322
Bonjour,

Pourquoi VBA, formule dans A2: ="S"&NO.SEMAINE(A1)
A vous de dire…..
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.
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 322
Re,

Ok
je souhaite conserver la semaine
Et ce ad vitam aeternam, quelque soit la date????
Messages postés
7
Date d'inscription
jeudi 24 janvier 2019
Statut
Membre
Dernière intervention
25 janvier 2019

Oui oui
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 322
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
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)