IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Trouver 1er lundi de la 1ere semaine 2008


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Février 2005
    Messages
    29
    Détails du profil
    Informations personnelles :
    Âge : 69

    Informations forums :
    Inscription : Février 2005
    Messages : 29
    Par défaut Trouver 1er lundi de la 1ere semaine 2008
    Bonjour à tous, je butte toujours sur cette histoire de semaine.
    J'ai le code pour trouver le 1er lundi du mois..(Ex Lundi 7 Janvier 2008 dans mon code)
    J'aimerai trouvé le moyen de mettre automatiquement le 1er lundi du mois de la semaine N°1 de l'année (sans faire - 7)(Cette année c'était Lundi 31 Décembre 2007)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =DATE(A1; 1;1) + MOD(1 - JOURSEM(DATE(A1; 1;1);2);7)
    Merci pour votre aide
    Patrick

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Jour Bon
    En A1 le N° de Semaine
    En B1 l'année
    En C1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =7*A2+DATE(B2;1;3)-JOURSEM(DATE(B2;1;3))-5
    Sinon il y a aussi C1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =DATE(B1;1;0)-CHOISIR(JOURSEM(DATE(B1;1;0);2);7;8;9;3;4;5;6)+7*A1
    Ainsi que C1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SOMME(MOD(("1/"&B1)-{0;6};{1E+99;7})*{1;-1})+A1*7-4

  3. #3
    Membre averti
    Inscrit en
    Février 2005
    Messages
    29
    Détails du profil
    Informations personnelles :
    Âge : 69

    Informations forums :
    Inscription : Février 2005
    Messages : 29
    Par défaut
    Formidable...
    tout fonctionne, j'ai pas tout saisi, mais c'est super
    encore Merci
    Patrick

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Calendrier] trouver les lundi et mardi entre 2 dates
    Par BLEITE dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 2
    Dernier message: 14/04/2011, 10h19
  2. un programe SAS qui tourne le 1er Lundi du mois
    Par benvanbelgie dans le forum Débutez
    Réponses: 6
    Dernier message: 05/03/2010, 15h37
  3. Trouver le premier jour de la semaine
    Par nanou2183 dans le forum VBA Word
    Réponses: 6
    Dernier message: 04/11/2009, 15h00
  4. [FAQ] trouver le nom du jour de semaine
    Par SfJ5Rpw8 dans le forum Vos Contributions VBScript
    Réponses: 1
    Dernier message: 09/07/2007, 13h08
  5. [Dates] 1er Lundi et le dernier Lundi d'un mois
    Par mic79 dans le forum Langage
    Réponses: 2
    Dernier message: 30/09/2005, 17h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo