Microsoft 365 SelectionChange feuil2 condition sur feuil1

[Usine à gaz]

Bonjour à tous

Je cherche à faire l'action suivante
- En feuil1 la cel B6 contient le texte "Test - Outre Mer" . Ce texte contient " - Outre Mer" à droite,12
- En Feuil2, si clic cel I12, et si en feuil1 la cel B6 contient le texte " - Outre Mer" : je voudrais écrire "OK"

Je n'arrive pas à trouver le bon code.
L'auriez-vous ?

Je joins un petit fichier test et je continue à chercher,
Un grand merci par avance,
lionel

 

[Phil69970]

Bonjour Lionel

Ton exemple fonctionne très bien à un détail près .....
Il faut mettre la bonne feuille

If Right(Sheets("Appels").Range("b6"), 12) = " - Outre Mer" Then

La solution dans le fichier fourni

If Right(Sheets("Feuil1").Range("b6"), 12) = " - Outre Mer" Then

@Phil69970

 

[Hasco]

Bonsoir,

Deux petites erreurs existaient :

1 - La feuille "Accueil" n'existait pas dans le classeur.
2 - Si vous voulez que "Ok" soit mis en réponse à la question, alors le test msgbox doit être = vbYes et non <> vbYes

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If Not Intersect(R, Range("i12")) Is Nothing Then
        If Right(Sheets("Feuil1").Range("b6"), 12) = " - Outre Mer" Then
            If MsgBox("Avez-vous vérifié si pas en Outre Mer ?", vbQuestion + vbYesNo) = vbYes Then
                ActiveCell = "OK"
            End If
        End If
    End If
End Sub

J'ai enlevé les [a1].select. Les Select dans un évènement change rappellent l'évènement inutilement ou alors mettez : Application.EnableEvents = false, avant et True après.

cordialement

 

[Usine à gaz]

Bonsoir Phil69970, bonsoir Hasco
Je vous remercie Grâce à vous, c'est maintenant nickel,
lionel

 

[Usine à gaz]

Bonjour @Phil69970, bonjour @Hasco, le Forum,
Je vous souhaite une belle journée

Je reviens sur le fil car j'ai un souci que je n'avais pas prévu.
Le code fonctionne quand il se réfère à une cellule "fixe" en Feuil1 ...
Mais faudrait que ce soit sur la cellule active de la Feuil1 car ce n'est jamais la même dans mon fichier de travail et ça beugue : If Right(Sheets("Feuil1").Range(ActiveCell), 12) <> " - Outre Mer" Then

Je n'arrive pas à trouver le bon code Grrrr !!!
Encore une petite aide ?
Merci à nouveau,
lionel

 

[Phil69970]

Bonjour à tous

Je ferais comme ça quelque soit la feuille cela devrait fonctionner

If Right(ActiveSheet.Range("b6"), 12) = " - Outre Mer" Then

@Phil69970

 

[Hasco]

Bonjour,

Oh ! ActiveCell n'existe QUE sur la feuille active ! Si celle-ci est Feuil2, ActiveCell ne peut être sur Feuil1.
Dans le fichier joint, dans le module de code de Feuil1 une variable publique, nommée 'CelluleActive' qui concervera la cellule active de la feuille avant que celle-ci ne perde le focus.

Et votre code sur Feuil2 =

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If Not Intersect(R, Range("i12")) Is Nothing And Not Sheets("Feuil1").CelluleActive Is Nothing Then
        Application.EnableEvents = False: Application.ScreenUpdating = False
        If Right(Sheets("Feuil1").CelluleActive, 12) <> " - Outre Mer" Then
            If MsgBox("Avez-vous vérifié si pas en Outre Mer ?", vbQuestion + vbYesNo) <> vbYes Then
                ActiveCell = "erreur"
                [a1].Select
            Else
                ActiveCell = "OK"
                [a1].Select
            End If
        End If
        [a1].Select
        Application.EnableEvents = True: Application.ScreenUpdating = True
    End If
End Sub

Au fait, inutile de mettre des Application.... partout, juste avant et après les éventuels actions.
cordialement

 

[Phil69970]

Le fil

Je crois que j'ai mal lu la question ma ligne de code fonctionne quelque soit la feuille alors que tu veux quelque soit la cellule.
Si c'est la cellule Hasco ta répondu si c’est la feuille c'est moi

@Phil69970

 

[Usine à gaz]

Re-Bonjour @Phil69970, bonjour @Hasco,

Merci pour vos retours
Effectivement le code de @Hasco est nickel.
Un grand merci,
lionel