Afficher et selectionner une feuille SI

[jeromeN95]

Bonjour le forum,
Le fichier s'ouvre sur l'onglet "Page de garde" (le reste des feuilles sont masquer via 0-Visible)
Dans "Page de garde",
Lorsque l'on clic sur E14 "Si pas vide" = renvoyer à la page "Votre Buanderie" en B2
sur E16 "Si pas vide" = renvoyer à la page "Votre Cuisine" en B2
sur E18 "Si pas vide" = renvoyer à la page "Hébergement" en E3
sur E20 "Si pas vide" = renvoyer à la page "Adoucisseur" en E3

J'essaie mais je n'ai pas de résultats :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$14" Then
      If [E14].value <> "" Then
      Sheets("Votre Buanderie").Visible = True
      Sheets("Votre Buanderie").Select
      Range("B2").Select
      End If
    End If
End Sub

😎

 

[tototiti2008]

Re : Afficher et selectionner une feuille SI

Bonjour Jerome,

Essaye de passer par l'évènement SelectionChange plutôt que Change
Change ne se déclenche qu'à la modification d'une valeur de cellules

 

[camarchepas]

Re : Afficher et selectionner une feuille SI

Bonjour,

C'était pas loin du tout,

Enfin moi je suis en excel 2003 et comme cela ça fonctionne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Onglet As String, Cellule As String
If Target.Text <> "" And Target.Column = 5 Then
Select Case Target.Row
Case 14
Onglet = "Votre Buanderie"
Cellule = "B2"
Case 16
Onglet = "Votre Cuisine"
Cellule = "B2"
Case 18
Onglet = "Hébergement"
Cellule = "E3"
Case 20
Onglet = "Adoucisseur"
Cellule = "E3"

End Select

Sheets(Onglet).Visible = True
Sheets(Onglet).Select
Range(Cellule).Select
End If
End Sub

 

[Staple1600]

Re : Afficher et selectionner une feuille SI

Bonjour le fil

Histoire de varier les plaisirs, une autre façon de faire

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a$
If Target.Text <> "" And Target.Column = 5 Then
With Target
a = Switch(.Row = 14, "Votre Buanderie/B2", .Row = 16, "Votre Cuisine/B2", .Row = 18, "Hébergement/E3", .Row = 20, "Adoucisseur/E3")
End With
With Sheets(Split(a, "/")(0))
    .Visible = True: .Select: .Range(Split(a, "/")(1)).Select
End With
End If
End Sub

 

[camarchepas]

Re : Afficher et selectionner une feuille SI

Bonjour Staple,

Bien, Reste à voir le besoin réel final, Mais là tu as sortie le grand jeu .

Respects ....

 

[Staple1600]

Re : Afficher et selectionner une feuille SI

Re

Je suis partisan de la pluralité des solutions proposées dans un fil.

Au final, le demandeur choisira la solution qui lui plait.

Et pour ma part, j'aurai pris plaisir à me détendre un dimanche pluvieux avec VBA.

EDITION: Une question pour jeromeN95
Pourquoi avoir créer un second fil?
Il y avait déjà celui-ci
https://www.excel-downloads.com/threads/lien-hypertexe-dans-cellule.164746/

 

[jeromeN95]

Re : Afficher et selectionner une feuille SI

Bonjour a tous et merci beaucoup de toute ces réponses.
Comme tu dit Staple1600 c'est bien d'avoir plusieur personne qui répondent.
Ca permet de comparaer les différentes méthodes d'écriture et de choisir le code qui plait, évolutif, simple, ...

J'ai crée ce 2nd fil car le 1er, JPN me donne pas mal de réponse pour crée un lien hypertext.
Sauf que je me rend compte que ca prend beaucoup de temps et qu'il y a besoin de bidouiller car j'ai des leins hypertext qui génèrent des problèmes.
De plus, cette méthode plus "rapide" me permettera de présenter le fichier le 24.6.
J'aurais un peu plus de temps par la suite pour revenir sur le problème Lien HP.

Merci beaucoup Staple1600 mais ton code fonctionne lorsque je quitte la cellule.
Moi je cherche à :
On selectionne la cellule vide, on ajoute un texte, on valide --> Rien ne se passe.
On revient sur la cellule par simple selection de celle-ci, et si elle n'est pas vide alors elle renvoie à la feuille correspondante;

En tout cas un grand merci a tout ceux qui m'aide.

 

[Staple1600]

Re : Afficher et selectionner une feuille SI

Re

Pour faire ce dont tu parles, il faut utiliser la bonne procédure événementielle présente.

C'est ici qu'on voit le désavantage de plusieurs fils pour une même question.
Dans ce fil, la procédure de ton exemple est Worksheet_Change
Or tu parles de click

Donc en choisissant de mettre le VBA dans la procédure adéquate , tu devrais te rapprocher du but.

 

[jeromeN95]

Re : Afficher et selectionner une feuille SI

ok, merci je vais essayer.
J'ai pas du faire correctement car ça ne fonctionne pas :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim a
If Target.Text <> "" And Target.Column = 5 Then
With Target
a = Switch(.Row = 14, "Votre Buanderie/B2", .Row = 16, "Votre Cuisine/B2", .Row = 18, "Hébergement/E3", .Row = 20, "Adoucisseur/E3")
End With
With Sheets(Split(a, "/")(0))
    .Visible = True: .Select: .Range(Split(a, "/")(1)).Select
End With
End If
End Sub

J'ai également essayer avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 

[Staple1600]

Re : Afficher et selectionner une feuille SI

Re


Et avec celle-ci ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a$
If Target.Text <> "" And Target.Column = 5 Then
With Target
a = Switch(.Row = 14, "Votre Buanderie/B2", .Row = 16, "Votre Cuisine/B2", .Row = 18, "Hébergement/E3", .Row = 20, "Adoucisseur/E3")
End With
With Sheets(Split(a, "/")(0))
    .Visible = True: .Select: .Range(Split(a, "/")(1)).Select
End With
End If
End Sub

PS: ma précédente réponse était plus ou moins erronée.
(Sans doute un contre-coup d'un abus d'apéritif plutôt dans l’après-midi - désolé )

 

[jeromeN95]

Re : Afficher et selectionner une feuille SI

pourquoi Dim a$ ?
Mais même avec "a", c'est pareil, ça ne me renvoie pas a la page.
Merci.

 

[Staple1600]

Re : Afficher et selectionner une feuille SI

Re

Dim a$
est l'équivalent de:
Dim a As String

Chez moi cela fonctionne
Sélectionne par exemple la cellule E14
tu te retrouves sur le feuille adéquate: Votre Buanderie

 

[jeromeN95]

Re : Afficher et selectionner une feuille SI

Bonsoir,
justement non, j'ai copier / coller exactement ton code et il ne se produit rien...

 

[camarchepas]

Re : Afficher et selectionner une feuille SI

Bonsoir ,

Ce code est bien sur à incorporer dans le code de la feuille où tu fais les saisies,

Car moi aussi cela fonctionne très bien .

Mais encore un fois tu nous aurais mis un classeur démo dès le départ , tu aurais vu ou la macro était implantée

 

[jeromeN95]

Re : Afficher et selectionner une feuille SI

oui, bien sur, le voici.
J'aurais du commencer par ca.

Je ne sais pas ce que j'ai mal fait.
Il me fait des erreurs.
Merci.