SpinButton

[delepine]

Bonjour,
J'utilise le code cidessous pour faire varier la date d'une cellule en sautant les WE.
Maintenant je voudrais que la cellule n'aille pas plus loin que la date du jour, est ce possible??

Private Sub SpinButton1_SpinUp()
Select Case Weekday(Range('g4'))
Case 6: Range('g4') = Range('g4') + 3
Case Else: Range('g4') = Range('g4') + 1
End Select
End Sub


Merci

 

[ERIC S]

Bonjour

essaie

If Range('g4').Value inf Date Then
.....

End If

(remplacer inf par le signe correspondant)

A+

 

[delepine]

...Et bien ca fonctionne

Merci Eric S