Suppression des samedi et dimanche

J

JHA

XLDnaute Barbatruc

• 29 Avril 2019

• #2

Bonjour à tous,

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

VB:

=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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Avril 2019

• #3

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

 

Pièces jointes

• ChantalTreize_1.xlsm

  34 KB · Affichages: 28

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 29 Avril 2019

• #4

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Avril 2019

• #5

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

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Avril 2019

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mai 2019

• #7

Re,

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

VB:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Mai 2019

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mai 2019

• #9

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 ?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Mai 2019

• #10

Re

Staple1600 à dit:

Sinon la petite macro devrait fonctionner sur 2007, non ?

Cliquez pour agrandir...

Oui

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mai 2019

• #11

Re

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Mai 2019

• #12

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

 

Vote positif 0 Vote négatif