faire une recherche et recupere la ligne

faire une recherche et recupere la ligne - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 24-05-2005 à 15:08:24   

Reply

Marsh Posté le 24-05-2005 à 15:13:31    

Fonction find ou search avec selection de la cellule pis activecell.address

Reply

Marsh Posté le 24-05-2005 à 15:58:31    

je te remercie, je vais aller voir ca!

Reply

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

Reply

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 ;-)
 
 

Reply

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed