Formules VBE

[JOUB42]

Bonjour à tous,

j'ai un problème pour finir une macro vbe avec un Spinbutton pour un défillement pour les mois et faire changer la feuille entière

ci-joint fichier pour + explication

Je vous remercie pour encore une fois votre aide.

Salutations

JOUB42
[file name=banque.zip size=44991]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/banque.zip[/file]

 

[Hellboy]

Bonjour JOUB42

Si je comprend bien, tu veux changer de feuille losque tu tu pèse sur le SpinButton.

Alors, il faut que tu utilise un autre type de procédure évènementiel que celle que tu utilisait. J'e^père avoir bien compris.

'Private Sub SpinButton1_Change()
'monmois = Range('C3')
'If monmois = '' Then Exit Sub
'If monmois > 12 Then Exit Sub
'Range('B3') = Choose(monmois, 'JANVIER', 'FEVRIER', 'MARS', 'AVRIL', 'MAI', 'JUIN', 'JUILLET', 'AOUT', 'SEPTEMBRE', 'OCTOBRE', 'NOVEMBRE', 'DECEMBRE')
'Range('B41').Select
'
'End Sub

Private Sub SpinButton1_SpinDown()
On Error Resume Next
Sheets(ActiveSheet.Index - 1).Activate
If Err Then
    MsgBox 'Vous êtes rendu au premier Onglet'
    Err.Clear
End If
On Error GoTo 0
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
Sheets(ActiveSheet.Index + 1).Activate
If Err Then
    MsgBox 'Vous êtes rendu au Dernier Onglet'
    Err.Clear
End If
On Error GoTo 0
End Sub

Message édité par: Hellboy, à: 05/11/2005 14:54

 

[JOUB42]

Hellboy

je te remercie ok cela fonctionne

Joub42