Appeler une feuille grace à une Listbox

[maval]

Bonjour,

J'ai un formulaire avec une listBox et j'aimerai appeler une feuille grace à cette Listbox en affichant les feuilles de mon choix et en la selectionnant dans la listbox.

Je vous remercie d'avance

Cordialement

Maval

 

[Pierrot93]

Re : Appeler une feuille grace à une Listbox

Bonjour,

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

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
@+

 

[maval]

Re : Appeler une feuille grace à une Listbox

Bonsoir Pierrot,

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

Max

 

[Eric C]

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

 

[Pierrot93]

Re : Appeler une feuille grace à une Listbox

Re, bonsoir Eric

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

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

 

[Si...]

Re : Appeler une feuille grace à une Listbox

salut

pour le clic, cela pourrait suffire :

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

 

[maval]

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:

.Visible = xlSheetVeryHidden

Si vous avez une idée du pourquoi?

Je vous remercie d'avance

Maval

 

[Pierrot93]

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
@+

 

[maval]

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