Recherche suivante

[matrix]

Bonjour,

Je voudrais ajouter la fonction suivante dans ma recherche.

Comment faire s.v.p?

Dim Recherche As Range, Ligne As Long
'colonne S = numéro de commande
    Set Recherche = Columns("S:S").Find(TextBox1.Value)
    If Not Recherche Is Nothing Then
       Ligne = Recherche.Row

    TextBox2 = Range("A" & Ligne)
   
    End If

Merci pour votre aide

 

[soenda]

Re : Recherche suivante

Re

@Matrix, je viens de m'apercevoir que je n'ai traité que les personnes en vacance, si tu veux chercher des noms de personne avec un autre critère (ex: malade) il faudra modifier le code.

Dis nous ce que tu en pense et on affinera.

A plus

 

[matrix]

Re : Recherche suivante

WOW, merci beaucoup.

Ça fonctionne .

 

[matrix]

Re : Recherche suivante

merci beaucoup pour ton aide