Case reste inchangé si condition

Bonjour;

Je fait appel à vous car j'ai besoin d'aide. Voici mon problème:

Je voudrais qu'on ne puisse pas changer la case A1 si la case A2 est égale à oui.

J'ai besoin d'aide en VBA.

J'ai eu beau chercher, je n'ai pas trouvé la solution.

Merci de votre aide.

Bonsoir,

Une proposition.

Si A2 = oui, on ne peut pas sélectionner A1

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target = ActiveCell
    If [A2] = "oui" And Target.Address = "$A$1" Then
        [A2].Select
    End If
End Sub

Merci beaucoup Jean-Eric

Toujours là pour nous aider!!

Par contre je crois qu'il n'est pas possible de mettre deux fois d'affilé cette fonction.

Voici mon code

Target = ActiveCell
    If [H6] = "Votre choix à bien été enregistré" And Target.Address = "$H$5" Then
        [H6].Select
    End If

Target = ActiveCell
    If [H22] = "Votre choix à bien été enregistré" And Target.Address = "$H$21" Then
        [H22].Select
    End If

La deuxième fonction est ignorée

Merci de votre aide

Re,

A tester...

Cdlt

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target = ActiveCell
    Select Case Target.Address
        Case "$A$1"
            If [A2] = "oui" Then [A2].Select
        Case "$H$5"
            If [H6] = "Votre choix à bien été enregistré" Then [H6].Select
        Case "$H$21"
            If [H22] = "Votre choix à bien été enregistré" Then [H22].Select
        Case Else
            '
    End Select
End Sub

Oui ça marche parfaitement

Merci beaucoup

Mais sur un autre fichier avec déjà du code dedans ça ne marche pas, la deuxième est toujours ignorée.

Voici tout mon code:

Option Explicit
Option Compare Text
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H5") = 1793 Then
Range("A105") = 1
Range("H6") = "Votre choix à bien été enregistré"
Else
Range("A105") = 0
Range("H6") = "Votre choix à bien été enregistré"
End If
If Range("H21") = "l'Arabie Saaoudite" Or Range("H20") = "Arabie Saoudite" Then
Range("A106") = 1
Range("H22") = "Votre choix à bien été enregistré"
Else
Range("A106") = 0
Range("H22") = "Votre choix à bien été enregistré"
End If
If Range("H5") = "?" Then Range("H6") = ""
If Range("H21") = "?" Then Range("H22") = ""

  Target = ActiveCell
    Select Case Target.Address
        Case "$H$5"
            If [H6] = "Votre choix à bien été enregistré" Then [H6].Select
        Case "$H$21"
            If [H22] = "Votre choix à bien été enregistré" Then [H22].Select
        Case Else

   End Select

End Sub

Amicalement