probleme vba

Le
fabio89
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22612001
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"
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
fabio89
Le #22612171
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
fabio89
Le #22612241
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
michdenis
Le #22612451
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"
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
michel ou sam
Le #22612611
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"
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
michdenis
Le #22612601
Le fichier exemple ici : http://www.cijoint.fr/cjlink.php?file=cj201009/cijfmfCDF9.xls

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


"michdenis" 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"
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
michel ou sam
Le #22612691
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" 4c9df0ff$0$5410$
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"
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




fabio89
Le #22613131
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
Le #22613391
Regarde ceci : http://cjoint.com/?jzru4NUA06

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


"fabio89"
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
fabio89
Le #22613441
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
Publicité
Poster une réponse
Anonyme