Date du samedi et dimanche suivant

[sev]

Bonjour à tous ,

Quand je clic sur le bouton 1 , je voudrais mettre la date du dimanche suivant à aujourd'hui en cellule A2 et la date du samedi en A3.

Private Sub CommandButton1_Click()


    Sheets("BLEU").Visible = True' jour du dimanche suivant
    
  

Sheets("BLEU").Select
'il faut mettre en cellule A2 de la feuille "BLEU" la date du dimanche suivant à aujourd'hui
'il faut mettre en cellule A3 de la feuille "BLEU" la date du samedi suivant à aujourd'hui
 
End Sub

Merci pour votre aide

 

[JCGL]

Re : Date du samedi et dimanche suivant

Bonjour à tous,

Es-tu vraiment contraint et obligé de passer par du VBA ?

A+ à tous

 

[Cousinhub]

Re : Date du samedi et dimanche suivant

Bonjour,

Salut JC 🙂🙂

essaie ainsi :

With Sheets("BLEU")
    .[A2] = Format(Date + 8 - Weekday(Date), "dddd dd/mm/yy")
    .[A3] = Format(Date + 7 - Weekday(Date), "dddd dd/mm/yy")
End With

 

[JCGL]

Re : Date du samedi et dimanche suivant

Bonjour à tous,
Salut BH² 🙂🙂

Comme d'habitude : N'apporte rien à la discussion... Arf Ges 🙂

Super content de te croiser...

A+ à tous

 

[ROGER2327]

Re : Date du samedi et dimanche suivant

Bonjour à tous

Une formule facilement traduisible en VBA :

=A1+MAX(1;7-JOURSEM(A1))

Elle donne le samedi ou le dimanche qui suit la date donnée en A1.​

ROGER2327

 

[sev]

Re : Date du samedi et dimanche suivant

Merci à vous messieurs , j'utilise le code de bhbh qui s'adapte parfaitement à mon fichier