Bonjour,

J'utilise deux spinbutton pour afficher deux dates dans textbox que j'utilise par la suite pour diverses fonctions :

Nom : Sans titre.jpg Affichages : 2202 Taille : 73,4 Ko

Ce que j'aimerais faire maintenant, c'est qu'il soit affiché dans les deux textbox vides en bas, à gauche : le premier du mois précédent et à droite le dernier jour du moins précédent (correspondant à date de fin du filtre) !

Je ne peux pas utiliser le spinbutton pour afficher le 1er du mois précédent dans la textbox à cause du code qui utilise private spinbutton !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub SpinDateF_Change()
 
 
Dim RngF As Range
 
 Set RngF = Range("DateFin") ' Plage des données
    With Me
        .TextBox2 = RngF.Cells(2, 1)
        With .SpinDateF
            .Min = RngF.Rows.Count
            .Max = 1
        End With
    End With
 
    With Me.SpinDateF
        TextBox2 = RngF.Cells(.Value, 1)
    End With
 
End Sub

Auriez vous des idées svp ?

Merci d'avance