Basculer d'onglet selon un critére

Bonjour,

je souhaite avec une macro changer d'onglet automatiquement selon un critère et ce critère se trouve dans "l'onglet Vict Min DCD" si en F4 le message en rouge apparaît "ATTENTION VICTIME MAJEURE" je voudrais basculer sur l'onglet Vict Maj DCD

Merci d'avance pour votre aide

Salut abdernino,

Créer une procédure avec Worksheet_change dans le code ta feuille.

La dedans il te suffit de coder quelque chose du genre (désolé je suis sur téléphone, ne peut pas te donner le code exact, vérifie sur internet) :

If Not Intersect(Target, Range("F4")) Is Nothing Then
If Range("F4").Value = "ATTENTION VICTIME MAJEURE" Then
Sheets("Vict Maj DCD").select
End If
End If

Ça marche ?

Bonne soirée et bonnes fêtes,

Baboutz

Bonsoir @Baboutz

Merci pour ton aide

j'ai utilisé Private Sub Worksheet Change(ByVal Target As Range) mais ca ne marche même si le message en rouge s'affiche ça ne change pas d'onglet

Et encore merci

Bonjour abdernino, salut Baboutz,

à tester, code placé dans le module de la feuille Vict Min DCD (non dans un module standard):

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("F4").Value = "" Then
        Exit Sub
    Else
        Sheets("Vict Maj DCD").Activate

    End If

End Sub

Bonsoir ,

Merci beaucoup c'est parfait