probleme vba

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les feuilles contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de groupe de discussion :
Y-OdnZOqy7yeIwDR4p2dnAA@giganews.com...
Bonjour, je suis débutant en vba et je cherche a faire apparaitre une feuille de
calcul sous excel en fonction du texte de case fusionnées je mexplique
dans les cases fusionnées A1 a B8 j'ai une liste :
Electronique
Electrotechnique
Mécanique
et je souhaiterais faire apparaitre la feuille qui possede le meme nom lorsque
je choisi dans cette liste
si je choisi mecanique la feuille mécanique apparait et les 2 autres
disparaisses

merci pour votre aide

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les feuilles
contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"fabio89" a écrit dans le
message de groupe de discussion :

Bonjour, je suis débutant en vba et je cherche a faire apparaitre une
feuille de
calcul sous excel en fonction du texte de case fusionnées je mexplique
dans les cases fusionnées A1 a B8 j'ai une liste :
Electronique
Electrotechnique
Mécanique
et je souhaiterais faire apparaitre la feuille qui possede le meme nom lorsque
je choisi dans cette liste
si je choisi mecanique la feuille mécanique apparait et les 2 autres
disparaisses

merci pour votre aide

Merci MichelD
donc jai creer pour essai 4 fuilles
une feuille appeler feuille 1 sur laquelle jai fusionné A1 à B8
j'ai créer une liste dedans avec 3 choix a, b ou c
j'ai appelé mes 3 autres feuilles a b et c
et je veux que quand je choisi dans ma liste a
il cache les feuilles b et c ect...
j'ai essayé ton code
mais il me met des erreurs
ligne 2 :"On Error Resume Next"
si je suprime cette ligne le debuger en trouve une a
"If Not Intersect(Target, Range("A1:B8")) Is Nothing Then" il me surligne target

merci de ton aide

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les feuilles
contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"fabio89" a écrit dans le
message de groupe de discussion :

Bonjour, je suis débutant en vba et je cherche a faire apparaitre une
feuille de
calcul sous excel en fonction du texte de case fusionnées je mexplique
dans les cases fusionnées A1 a B8 j'ai une liste :
Electronique
Electrotechnique
Mécanique
et je souhaiterais faire apparaitre la feuille qui possede le meme nom lorsque
je choisi dans cette liste
si je choisi mecanique la feuille mécanique apparait et les 2 autres
disparaisses

merci pour votre aide

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Il y a toute une variété de manière de procéder pour faire ce que tu désires...
Tu pourrais créer par exemple des liens hypertextes pour passer d'une feuille à l'autre

Ce qui suit n'est qu'un exemple, une variante d'une façon de faire...
Il faut se méfier des cellules fusionnées.

Prend un classeur neuf !

Dans A1:A7 de chacune des feuilles, tu inscris le nom de 7 feuilles du classeur
A1 = Feuil1
A2 = Feuil2
A3= Feuil3
.../ect
A7 þuil7
Ces cellules ne sont pas fusionnées.


Et dans le ThisWorkbook du classeur, tu copies la procédure suivante :
'----------------------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

