calendrier semaine sans afficher les sam et dim

Pour toutes vos questions à propos d'Excel ...

calendrier semaine sans afficher les sam et dim

Messagepar clyver » 05 Sep 2008, 16:34

bonjour le forum,

j'aimerai faire un calendrier automatique sans afficher les SAMEDI et les DIMANCHE.

EX :
Janvier 08
Mar 01/01/08
Mer 02/01/08
Jeu 03/01/08
Ven 04/01/08
Lun 07/01/08
etc
Novembre 08
Lun 03/11/08
Mar 04/11/08
Mer 05/11/08
Jeu 06/11/08
Ven 07/11/08
Lun 10/11/08
etc

Merci :wink:
Avatar de l’utilisateur
clyver
Membre fidèle
 
Messages: 187
Inscription: 20 Mars 2008, 12:08

Messagepar thibo » 05 Sep 2008, 16:56

Bonjour,

Avec la date de départ en A1, tu peux essayer cette formule en A2 :

Code: Tout sélectionner
=A1+1+(JOURSEM(A1;2)=5)*2


@+
thibo
Passionné d'Excel
 
Messages: 3092
Inscription: 03 Mai 2007, 18:51
Version Excel: Excel 2003 + 2007

Messagepar clyver » 05 Sep 2008, 17:13

salut thibo


cela ne fonctionne pas avec la date de depart si je note 01/11/08
Avatar de l’utilisateur
clyver
Membre fidèle
 
Messages: 187
Inscription: 20 Mars 2008, 12:08

Messagepar thibo » 05 Sep 2008, 17:46

re,

nouvel essai avec cette formule :

Code: Tout sélectionner
=A1+1+(JOURSEM(A1;2)>=5)*(7-JOURSEM(A1;2))


Essaye et dis nous

@+
thibo
Passionné d'Excel
 
Messages: 3092
Inscription: 03 Mai 2007, 18:51
Version Excel: Excel 2003 + 2007

Messagepar felix » 05 Sep 2008, 17:57

Bonjour,

Re, Thibo


une autre solution

Dans A2, tu entres 01/11/2008
Tu sélectionnes A2
Tu fais Edition/Remplissage/Série

Tu sélectionnes Série en colonnes, si tu veux avoir les dates les unes en dessous des autres

Tu sélectionnes "Jour Ouvré", avec un pas de 1, et tu mets la dernière date voulue (exemple 30/11/2008)

et voilou
Notre seule récompense est un "Merci".........
felix
Membre impliqué
 
Messages: 1549
Inscription: 11 Août 2007, 20:01
Localisation: Landerneau, Finistère
Version Excel: 2003 Fr (PC); 2007 Fr (PC)

Messagepar dubois » 05 Sep 2008, 18:54

Bonjour à tous,
aussi :
Code: Tout sélectionner
Sub liste_joursOuvrés()
    Range("A1").AutoFill Destination:=Range("A1:A20"), Type:=xlFillWeekdays
End Sub

Destination:=Range("A1:T1") pour horizontal.
amicalement
Claude.
Faire simple, c'est ce qui est le plus compliqué ! et vice versa (à méditer)
dubois
Passionné d'Excel
 
Messages: 9252
Inscription: 08 Déc 2007, 12:03
Localisation: MEUDON région parisienne
Version Excel: Vista Office 2007FR


Retourner vers Excel - VBA

 


  • Sujets similaires
    Réponses
    Vus
    Dernier message

Utilisateurs en ligne

Utilisateurs parcourant ce forum: Bing [Bot], Google Adsense [Bot] et 17 invités