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

Bonjour Matrix, le fil

Je voudrais ajouter la fonction suivante dans ma recherche.

Mais où est la recherche 😕

Joyeux noël à tous

 

[matrix]

Re : Recherche suivante

La recherche se fait dans la feuille "Horaire Viandes".

Il recherche la valeur du TextBox1

Merci

 

[soenda]

Re : Recherche suivante

Re

La recherche se fait dans la feuille "Horaire Viandes".

Alors il faut probablement joindre un fichier sur ce fil...

A plus et bonnes fêtes

 

[matrix]

Re : Recherche suivante

Voivi le fichier excel en question

 

[skoobi]

Re : Recherche suivante

Bonjour soenda, matrix,

Si j'ai bien compris, la fonction recherche suivante de VBA s'appelle FindNext.
Dans l'aide, tu trouveras un exemple.
Où est l'intérêt de faire "défiler" des noms dans un textbox?

 

[soenda]

Re : Recherche suivante

Bonsoir Skoobi, Matrix, le fil

J'ai une autre question :

Dans l'exemple il y a le nom de 2 personnes en vacance.
Lequel doit s'afficher dans le TextBox ?

Voir la saisie d'écran en pièce jointe.

Bonnes fêtes.

 

[matrix]

Re : Recherche suivante

Le nom de la première personne.

Si je clique encore sur le bouton recherche, il me donne le nom de la 2``eme personne qui est en vacance. ainsi de suite.


skoobi,l'intérêt de faire "défiler" des noms dans un textbox me servira pour la suite du projet (à venir)

 

[soenda]

Re : Recherche suivante

Bonsoir Matrix, le fil

Le nom de la première personne.

Si je clique encore sur le bouton recherche, il me donne le nom de la 2``eme personne qui est en vacance. ainsi de suite.

Effectivement, ce n'est pas ce que fait ton code.
Car à chaque fois que tu appuies sur le bonton, la recherche est réinitialisée.

Je regarde...

A plus et bonnes fête à tous

 

[matrix]

Re : Recherche suivante

merci pour ton aide

 

[soenda]

Re : Recherche suivante

Bonsoir à tous

@Matrix:
Vois si le fichier joint te convient

A plus

PS: Le fichier à été testé avec succès sous 2007, puis enregistré sous 2003
Après de nouveau tests avec l'enregistrement 2003 j'ai un bug.

Je te recommende de copier/coller le code de userforme1 dans ta feuille.

A plus

 

[skoobi]

Re : Recherche suivante

Re,

l'erreur est ici:

fin = Feuil1.[A65535].End(xlUp).Row

excel2003 contient 65536 lignes 😉

 

[matrix]

Re : Recherche suivante

J'ai la même erreur.

Peux tu m'envoyer la version 2007 s.v.p?

 

[soenda]

Re : Recherche suivante

Merci skoobi 🙂

C'était une faute de frappe, 😱
un bug pas facile à trouver...
Lorsque l'on a le nez dans le guidon.

Joyeux noël à tous

 

[soenda]

Re : Recherche suivante

Re

Je t'envoie la 2003 corrigée (merci skoobi)
et la 2007.