Formules VBE

JOUB42 · 5 Novembre 2005

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 · 5 Novembre 2005

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 · 5 Novembre 2005

Hellboy

je te remercie ok cela fonctionne

Joub42

Formules VBE

JOUB42

XLDnaute Occasionnel

Pièces jointes

Hellboy

XLDnaute Accro

JOUB42

XLDnaute Occasionnel

Discussions similaires