j ai un pb avec un fichier excel
quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes
(useform3). des que cette page se cache j en ai une second qui s affiche
avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté
par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon
PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
note : mot de passe pour retirer la barre outil "toto"
mot de passe pour aller dans vba "toto"
les données de la listbox sont dans l'onglet "données"
le nom de l'userform est EFFECTIF
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RV
Bonsoir Damgui, J'ai une version Excel trop ancienne (pack office97) et je ne peux pas enlever la protection vba. Je ne suis pas un pro en la matière et ce n'est pas génial mais voilà ce que je propose avec un user et une listbox1 (cela devrait dépanner dans un 1er temps):
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For sh = 1 To Sheets.Count Sheets(sh).Visible = True Next
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = False Then Sheets(ListBox1.List(i)).Visible = False End If Next
Unload Me
End Sub
Private Sub UserForm_Activate()
For sh = 1 To Sheets.Count ListBox1.AddItem (Sheets(sh).Name) Next
End Sub
D'autres te proposeront certainement plus simple et mieux... Bonne soirée RV
"damgui" a écrit dans le message de news: 44ce58eb$0$3153$
bonjour,
voila,
j ai un pb avec un fichier excel quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes (useform3). des que cette page se cache j en ai une second qui s affiche avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
note : mot de passe pour retirer la barre outil "toto" mot de passe pour aller dans vba "toto" les données de la listbox sont dans l'onglet "données" le nom de l'userform est EFFECTIF
Et encore
merci de votre aide
damgui
Bonsoir Damgui,
J'ai une version Excel trop ancienne (pack office97) et je ne peux pas
enlever la protection vba.
Je ne suis pas un pro en la matière et ce n'est pas génial mais voilà ce que
je propose avec un user et une listbox1 (cela devrait dépanner dans un 1er
temps):
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
For sh = 1 To Sheets.Count
Sheets(sh).Visible = True
Next
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = False Then
Sheets(ListBox1.List(i)).Visible = False
End If
Next
Unload Me
End Sub
Private Sub UserForm_Activate()
For sh = 1 To Sheets.Count
ListBox1.AddItem (Sheets(sh).Name)
Next
End Sub
D'autres te proposeront certainement plus simple et mieux...
Bonne soirée
RV
"damgui" <damienguilbert@free.fr> a écrit dans le message de news:
44ce58eb$0$3153$626a54ce@news.free.fr...
bonjour,
voila,
j ai un pb avec un fichier excel
quand j ouvre excel j ai une page de presentation dqui s affiche 15
secondes (useform3). des que cette page se cache j en ai une second qui s
affiche avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox
est alimenté par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon
PB
Jevoudrait que quand je selectionne un nom, il me cache les autres
feuilles.
note : mot de passe pour retirer la barre outil "toto"
mot de passe pour aller dans vba "toto"
les données de la listbox sont dans l'onglet "données"
le nom de l'userform est EFFECTIF
Bonsoir Damgui, J'ai une version Excel trop ancienne (pack office97) et je ne peux pas enlever la protection vba. Je ne suis pas un pro en la matière et ce n'est pas génial mais voilà ce que je propose avec un user et une listbox1 (cela devrait dépanner dans un 1er temps):
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For sh = 1 To Sheets.Count Sheets(sh).Visible = True Next
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = False Then Sheets(ListBox1.List(i)).Visible = False End If Next
Unload Me
End Sub
Private Sub UserForm_Activate()
For sh = 1 To Sheets.Count ListBox1.AddItem (Sheets(sh).Name) Next
End Sub
D'autres te proposeront certainement plus simple et mieux... Bonne soirée RV
"damgui" a écrit dans le message de news: 44ce58eb$0$3153$
bonjour,
voila,
j ai un pb avec un fichier excel quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes (useform3). des que cette page se cache j en ai une second qui s affiche avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
note : mot de passe pour retirer la barre outil "toto" mot de passe pour aller dans vba "toto" les données de la listbox sont dans l'onglet "données" le nom de l'userform est EFFECTIF
Et encore
merci de votre aide
damgui
Francois L
bonjour,
voila,
j ai un pb avec un fichier excel quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes (useform3). des que cette page se cache j en ai une second qui s affiche avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
Bonjour,
La solution que je t'avais proposée ne convient pas : masquer toutes les feuilles au départ et afficher celle qui est sélectionnée par le Listbox ?
Honnêtement, charger une archive Rar de 11 Mo à 7 hures du matin... même avec du débit, je suis pas bien chaud. Je crains tout de même l'usine à gaz indécodable.
-- François L
bonjour,
voila,
j ai un pb avec un fichier excel
quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes
(useform3). des que cette page se cache j en ai une second qui s affiche
avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté
par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon
PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
Bonjour,
La solution que je t'avais proposée ne convient pas : masquer toutes les
feuilles au départ et afficher celle qui est sélectionnée par le Listbox ?
Honnêtement, charger une archive Rar de 11 Mo à 7 hures du matin... même
avec du débit, je suis pas bien chaud. Je crains tout de même l'usine à
gaz indécodable.
j ai un pb avec un fichier excel quand j ouvre excel j ai une page de presentation dqui s affiche 15 secondes (useform3). des que cette page se cache j en ai une second qui s affiche avec une lise de nom. (Nom de l'useform : EFFECTIF) , la lisbox est alimenté par la feuille "données" de la cellule d3 a d4
En selectionnant le nom on a à l'onglet correspondant au prenom
Mon PB
Jevoudrait que quand je selectionne un nom, il me cache les autres feuilles.
Bonjour,
La solution que je t'avais proposée ne convient pas : masquer toutes les feuilles au départ et afficher celle qui est sélectionnée par le Listbox ?
Honnêtement, charger une archive Rar de 11 Mo à 7 hures du matin... même avec du débit, je suis pas bien chaud. Je crains tout de même l'usine à gaz indécodable.
