XL 2010 ajout automatique d'un jours (semaine) à une date

nernono

XLDnaute Nouveau
re bonjour à tous,

je viens de faire une macro pour effacer une colonne des donnés qu'elle contient pour remettre des nouvelles information.
le soucis c'est que je voudrait, si possible j'aimerais préparer la date du lendemain de la semaine (lundi au samedi) automatiquement.
si vous pouvez m'aide et en plus m'expliquer se serais super top.
voici ma macro :

Sub Macro12()
'
' Macro12 Macro
'
' effacement des données
Range("B3:B5").Select
Selection.ClearContents
Range("B9:B22").Select
Selection.ClearContents

'changement de date Date+1 (jours de la semaine)

End Sub
 

Pièces jointes

  • comptage journalier rajout date.xlsm
    18.2 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Nernono,
Un essai en PJ avec :
VB:
If Weekday([B2]) = 7 Then [B2] = [B2] + 2 Else [B2] = [B2] + 1
JOURSEM ( Weekday en anglais ) donne le N° du jour, avec 2 pour le lundi, 3 mardi ... 7 pour le samedi, donc on rajoute 1 à la date sauf le samedi où on rajoute 2.
Attention en B2 vous avez du texte, je l'ai mis en nombre avec format date pour être traité facilement.
 

Pièces jointes

  • comptage journalier rajout date.xlsm
    17 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
312 897
Messages
2 093 392
Membres
105 718
dernier inscrit
Kro