Date week-end

OFFSET · 21 Janvier 2010

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 · 21 Janvier 2010

Re : Date week-end

Bonjour Offset

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

Code:

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 · 21 Janvier 2010

Re : Date week-end

Bonjour OFFSET

Code:

[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 · 21 Janvier 2010

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

Date week-end

OFFSET

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

OFFSET

XLDnaute Nouveau

Discussions similaires

Date week-end

OFFSET

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

OFFSET

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency