Incrémentation +7 jours Résolu/Fermé

Question

Bonjour à tous,

J'ai un fichier de planning. 
En cellule I8 j'ai la date du lundi. En P8 j'ai la date I8+6 (le dimanche donc).
J'aimerai via un bouton, incrémenter la cellule I8 de 7 jours (pour passer au lundi suivant).

Le code actuel rattaché à ce bouton est actuellement :

Sub IncrementationSup7()

Dim num As Integer

Range("I8").Select
 
Date = Range("I8").Value
Date = Date + 7
Range("I8").Value = Date

End Sub

Ce code fonctionne sur un autre onglet pour incrémenter un nombre de 1.
J'ai l'impression qu'au format date ça ne veut pas le prendre en compte car un message d'erreur s'affiche...

L'erreur est "erreur d'exécution 70 : Permission refusée

Une idée svp?

Merci d'avance pour votre retour! Bonne soirée!

ALS35 · Answer

Bonjour, 

Date est une fonction réservée. Ceci devrait suffire :

Sub IncrementationSup7()
 
Range("I8").Value = Range("I8").Value + 7

End Sub

Cordialement

Incrémentation +7 jours

1 réponse

Discussions similaires