Formules VBE

JOUB42

XLDnaute Occasionnel
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]
 

Pièces jointes

  • banque.zip
    43.9 KB · Affichages: 34
  • banque.zip
    43.9 KB · Affichages: 19
  • banque.zip
    43.9 KB · Affichages: 22

Hellboy

XLDnaute Accro
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('B4:D1').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
 

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 303
dernier inscrit
dreydrette