'A1:A7 est la plage où sont les noms des feuilles
If Not Intersect(Target, Range("A1:A7")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.EnableEvents = False
Application.Goto Worksheets(Target.Value).Range("A1"), True
Application.EnableEvents = True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------------------







--
MichD
--------------------------------------------


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de groupe de discussion :
peudnU8pj6zceADR4p2dnAA@giganews.com...
michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"fabio89" a écrit dans le
message de groupe de discussion :

Bonjour, je suis débutant en vba et je cherche a faire apparaitre une
feuille de
calcul sous excel en fonction du texte de case fusionnées je mexplique
dans les cases fusionnées A1 a B8 j'ai une liste :
Electronique
Electrotechnique
Mécanique
et je souhaiterais faire apparaitre la feuille qui possede le meme nom

lorsque

je choisi dans cette liste
si je choisi mecanique la feuille mécanique apparait et les 2 autres
disparaisses

merci pour votre aide

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Bonjour Fabio

Il faudrait nous expliquer ton histoire de liste dans A1:B8 fusionnées ou
déposer sur Cjoint ou Cijoint un exemple de ton fichier.

Voici un fichier déposé sur Cijoint que j'avais fait d'après tes premières
explications et la macro fournie par MichD en y ajoutant le pb des cellules
fusionnées (remplacer Target.Value par Target.Cells(1,1).Value)

http://www.cijoint.fr/cjlink.php?file=cj201009/cijpUeMMcY.xls

Michel


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de news:
peudnU8pj6zceADR4p2dnAA@giganews.com...

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Le fichier exemple ici : http://www.cijoint.fr/cjlink.php?file=cj201009/cijfmfCDF9.xls

--
MichD
--------------------------------------------


"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion : i7kqof$479$1@speranza.aioe.org...
Il y a toute une variété de manière de procéder pour faire ce que tu désires...
Tu pourrais créer par exemple des liens hypertextes pour passer d'une feuille à l'autre

Ce qui suit n'est qu'un exemple, une variante d'une façon de faire...
Il faut se méfier des cellules fusionnées.

Prend un classeur neuf !

Dans A1:A7 de chacune des feuilles, tu inscris le nom de 7 feuilles du classeur
A1 = Feuil1
A2 = Feuil2
A3= Feuil3
.../ect
A7 þuil7
Ces cellules ne sont pas fusionnées.


Et dans le ThisWorkbook du classeur, tu copies la procédure suivante :
'----------------------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

'A1:A7 est la plage où sont les noms des feuilles
If Not Intersect(Target, Range("A1:A7")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.EnableEvents = False
Application.Goto Worksheets(Target.Value).Range("A1"), True
Application.EnableEvents = True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------------------







--
MichD
--------------------------------------------


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de groupe de discussion :
peudnU8pj6zceADR4p2dnAA@giganews.com...
michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"fabio89" a écrit dans le
message de groupe de discussion :

Bonjour, je suis débutant en vba et je cherche a faire apparaitre une
feuille de
calcul sous excel en fonction du texte de case fusionnées je mexplique
dans les cases fusionnées A1 a B8 j'ai une liste :
Electronique
Electrotechnique
Mécanique
et je souhaiterais faire apparaitre la feuille qui possede le meme nom

lorsque

je choisi dans cette liste
si je choisi mecanique la feuille mécanique apparait et les 2 autres
disparaisses

merci pour votre aide

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

ah zut, je n'avais pas sauvegardé le bon fichier,

le revoici
http://www.cijoint.fr/cjlink.php?file=cj201009/cijOCmvCs0.xls

Michel

"michel ou sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c9df0ff$0$5410$ba4acef3@reader.news.orange.fr...

Bonjour Fabio

Il faudrait nous expliquer ton histoire de liste dans A1:B8 fusionnées ou
déposer sur Cjoint ou Cijoint un exemple de ton fichier.

Voici un fichier déposé sur Cijoint que j'avais fait d'après tes premières
explications et la macro fournie par MichD en y ajoutant le pb des
cellules fusionnées (remplacer Target.Value par Target.Cells(1,1).Value)

http://www.cijoint.fr/cjlink.php?file=cj201009/cijpUeMMcY.xls

Michel


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de news:
peudnU8pj6zceADR4p2dnAA@giganews.com...

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

michel ou sam a écrit le 25/09/2010 à 14h54 :

Bonjour Fabio

Il faudrait nous expliquer ton histoire de liste dans A1:B8 fusionnées
ou
déposer sur Cjoint ou Cijoint un exemple de ton fichier.

Voici un fichier déposé sur Cijoint que j'avais fait
d'après tes premières
explications et la macro fournie par MichD en y ajoutant le pb des cellules
fusionnées (remplacer Target.Value par Target.Cells(1,1).Value)

http://www.cijoint.fr/cjlink.php?file=cj201009/cijpUeMMcY.xls

Michel


"fabio89" a écrit dans le
message de news:

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Bon je m'explique mieux
j'ai fusionner des cases de A1 a B8
ensuite dans ce regroupement de cases j'ai fais "validation des données" et charger une liste qui se trouve ailleur sur ma feuille dans cette liste il y a
Electronique
Electrotechnique
Mecanique

j'ai crée 3 feuilles nomé pareil

et je veux que quans je choisi un des 3 dans ma liste cela cache les 2 autres feuilles
exemple quand je choisi Electronique
la fuille nommé Electronique n'est pas masquée
et les feuilles Electrotechnique et mécanique sont cachées

j'ai essayer le programme en changeant la ligne que tu me dis j'ai telechargé ton fichier et rentrer le prog mais ca marche pas

Regarde ceci : http://cjoint.com/?jzru4NUA06

--
MichD
--------------------------------------------


"fabio89" <fabio89@domain-xyz.in> a écrit dans le message de groupe de discussion :
WJSdnfiYpeCxkgPRRVn_vwA@giganews.com...
michel ou sam a écrit le 25/09/2010 à 14h54 :

Bonjour Fabio

Il faudrait nous expliquer ton histoire de liste dans A1:B8 fusionnées
ou
déposer sur Cjoint ou Cijoint un exemple de ton fichier.

Voici un fichier déposé sur Cijoint que j'avais fait
d'après tes premières
explications et la macro fournie par MichD en y ajoutant le pb des cellules
fusionnées (remplacer Target.Value par Target.Cells(1,1).Value)

http://www.cijoint.fr/cjlink.php?file=cj201009/cijpUeMMcY.xls

Michel


"fabio89" a écrit dans le
message de news:

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Bon je m'explique mieux
j'ai fusionner des cases de A1 a B8
ensuite dans ce regroupement de cases j'ai fais "validation des données" et
charger une liste qui se trouve ailleur sur ma feuille dans cette liste il y a
Electronique
Electrotechnique
Mecanique

j'ai crée 3 feuilles nomé pareil

et je veux que quans je choisi un des 3 dans ma liste cela cache les 2 autres
feuilles
exemple quand je choisi Electronique
la fuille nommé Electronique n'est pas masquée
et les feuilles Electrotechnique et mécanique sont cachées

j'ai essayer le programme en changeant la ligne que tu me dis j'ai telechargé
ton fichier et rentrer le prog mais ca marche pas

michdenis a écrit le 25/09/2010 à 17h21 :

Regarde ceci : http://cjoint.com/?jzru4NUA06

--
MichD
--------------------------------------------


"fabio89" a écrit dans le
message de groupe de discussion :

michel ou sam a écrit le 25/09/2010 à 14h54 :

Bonjour Fabio

Il faudrait nous expliquer ton histoire de liste dans A1:B8 fusionnées
ou
déposer sur Cjoint ou Cijoint un exemple de ton fichier.

Voici un fichier déposé sur Cijoint que j'avais fait
d'après tes premières
explications et la macro fournie par MichD en y ajoutant le pb des cellules
fusionnées (remplacer Target.Value par Target.Cells(1,1).Value)

http://www.cijoint.fr/cjlink.php?file=cj201009/cijpUeMMcY.xls

Michel


"fabio89" a écrit dans le
message de news:

michdenis a écrit le 25/09/2010 à 12h34 :

Bonjour,

Un petit exemple :

Supposons que tu as en A1:B8 de chaque feuille, la liste de toutes les

feuilles

contenue dans ton classeur.

Tu ouvres l'éditeur de code : Raccourci clavier Alt + F11
et dans le ThisWorkbook, tu copies la procédure suivante :

Ceci te permettra par un clic dans une des cellules A1:B8
d'activer la feuille et de masquer toutes les autres feuilles.

'----------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target

As

Range)
On Error Resume Next

If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets(Target.Value).Visible = True
Application.Goto Worksheets(Target.Value).Range("A1"), True
If Err <> 0 Then Err = 0: Exit Sub
For Each Sh In Worksheets
If Sh.Name <> Target.Value Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End If
Application.ScreenUpdating = True
End Sub
'----------------------------------

--
MichD
--------------------------------------------

bon je suis arrivé a avancer mais maintenant j'ai une erreur a la
ligne
"If Sh.Name Sh.Visible = xlSheetVeryHidden" erreur de syntaxe

Bon je m'explique mieux
j'ai fusionner des cases de A1 a B8
ensuite dans ce regroupement de cases j'ai fais "validation des
données" et
charger une liste qui se trouve ailleur sur ma feuille dans cette liste il y a
Electronique
Electrotechnique
Mecanique

j'ai crée 3 feuilles nomé pareil

et je veux que quans je choisi un des 3 dans ma liste cela cache les 2 autres
feuilles
exemple quand je choisi Electronique
la fuille nommé Electronique n'est pas masquée
et les feuilles Electrotechnique et mécanique sont cachées

j'ai essayer le programme en changeant la ligne que tu me dis j'ai
telechargé
ton fichier et rentrer le prog mais ca marche pas

Merci a toi c'est tout a fait ca juste un petit détail je souhaiterais que quand j'ai fais mon chois dans la liste exemple feuille 5 cela ne m'enmène pas à la feuille 5 mais que je sois toujours sur la feuille accueil car j'ai d'autre chose a y faire
mais pour le reste grand merci a toi