Appeler une feuille grace à une Listbox

Pierrot93

XLDnaute Barbatruc

• 24 Avril 2013

• #2

Re : Appeler une feuille grace à une Listbox

Bonjour,

essaye ceci, l'usf doit être non modal :

Code:

Private Sub ListBox1_Click()
With ListBox1
    Sheets(.List(.ListIndex - 1)).Activate
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
    ListBox1.AddItem ws.Name
Next ws
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 24 Avril 2013

• #3

Re : Appeler une feuille grace à une Listbox

Bonsoir Pierrot,

Je te remercie beaucoup et te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 24 Avril 2013

• #4

Re : Appeler une feuille grace à une Listbox

Bonsoir le forum
Bonsoir maval, bonsoir Pierrot93

Il semblerait que le code proposé pose un problème si l'utilisateur, alors qu'il se trouve sur la feuille 2, désire revenir sur la feuille 1. Je me permets de proposer ceci pour éviter l'incident :

Private Sub ListBox1_Click()
With ListBox1
Sheets(.ListIndex + 1).Select
End With
End Sub
Bonne soirée à toutes & à tous

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Avril 2013

• #5

Re : Appeler une feuille grace à une Listbox

Re, bonsoir Eric

Aarf bien Eric, il manquait aussi un "end with"...voici le code cortrigé :

Code:

Option Explicit
Private Sub ListBox1_Click()
With ListBox1
    Sheets(.List(.ListIndex)).Activate
End With
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
    ListBox1.AddItem ws.Name
Next ws
End Sub

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 24 Avril 2013

• #6

Re : Appeler une feuille grace à une Listbox

salut

pour le clic, cela pourrait suffire :

Code:

Private Sub ListBox1_Click()
  Sheets(ListBox1.Text).Activate
End Sub

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #7

Re : Appeler une feuille grace à une Listbox

Bonjour Pierrot, Si...

Je vous remercie de votre aide. j'ai associé se code, avec le code protection onglet par mot de passe qui ma était donné par Pierrot.

https://www.excel-downloads.com/threads/protection-onglet-par-mot-de-passe.204880/

Tous fonctionne mais j'ai un message d'erreur,
la méthode 'Visible de l'objet'_Worlsheet a échoué
à la ligne suivante:

Code:

.Visible = xlSheetVeryHidden

Si vous avez une idée du pourquoi?

Je vous remercie d'avance

Maval

 

Pièces jointes

• Classeur3.xlsm

  26.9 KB · Affichages: 31
• Classeur3.xlsm

  26.9 KB · Affichages: 34
• Classeur3.xlsm

  26.9 KB · Affichages: 29

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2013

• #8

Re : Appeler une feuille grace à une Listbox

Bonjour,

au moins une feuille doit rester visible dans un classeur, tu les masque toutes sauf la feuille "accueil"... mais il n'y en a pas portant ce nom....

bonne journée
@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #9

Re : Appeler une feuille grace à une Listbox

Bonjour Pierrot,

Oui exact tu as raison j'avais complétement oublier la feuil d'accueil.

Un grand merci.

Bonne journée

@+
Max

 

Vote positif 0 Vote négatif