Discussion :

[bull5587]

Bonjour,

je suis a la recherche d'une code qui me permettrai d'ouvrir une feuille excel cachée.

Dans un Userform j'ai placé une combobox qui me renvoie l'ensemble des noms des feuilles caché dans mon fichier(ces nom sont répertorier dans un tableau)

je souhaiterai que la feuille correspondante a la valeur de la combobox ne soit plus caché.

[ code tésté]

if combobox1.value<>"" then

sheets("combobox1.value").visible=true
sheets("combobox1.value").activate

biensur cela ne marche pas

merci pour votre aide

[rvtoulon]

Bonjour essaie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner une feuille dans la liste!"
Else
    With Sheets(Me.ComboBox1.Value)
        .Visible = True
        .Activate
    End With
End If
End Sub

remarque que j'ai enlevé les "" dans sheets ()...

[bull5587]

ça marche impequable.

ma quéstion est la suivante: le fait que tu est retirer les "" changes quoi ?

le fait de mettre -1 te donne plus de possibilité?

[rvtoulon]

Re,
quand tu as mis : sheets("combobox1.value") il cherche en fait une feuille qui s'appelle combobox1.value
alors qu'en enlevant les guillemets, sheets(combobox1.value), il cherche une feuille qui a pour nom la valeur de la combo.

pour ce qui est du listindex = -1 c'était pour faire un test:
voici ce que dit l'aide d'excel à propos de listindex:

La propriété ListIndex contient un index de la ligne sélectionnée dans la liste. Les valeurs de la propriété ListIndex sont comprises entre –1 et le nombre total de lignes de la liste moins 1 (c'est-à-dire, ListCount – 1). Lorsqu'aucune ligne n'est sélectionnée, la propriété ListIndex renvoie la valeur –1. Quand l'utilisateur sélectionne une ligne d'un contrôle ListBox ou ComboBox, le système définit la valeur de la propriété ListIndex. La valeur de la propriété ListIndex de la première ligne de la liste est zéro, la valeur de la deuxième liste est 1, et ainsi de suite.

voici le code écrit différemment et commenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub ComboBox1_Change()
 
 
'si j'ai choisi une entrée dans la liste alors
If Me.ComboBox1.ListIndex <> -1 Then
 
    'avec la feuille qui a pour nom la valeur sélectionnée dans la combo
    With Sheets(Me.ComboBox1.Value)
        .Visible = True 'je l'a rend visible
        .Activate       'je l'active
    End With
 
 
End If
 
 
 
 
End Sub

[bull5587]

merci beaucoup a toi c parfait une fois réintégrer dans mon programme ça marche impécable