Probleme simple que j'arrive pas à résoudre!!

[Véronique]

rebonjour ,je voudrais avoir de l'aide sur cette macro VBA

Private Sub Worksheet_SelectionChange(ByVal target As Range)

If target.Address(0, 0) = 'J7' And Range('G7') < 20 Then
target.Offset(0, 1).Select
Range('J7').Value = 'OUI'
End If

End Sub

G7 est l'age
Ici J7 est de savoir s'il est jeune ou pas. S'il y a en dessous de 20 ans alors je voudrais que la celulle J7 indique OUI ,et qu'il la verouille (ici ca la déselectionne ce qui est encore mieux)

Tout marche bien , le seul probleme est que lorsque l'age est inferieur a 20 je dois selectionner la celulle J7 afin qu'elle mette OUI.
JE voudrais qu'avec l'age ,la cellule J7 mette directement OUI sans avoir a cliquer dessus

Si quelqu'un pouvait m'aider...

 

[myDearFriend!]

Bonsoir Véronique,

Tu peux peut-être essayer ces deux procédures à la place :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address(False, False) = 'G7' Then
            Range('J7').Value = IIf(Target.Value < 20, 'OUI', '')
      End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address(False, False) = 'J7' Then Target.Offset(0, 1).Select
End Sub

Par ailleurs, ce site possède un moteur de recherche qui permet à tous de retrouver certains sujets... Penses-tu qu'un titre comme 'Probleme simple que j'arrive pas à résoudre!!' va vraiment aider à retrouver ce problème et cette solution ?
Merci de ta compréhension...

Cordialement,

 

[Véronique]

Oui je suis désolée pour le titre ,j'avais pas réalisé.

Concernant ton code ,il est impeccable ,le seul truc c'est que je n'arrive pas a avoir choisir dans la cellule si jamais l'age est superieur a 20.

Je voudrais que la celulle soit inacessible lorque l'age est inférieur a 20 (et donc J7='OUI'),et accessible lorsque l'age est supérieur a 20
et J7='')

Merci.

 

[Véronique]

J'ai trouvé ! Merci bc