XL 2010 macro pour rechercher une valeur dans une autre feuiile avec find

[michel.dupont]

Bonjour
merci de votre aide
j'ai un fichier avec une feuille 'déplacement" et une autre "Validation"
je voudrais rechercher si la valeur qui se trouve dans la cellule B11 de la feuille ''déplacement" se trouve dans la plage f2:f200 de la feuille "validation" .si oui sélectionner la cellule de cette plage si non faire apparaitre un message "Absent".
je rame...
merci de tout coeur
Michel

 

[sylvanu]

Bonsoir Michel,
Avec un petit fichier test, ce serait plus simple, et ça nous éviterais de le construire pour tester.

 

[cp4]

Bonjour,

Un tuto fort intéressant ICI

 

[job75]

Bonjour michel.dupont, sylvanu, cp4,

Le code de la feuille "déplacement" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B11]) Is Nothing Or CStr([B11]) = "" Then Exit Sub
On Error Resume Next
Application.Goto Sheets("Validation").[F2:F200].Find([B11], , xlValues, xlWhole)
If Err Then MsgBox "Absent"
End Sub

A+

 

[michel.dupont]

Bonsoir Michel,
Avec un petit fichier test, ce serait plus simple, et ça nous éviterais de le construire pour tester.

merci...voilà le fichier...la cellule b11 de déplacement correspond au nom d'un médecin...la macro doit rechercher le nom dans l onglet validation plage f2:f200 et le sélectionner...encore merci

 

[job75]

Le fichier en retour avec la macro.

 

[michel.dupont]

Le fichier en retour avec la macro.

parfait! un grand merci
Michel