Code vba de la feuille

[adr99]

Bonjour,

J'aimerais que lorsque l'utilisateur clique sur une cellule de la colonne F un message apparaise.
J'ai essayé en mettant ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F]) Is Nothing Then
MsgBox ("ok")
End If
end sub

Mais il me trouve une erreur. Une idée ?

 

[Victor21]

Re : Code vba de la feuille

Bonjour, adr99

continuez par
exit sub
msgbox...
end sub

Edit : Bonjour, Dull 🙂 Mal réveillé... J'avais pourtant testé sur le fichier joint !

 

[adr99]

Re : Code vba de la feuille

If Not Intersect(Target, [F]) Is Nothing Then
Exit Sub
MsgBox ("ok")
End Sub

Comme ceci ?

 

[Dull]

Re : Code vba de la feuille

Re adr99, Patrick🙂, le Forum

Essaye plutôt cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F:F]) Is Nothing Then
MsgBox ("ok")
End If
End Sub

Bonne Journée

 

[adr99]

Re : Code vba de la feuille

Merci beaucoup Dull encore une fois