Bonjour,
j'ai un soucis avec le code ci-dessous!
Le but est de vérifier si la valeur tapé dans la cellule "A4" existe ou pas dans la suite de la colonne. Si ce n'est pas le cas, un message apparaît sinon si la valeur existe, le curseur doit se positionner sur la cellule concernée. C'est qu'il y a un problème, il n'y va jamais!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_Change(ByVal Target As range)
 
Dim vnom As String
Dim vrech As range
Dim numligne As Long
 
If Target.Address = "$A$4" Then
 
 
'donne à la variable vnom la valeur sélectionnée
vnom = "$A$4"
'recherche le nom dans la colonne 3 (C) de ma feuil1
Set vrech = Sheets("Données").range("a5:a5007").Find(vnom)
 
    'si je trouve le nom alors
    If Not vrech Is Nothing Then
     'je donne à nunligne le numéro de la ligne ou se trouve se nom
     'numligne = vrech.Row
     vrech.Select
 
     Else
       MsgBox " Cette chèvre n'est pas encore enregistrée!"
    End If
End If
 
 
 
End Sub
Merci d'avance si quelqu'un a une idée.