XL 2021 Ouvrir un onglet en fonction de la valeur d une cellule

[mathieu20]

Bonjour

Je galere sur un truc simple mais pas moyen de trouver un code qui fonctionne

Je voudrais basculer sur un autre onglet appelé "EXT ICP" lorsque la cellule de A1 de l onglet "ICP INT" est egale a "OUI"

Pouvez vous maider ?

Merci

 

[sylvanu]

Bonjour Mathieu,
Un ex en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        If Target = "OUI" Then Sheets("EXT ICP").Select
    End If
End Sub

Le "Retour" se fait par lien hypertexte.
( Par contre A1 ne doit pas être le résultat d'une formule par cette méthode mais par une validation dans la cellule par Entrée.)

 

[Gégé-45550]

Bonjour

Je galere sur un truc simple mais pas moyen de trouver un code qui fonctionne

Je voudrais basculer sur un autre onglet appelé "EXT ICP" lorsque la cellule de A1 de l onglet "ICP INT" est egale a "OUI"

Pouvez vous maider ?

Merci

Bonjour,
Voir classeur joint et code de la Feuil1.
Ne pas oublier d'activer les macros.
Cordialement,

 

[mathieu20]

Bonjour,
Voir classeur joint et code de la Feuil1.
Ne pas oublier d'activer les macros.
Cordialement,

Bonjour

C est top merci beaucoup pour votre rapidité !

 

[mathieu20]

Bonjour,
Voir classeur joint et code de la Feuil1.
Ne pas oublier d'activer les macros.
Cordialement,

Bonjour Mathieu,
Un ex en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        If Target = "OUI" Then Sheets("EXT ICP").Select
    End If
End Sub

Le "Retour" se fait par lien hypertexte.
( Par contre A1 ne doit pas être le résultat d'une formule par cette méthode mais par une validation dans la cellule par Entrée.)

C est top merci beaucoup pour votre rapidité !