Suppression des samedi et dimanche

[ChantalTreize]

Bonjour tout le monde,
J'ai un calendrier du 1/1/2010 à 31/12/2018 avec tous les jours de la semaine
existe t'il une fonction qui pourrait supprimer les lignes des samedis et dimanches
Merci d'avance
Chantal

 

[JHA]

Bonjour à tous,

Avec la date en "A2", en "A3":

=SERIE.JOUR.OUVRE($A2;1)

A copier vers le bas
Si tu connais les jours fériés, tu peux les rajouter dans la formule.

JHA

 

[Efgé]

Bonjour ChantalTreize, Bonjour JHA

Pas compris la même chose alors je poste.
@ ChantalTreize, après 129 messages, tu devrais savoir qu'un petit fichier exemple anonyme est toujours le bienvenu..

Deux propositions une par formule et une par macro

Cordialement

 

[ChantalTreize]

Bonjour et un grand merci pour ton travail la macro fonctionne superbement
quand à la formule matricielle, celle là je la garde sous le coude parce qu’elle n'est piquée des vers !!!
Un grand merci encore
Chantal
PS désolée si je n'avais pas mis de fichier, mais c'était exactement cela que je voulais

 

[Efgé]

Re
A noter que la proposition de JHA est à retenir également pour créer la liste.

Cordialement

 

[Staple1600]

Bonsoir

Pour infos
A la mimine, sans macros
Saisir une date en A1 (par exemple) puis clic-droit tout en recopiant vers le bas
Normalement ce menu doit apparaître, faire alors le choix idoine

 

[Staple1600]

Re,

Et juste pour le fun (et avant le dodo)
Comme demandé: un calendrier sans samedi ni dimanche

Sub CalendrierJoursOuvrés()
Dim DatesC
DatesC = InputBox("Saisir Date de début et Fin du calendrier" & Chr(13) & Chr(13) _
& "NB: Date Début et Date Fin à séparer par un ;" & Chr(13) _
& Chr(13) & vbTab & "Valeurs par défaut: année en cours", "Création Calendrier", CDate("1/1/" & Year(Date)) & ";" & CDate("31/12/" & Year(Date)))
If StrPtr(DatesC) = 0 Then
MsgBox "Création du calendrier annulée!", vbCritical, "Annulation"
ElseIf Len(DatesC) Then
PJ = CDate(Split(DatesC, ";")(0))
DJ = CLng(CDate(Split(DatesC, ";")(1)))
With [A1]
.Value = PJ
.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlWeekday, Step:=1, Stop:=DJ, Trend:=False
End With
End If
End Sub

 

[Efgé]

Salut Staple , bonjour à toutes et tous
Sous 2007 cette méthode n'existe pas..

De plus je pense que ChantalTreize avait une liste de jours a nettoyer

Cordialement

 

[Staple1600]

Bonsoir Efgé

J'avais indiqué: Pour infos
(En me disant que d'autres membres que ChantalTreize lirait ce fil )

PS: Sinon la petite macro devrait fonctionner sur 2007, non ?

 

[Efgé]

Re

Sinon la petite macro devrait fonctionner sur 2007, non ?

Oui

Cordialement

 

[Staple1600]

Re

Efgé
Je suppose que tu avais formaté A1 selon ton souhait avant exécution, non ?

 

[Efgé]

Re
Après passage du code, pour voir l’absence de W.E (voir l'absence quel concept... )
Cordialement