Changer d'onglet en cliquant sur une cellule

Bonsoir à tous.

ce soir j'aurais aimé trouver comment changer d'onglet en cliquant sur une cellule.

j'ai essayé ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("l13") = True Then Exit Sub

'If Range("l13") . select Then Exit Sub

Sheets("caisse").Visible = True

Sheets("caisse").Select

End Sub

mais la formule fonctionne mais sur toutes cellules et je ne veux que sur la cellule "L13" uniquement.

Que dois-je changer à cette formule ou alors peut-être une autre formule?

Merci d'avance

Bonsoir Jearol, bonsoir le forum,

Peut-être comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$L$13" Then Exit Sub
If Range("L13") = True Then Exit Sub
With Sheets("caisse")
    .Visible = True
    .Select
End With
End Sub

Bonsoir Thau Thème,

merci à toi de te pencher sur mon souci; mais cela ne fonctionne pas suis dsl.

Merci quand même et bonne soirée.

Bonsoir, a tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$L$13" Then
 Sheets("caisse").Select
End If

End Sub

Bonne soirée a vous.

Bonsoir le fil, bonsoir le forum,

Je n'ai fait que reprendre ton code et lui ajouter une limite, la cellule L13. Mais j'avoue que je n 'ai pas compris ta ligne :

If Range("L13") = True Then Exit Sub

Je pense que le code de Bruno correspond à ce que tu demandes mais il faudra lui ajouter la propriété Visible :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$L$13" Then
    Sheets("caisse").Visible = True
    Sheets("caisse").Select
End If
End Sub

Re bonsoir

oui je l'avais rajouté; mais dsl rien ne fonctionne sauf ma 1ére version mais avec toutes les cellules.

Merci quand même.

Bonne soirée

Toute à fait, je n'avais pas pensé que cette feuille pourrais être masquée.

Remarque très pertinente.

Merci j’espère m'en souvenir pour la prochaine fois.

Bonne soirée à tous et bonne nuit.

Bonsoir,

Une petite idée sur le test de l'adresse de la cellule sélectionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If target.count>1 then exit sub ' permet de sortir du test si plus d'une cellule sélectionnées
If Not Intersect(Target, Range("L13")) Is Nothing Then
With Sheets("caisse")
    .Visible = True
    .Select
End With
End Sub

@ bientôt

Loureed

Bonsoir @ tous,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$L$13" Then
        Sheets("caisse").Visible = True
        Sheets("caisse").Select
    End If
End Sub

@ + +

Bonjour le fil, bonjour le forum,

jearol53 a écrit :

Re bonsoir

oui je l'avais rajouté; mais dsl rien ne fonctionne sauf ma 1ére version mais avec toutes les cellules.

Merci quand même.

Bonne soirée

Est-ce que tu mets le code proposé au bon endroit au moins ! C'est à dire dans le composant correspondant au bon onglet : Feuil1(Feuil1) par exemple. Parce que, franchement, si ça marche chez tous ici, il n'y a pas de raison que ça ne marche pas chez toi. Le problème doit être entre ton écran et ton fauteuil...

Re bonjour à tous,

j'ai testé toutes vos formules; mais nada, rien ne va.

la seule qui fonctionne je l'ai laissée sur le fichier joint; mais le résultat obtenu est exactement le contraire de ce qui est recherché.

c'est à dire que si je clique sur la cellule ' L13" rien ne se passe; mais si je clique n'importe où ailleurs la formule m'envoie dans l'onglet recherché.

Alors si vous aviez une autre idée, merci d'avance à vous.

Bonjour le fil, bonjour le forum,

Ça marche très bien ! visiblement le problème se situe bien entre ton écran et ton fauteuil...

Le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$L$13" Then Exit Sub
With Sheets("caisse")
    .Visible = True
    .Select
End With
End Sub

Le fichier :

Bonsoir,

Désolé pour le retard, problème de connexion.

Apparemment tu avais raison, car j'avais tout essayé et rien ne fonctionnait; alors j'ai tous coupé et redémarré et miracle cela fonctionne très bien comme tu me le disais.

Grand merci à toi et à toute l'aide apportée par tous.

Bonne soirée et encore merci.