VBA - condition sur colonne et activation

Bonjour à tous,

Je débute sur VBA et a besoin de votre aide

Dans mon fichier, j'ai deux onglets : le premier correspond au suivi des participants d'une course colonne A :Prénom / colonne B:Ville / colonne C:date, le 2e reprend des info lorsque la ville saisie en feuille 1 est "paris"

Je souhaiterais :

1/ Avoir une msg box qui s'affiche si l'on saisit le prénom "Anne" (msg box : "Anne a participé a une course")

2/ Si la ville de Paris est renseignée en Feuille1 (colonne B) -> Me rendre automatiquement sur la feuille 2 pour renseigner des info complémentaires

Le fichier est joint

Merci d'avance pour vos propositions avec si possible explications

Salut chrstl,

Private Sub Worksheet_Change(ByVal Target As Range)
'
'si changement dans colonne [A:A] et Target = "Anne" -> MsgBox
If Not Intersect(Target, Range("A:A")) Is Nothing Then _
    If Target = "Anne" Then MsgBox Target & " a participé à la course !", vbInformation + vbOKOnly, "Info"
'si changement dans colonne [B:B] et Target en majuscules = "PARIS" -> activation de la feuille index 2
If Not Intersect(Target, Range("B:B")) Is Nothing Then _
    If UCase(Target) = "PARIS" Then Sheets(2).Activate
'
End Sub

A+

Bonjour et merci pour ta réponse!

J'ai une erreur de compilation «nom ambigu detecté, worksheet change».

Sais tu pourquoi?

Salut chrstl,

Probablement deux Private Sub Worksheet_Change dans le même module !

Pas autorisé : il faut combiner les deux codes dans la même SUB.

A+

C'est tout bon, merci!