Bonjour à toutes et à tous

 

Je débute en VBA et j'aurais besoin d'aide pour réaliser une fonction « RECHERCHER ».

Tout d'abord j'ai créé un bouton sur une « feuil » et j'ai créé un USERFORM avec un textbox et un bouton ANNULER et un bouton VALIDER.

 

Je décrit mon tableau EXCEL.

 

J'ai une base de donnée qui se trouve sur la « feuil2 » et qui commence à la colonne A et fini a colonne E. Dans les cellules A1 à E1 se trouvent l'intitulé de mes colonnes.

 

Je voudrais réaliser un programme qui :

-         me rechercherai la valeur saisie dans le textebox dans la colonne B.

-         qui chercherai tout les mot commençant par la valeur saisie dans le textbox

-         que la recherche se boucle

 

Pour les condition et les messages  je pense pouvoir y arriver tout seul.

 

Je vous remercie par avance de l'attention que vous porterez à ma demande.

 

Cordialement.

Salut,

Réponse acceptée !
tu peux commencer avec ça :
Ce code marche s'il n'y a pas de cellule vide entre les données de ta colonne B.

if activecell.value = textbox1.value then
    i=activecell.row
else
    i=1
end if

do while cells(i,2).value <> ""
    if cells(i,2).value like textbox1.value & "*" then
       cells(i,2).select
       exit do
    end if
    i=i+1
loop

Réponse acceptée !

'Bonjour,
'je propose une solution sans boucle, pour plus de rapidité

If Sheet(2).FilterMode = True Then
    Sheets(2).ShowAllData
End If
'on applique notre filtre
Sheets(2).Range("A1").AutoFilter criteria:=textbo1.Text
Sheets(2).Activate
'filtré
'on sélectionne les données visibles
Sheets(2).Range("1:65535").SpecialCells(xlCellTypeVisible).Select
'on les copie
Selection.Copy
'on les colle sur notre feuille de data interne
ActiveSheet.Paste Destination:=Sheets(1).Range("A1")
       
'relx62