Discussion :

[Monte_Carlo]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BlueMonkey]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Monte_Carlo]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Monte_Carlo]

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

[BlueMonkey]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Monte_Carlo]

Ok niquel ça fonctionne !!

Merci beaucoup