CommandButton dans userform

[Philippe]

Bonjour les gens 🙂

Voila mon souci : J'ai essayé de trouver mon problème dans le forum avant de vous le soumettre :

J'ai un userform avec plusieurs Boutons de commande :

Dans mon fichier excel(toto.xls), j'ai plusieurs feuilles (f1,f2,f3)

A l'ouverture de mon fichier toto.xls, seule la feuille f1 est active

J'ai collé une image sur ma feuille f1 et lui ai affecté une macro, lorsque je clique dessus le userform s'affiche avec tous mes boutons :whistle:

Je voudrais donc des l'appui sur le premier bouton (par exemple) activer ma feuille f2 et me positionner dessus 😱

j'arrive à rien, sniffff, je dois avoir le cerveau palmé ce matin :silly:

HELP

 

[WILFRIED]

Salut Philippe


Si tes feuille sont masqué :

private sub commandbutton1_click
if worksheets('f2').visible=false then
worksheets('f2').visible=true
worksheets('f2').select
esle
worksheets('f2').visible=false
end if
end sub

Tu n'a plus qu'a recopier pour les autres boutons.

A+

 

[Philippe]

OK WILFRIED

et pendant que je te tiens 😉

comment compter le nombre de feuille ouvertes dans un classeur ???

 

[Jam]

Salut Philippe,

Une chtite boucle où tu testes l'état (visible ou pas) et le tour est joué, genre:

Sub CountWorksheetsVisible()
Dim x As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
For Each x In ActiveWorkbook.Worksheets
    If x.Visible = xlSheetVisible Then
        i=i+1
    End If
Next
Debug.? i
Application.ScreenUpdating = True
End Sub

Autre bout de code
Thisworkbook.worksheets.count
Te donne le nombre de feuilles du classeur

HTH

Message édité par: mrexcel, à: 03/03/2005 11:44