Bonsoir à tous,

En K1, j'ai la formule suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=DATEVAL("01/" & O1 & "/" & P1)+(M1*3)
O1 = 5 (mois en cours)

P1 = 2013 (Année en cours)

Quand j'incrémente d'un pas un SpinButton sur la feuille, la date en K1 change et un code VBA s'exécute à l'évènement SpinButton1_Change :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub SpinButton1_Change()
    With Me.SpinButton1
        .LinkedCell = Range("M1").Address
        .SmallChange = 1
        .Max = 10
        .Min = 0
        .PrintObject = False
        If .Value > 0 And .Value <= 10 Then
            'Call Procédure
        End If
    End With
End Sub
Mais voila, j'ai un souci :

A l'ouverture du classeur, la cellule liée $M$1 affiche un zéro 0 et la date en K1 affiche le 01/05/2013, mais le code n'est pas exécuté.

Si j'actionne le SpinButton, le code sera exécuté avec en K1 la date du 04/05/2013.

Mais j'ai besoin de le faire fonctionner avec la date du 01/05/2013.

Comment faire pour que le code se lancera à cette date ?

Merci d'avance.