VBA ajouter un jour à une date dans une cellule

Bonjour,

Novice en VBA, je suis en train de me casser la tête sur une formule toute simple.

Voici ce que je cherche à faire :

J'aimerais créer un bouton permettant d'ajouter un jour dans la case B1 de mon onglet.

La création du bouton ne me pose pas de pb, par contre je n'arrive pas à écrire cette petite macro qui ajoute, à la date en B1, un jour et l'inscrive dans cette même case.

Est ce que l'un d'entre vous pourrez m'aider dans cette perspective?

Cordialement,

Nicolas

Bonjour Nico et bienvenu, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim DD As Date 'déclare la variable DD (Date de départ)
Dim DP1 As Date 'déclare la variable DP1 (Date Plus 1 jour)
DD = DateSerial(Year(Range("B1").Value), Month(Range("B1").Value), Day(Range("B1").Value)) 'définit la date de départ DD
DP1 = DD + 1 'définit la date plus un jour DP1
Range("B1").Value = DP1 'renvoie DP1 dans la cellule B1
End Sub

Bonjour,

Désolé de répondre tardivement, j'avais mis ce sujet de coté.

Néanmoins ce code fonctionne très bien, c'est exactement ce que je voulais.

Merci Bcp.