Date week-end

[OFFSET]

Bonjour à tous,

Celà commençait à faire longtemps que VBA ne m'avait pas bloqué, c'était trop beau pour être vrai!!

Voilà mon pb:

créer un code me permettant de savoir sur quelle jour de la semaine tombe ma date, et d'y rajouter +1 ou +2 si le jour est un samedi ou un dimanche.

Je ne souhaite pas passer par la création d'un nouveau champ dans mon tableau dans lequel j'appliquerais la fonction WeekDay pour ensuite recalculer.

Quelqu'un aurait-il une solution à me proposer.

Je reste à votre dispo pout plus d'informations

Merci d'avance

 

[Pierrot93]

Re : Date week-end

Bonjour Offset

regarde le code ci-dessous si il peut t'aider :

Dim d As Date, x As Byte
d = ActiveCell.Value
x = Weekday(d, vbMonday)
d = d + Switch(x < 6, 0, x = 6, 2, x = 7, 1)

bonne journée
@+

 

[ROGER2327]

Re : Date week-end

Bonjour OFFSET

[B][COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range
   If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
   For Each oCel In Intersect(Target, Columns(1)).Cells
      If IsDate(oCel.Value) Then
         Application.EnableEvents = False
         Select Case WorksheetFunction.Weekday(oCel.Value, 2)
         [COLOR="SeaGreen"]'ajouter +1 ou +2 si le jour est un samedi ou un dimanche :[/COLOR]
         Case 6: oCel.Value = oCel.Value + 1 [COLOR="SeaGreen"]'(samedi)[/COLOR]
         Case 7: oCel.Value = oCel.Value + 2 [COLOR="SeaGreen"]'(dimanche)[/COLOR]
         End Select
         Application.EnableEvents = True
      End If
   Next oCel
End Sub[/COLOR][/B]

pour la saisie des dates en colonne A.​

ROGER2327
#2618

 

[OFFSET]

Re : Date week-end

Merci pour ces deux réponses, Pierrot je n'ai pas tester ta solution, celle de Roger en revanche marche parfaitement.

A bientôt Offset