Incrémentation +7 jours

Résolu/Fermé

FlorianR - Modifié le 8 déc. 2020 à 18:16
FlorianR - 8 déc. 2020 à 22:46

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!

A voir également:

Incrémentation +7 jours
Clé windows 7 - Guide
Passer de windows 7 à windows 10 - Guide
Movie maker windows 7 - Télécharger - Montage & Édition
Telecharger photofiltre 7 gratuit - Télécharger - Retouche d'image
Télécharger 7-zip - Télécharger - Compression & Décompression

1 réponse

Réponse 1 / 1

ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139
8 déc. 2020 à 18:29

Bonjour,

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

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

End Sub

Cordialement

FlorianR
8 déc. 2020 à 22:46

Merci beaucoup! Problème résolu!

Discussions similaires

que veut dire sous 2 jours?

Discussions similaires

Newsletters