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

[nernono]

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

 

[sylvanu]

Bonjour Nernono,
Un essai en PJ avec :

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.

 

[nernono]

bonjour,

merci pour votre aide

j'ai voulu modifier ma feuille et donc B2 est devenue B1.

quand je fait la modif sur la macro cela ne marche plus
voici le résultt

 

[nernono]

voici le résultat de la modification :

If Weekday([B2]) = 7 Then [B2] = [B2] + 2 Else [B2] = [B2] + 1

 

[nernono]

désolé la date est en B1 et quand je change la cellule il bug dès le début de la ligne de code

 

[sylvanu]

B1 doit contenir une date sous forme de nombre et non une chaine de caracteres, sinon Renvoyez votre fichier.