Rechercher le lundi de la semaine N°

Résolu/Fermé
Signaler
Messages postés
133
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
27 décembre 2021
-
Messages postés
133
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
27 décembre 2021
-
Bonjour,

J'aimerai pouvoir taper le N° de semaine dans A1 et que dans B1 il me marque la date du lundi et en C1 il mette la date du lundi et du vendredi.

Merci de votre aide

7 réponses

Messages postés
16193
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2022
1 580
0
Messages postés
133
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
27 décembre 2021
2
Merci, mais j'aimerai le faire par macro.
Avez-vous la solution
0
Messages postés
16193
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2022
1 580
Bonjour,

Pour une fois que quelqu'un ne veut pas de formule !!!!!!

en C1 il mette la date du lundi et du vendredi. Z'etes sûre ?????

L'annee, c'est l'annee en cours ou un choix via une saisie ????
0
Messages postés
16193
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2022
1 580
Re,

Calcul pour annee en cours:

Sub Bouton1_Cliquer()
    Dim DDate As Date
    
    With Worksheets("feuil1")
        'ici annee en cours
        DDate = "03/01/" & Year(Date)
        NDay = Weekday(DDate, vbMonday)     'Numero jour semaine de la date (Lundi: premier jour de la semaine)
        Num_sem = .Range("A1")                        'numero de semaine
        'calcul date lundi de la semaine
        lundi = DDate - NDay - 5 + (7 * Num_sem) - 1
        'affichage
        .Range("B1") = lundi
        .Range("C1") = lundi + 6
        
    End With
End Sub
0
Messages postés
133
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
27 décembre 2021
2
Bonjour,

Magnifique, mais j'aimerai pouvoir choisir l'année et que le premier lundi de l'année se mette automatiquement.(DDate=" / "&Year(Date)

Merci d'avance
0
Messages postés
16546
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 janvier 2022
3 259
bonjour
excusez l'inscrute
avec l'année en A2
Range("B1") = [7*A1+DATE(A2,1,1)-WEEKDAY(DATE(A2,1,3))-3]

à mettre au format désiré
0
Messages postés
16193
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2022
1 580
Bonjour Michel,
J'avais demande au monsieur qu'est-ce qu'il voulait comme date, mais réponse le jour d'apres
0
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 674
Bonjour,

Bonjour tout le monde,

Allons-y de ma petite fonction...

Pour renvoyer, le lundi d'une semaine donnée, d'une année donnée, voici une adaptation de deux fonctions de C Pearson :

    Public Function Lundi(Num_Semaine As Integer, Annee As Integer) As Date
    Dim Jour As Integer, Debut_Annee As Date
    
        Jour = (DateSerial(Annee, 1, 1) - 2) Mod 7
        If Jour < 4 Then
            Debut_Annee = DateSerial(Annee, 1, 1) - Jour
        Else
            Debut_Annee = DateSerial(Annee, 1, 1) - Jour + 7
        End If
        Lundi = Debut_Annee + ((Num_Semaine - 1) * 7)
    End Function 


La procédure d'appel, par exemple :
    Sub Test()
    Dim monLundi As Date
        'retourne la date du lundi de la semaine 14 de 2015
        monLundi = Lundi(14, 2015)
        MsgBox monLundi
    End Sub

Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
0
Messages postés
133
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
27 décembre 2021
2
Bonjour,
Excusez-moi de ma réponse tardive, mais je vous remercie infiniment.
0