faire une recherche et recupere la ligne - VB/VBA/VBS - Programmation
Marsh Posté le 24-05-2005 à 15:13:31
Fonction find ou search avec selection de la cellule pis activecell.address
Marsh Posté le 24-05-2005 à 16:21:28
ça ne va pas prendre un temps fou, et comment crois tu que fonctionne la fonction find?
c'est a partir des double boucle que cela prend du temps
Marsh Posté le 24-05-2005 à 18:25:59
Autrement tu peux utliser un Recordset
Dim Record as RecordSet
Dim Requete as String
Set base = OpenDatabase(App.Path & "\Le Nom De Votre Base", True)
Requete="select * From Table where Code=" & "'" & Code.text & "'"
Set Record=Base.openRecordSet(Requete)
Do While Not (Record.EOF)
Code.text=Record!Code
Nom.text=Record!Nom
Prenom.text=Record!Prenom
loop
voilà il va retourner les champs que tu cherches ;-)
Marsh Posté le 25-05-2005 à 08:49:53
Jdis ptete une connerie rours mais je crois que les fonctions de base vb (find par exemple) sont quand meme plus optimisé que leur homologue crée de toute main par nos petits doigts en VB.
Non pas que nous sommes nuls par rapport a Mr Developpeur Microsoft, mais plutot parce que mr Developpeur Microsoft n'utilise pas que du VB pour faire tourner ses instructions.
Marsh Posté le 24-05-2005 à 15:08:24
Bonjour
J aimerais faire une recherche dans une colonne d'un fichier et récupérer la ligne correspondant a la recherche.
Je m explique, j ai le fichier:
code nom prenom
14 X jean
17 Y Paul
...
Je voudrait donc rechercher le code 17 et récupere le nom et le prenom de la personne associé au code 17.
Bien sur, je pourrais parcourir toutes les lignes mais il y en a 1500, donc ca rique de prendre un temps fous inutile....Quelqu un a un truc plus simple?
Merci d avance