ScrollBar avec des dates

Bonsoir,

J'essaye de faire une ScrollBar sur des dates !
Mais je n'y arrive pas car si je mets ça :
Code:

1 2 3 4 5 6 7 With Sheet1.ScrollBars("Scroll Bar 36") .Value = Range("Start_Date") .Min = Range("Start_Date") .Max = Range("Start_Date") + 730 .SmallChange = 31 .LargeChange = 180 End With
31 correspondant à un small change de 1 mois et 6 mois pour le large
Range("Start_Date") = 29 Février 2012 (date d'aujourd'hui)

Mais comme je mets ça j'obtiens l'erreur suivante :
"Run-tim error ‘1004’
Application-defined or object defined error"

Si quelqu'un peut m'aider :)

Merci d'avance

Bonsoir,

3 points à vérifier :
- le nom de la scrollBar me paraît très surprenant car il contient des espaces Sheet1.ScrollBars("Scroll Bar 36").
- pour accéder à la scrollBar, pourquoi ne pas utiliser son nom d'objet directement (voir le nom donné dans l'explorateur d'objet)
- dans la définition des propriété de la scrollBar, la valeur devrait être changée après avoir fixer les bornes Min / Max.

exemple de code pour un barre nommé ScrollBar1 :
Code:

1 2 3 4 5 6 7 With ScrollBar1 .Min = Range("Start_Date") .Max = Range("Start_Date") + 730 .Value = Range("Start_Date") .SmallChange = 31 .LargeChange = 180 End With
P.S : tous les mois n'ont pas 31 jours. Du coup il y a un décalage de plusieurs jours après quelques déplacement.

Merci pour ta réponse BlueMonkey mais ça ne fonctionne toujours pas !!

J'ai une autre ScrollBar dans ma feuille, avec ce code :

Code:

1
2
3
4
5
6
7
     With Sheet1.ScrollBars("Scroll Bar 34")
        .Value = Sheet1.Range("Price") 
        .Min = (Sheet1.Range("Price") /1.5) 
        .Max = (Sheet1.Range("Price") * 1.5)                                         
        .SmallChange = 0.005 * Sheet1.Range("Price")
        .LargeChange = 0.01 * Sheet1.Range("Price")
    End With

et cela fonctionne très bien !!

Bon en fait c bon j'ai réussi !
Mais tu aurai la solution pour que ça change de 1 mois exactement.

Bonsoir,

On peut imaginer des solutions à partir du gestionnaire d'évènement associé à l'évènement Change de la scrollBar.

Exemple pour garder toujours le même premier jour que celui de la plage Start_Date, quelque soit le mois :
Code:

1 2 3 4 5 6 7 Private Sub ScrollBar1_Change() With ScrollBar1 If Day(.Value) <> Day(Range("Start_Date").Value) Then .Value = DateValue(Day(Range("Start_Date").Value) & "/" & Month(.Value) & "/" & Year(.Value)) End If End With End Sub

Ok niquel ça fonctionne !!

Merci beaucoup :ccool: