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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Septembre 2021

• #2

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 2 Septembre 2021

• #3

Bonjour,

Un tuto fort intéressant ICI

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Septembre 2021

• #4

Bonjour michel.dupont, sylvanu, cp4,

Le code de la feuille "déplacement" :

VB:

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+

 

Pièces jointes

• Recherche(1).xlsm

  18.4 KB · Affichages: 3

Dernière édition: 2 Septembre 2021

Vote positif 0 Vote négatif

M

michel.dupont

XLDnaute Occasionnel

• 2 Septembre 2021

• #5

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Echéancier médical - Copie.xlsm

  218.1 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Septembre 2021

• #6

Le fichier en retour avec la macro.

 

Pièces jointes

• Echéancier médical(1).xlsm

  201 KB · Affichages: 9

Vote positif 0 Vote négatif

M

michel.dupont

XLDnaute Occasionnel

• 3 Septembre 2021

• #7

job75 à dit:

Le fichier en retour avec la macro.

Cliquez pour agrandir...

parfait! un grand merci
Michel

 

Vote positif 0 Vote négatif