Bonjour,
J'ai crée deux boutons pour augmenter et diminuer une date d'un mois à chaque clic, le soucis est que m'a date s'incrémente de jours en jours et non mois par mois
Voici mon code pour descendre les mois (Le meme pour les montée avec -I)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub moins_un()
 
Dim moins_un As Date
 
        For I = 1 To 1 'compteur pour enlever 1 mois a la date en I2
            moins_un = Cells(2, 9) - I
            Cells(2, 9) = moins_un 'mettre dans la boucle pour visualiser le Chgt de mois
 
        Next I
 
End Sub
Peut être avec la correspondance en VBA de MOIS.DECALER mais je ne connais pas !

Merci d'avance