Moteur de recherche

Question

Je réalise en ce moment un programme de base de données avec moteur de recherche.
J'ai bien avancé jusqu'ici mais je bloque sur quelques points.

Je suis parvenu à mettre en marche le moteur de recherche. En revanche, lorsque je lance une recherche, le résultat obtenu n'est pas complet. En effet, plusieurs cellules de la base de données répondent au critère de recherche mais seulement la première d'entre elles s'affiche.

Voici mon code :

Private Sub Rechercher6_Click()

nblignes2 = Range("tableau2").Rows.Count
    
    Dim Plage As Range, Cellule As Range

        Set Plage = Range("tableau4")

For Each Cellule In Plage
                If (Cellule.Value = listBoxRechercher.Value) Then
                    Colonne = Cellule.Column
                    Cellule.Offset(0, -(Colonne) + 1).Copy
                    Sheets("ajout d'un sous-traitant").Select
                    Range("tableau2").Cells(nblignes2 + 1, 1).Select
                    ActiveSheet.Paste
                End If
            Next Cellule

End Sub


Merci par avance pour votre réponse.



etust.

etust · Answer

J'ai oublié de préciser que le principe de ce code est de copier les info d'un tableau ("tableau4") et de les coller dans un nouveau tableau de résultats ("tableau2").

Voila, pour que ce soit un peu plus clair.

etust · Answer

up

Moteur de recherche

2 réponses

Votre réponse

Discussions similaires