Incrémentation +7 jours [Résolu]

Signaler
-
 FlorianR -
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!

1 réponse

Messages postés
586
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
21 janvier 2021
34
Bonjour,

Date est une fonction réservée. Ceci devrait suffire :

Sub IncrementationSup7()
 
Range("I8").Value = Range("I8").Value + 7

End Sub


Cordialement
Merci beaucoup! Problème résolu!