Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
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 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
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 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
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

Discussions similaires

[VBScript] numéro de semaine
Dinheru -
babou -

11 réponses
Afficher le numéro de ligne de la cellule
hakoko -
hakoko -

4 réponses
VBA : stocker n° ligne cellule dans un for each
xuorel -
Utilisateur anonyme -

4 réponses
recuperer numero de ligne cellule active vba
gnioler -
gnioler -

4 réponses
quel est le code couleur sur excel vba
sru14229 -
sru14229 -

3 réponses
En vba n° de semaine à partir d'une date
Arpette71 -
ca -

12 réponses