AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 16:01:13
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : recherche et positionnement alphabétique comme un dictionnaire [ Archives Visual Basic / VBA ] (kakopolo127)

mercredi 16 février 2005 à 20:31:30 | recherche et positionnement alphabétique comme un dictionnaire

kakopolo127

Membre Club

Bonjour à tous,
Pour un ami amateur de DVD, j’ai développé dans un mélange de VBA et d’anciennes macros d’Excel 5 et boites de dialogue une petite application pour lui faciliter son classement, ses recherches etc

Pour les acteurs, j'utilise une liste située dans une colonne par ex: de A1 à A650 , j’ai fais la macro pour rajouter un nouvel acteur si il n’existe pas dans celle ci, puis je trie la liste alphabétiquement.

Mon problème est le suivant :
Je cherche à me positionner dans cette liste au fur et à mesure de plus en plus précisément que j'inscris la première lettre puis la deuxième lettre , la 3ème , etc le style de recherche interactive employée dans les dictionnaires ou les encyclopédies

Malgré mes recherches sur les différentes rubriques de ce site  je n’ai pas pu trouvé un début de piste ou de code de plus j’ai déjà posté ce mail mais il semble que ce problème n’intéresse personne. Je ne comprends pas

Merci d'avance à tous ceux qui voudrons lire ce post, et qui voudrons bien me mettre sur la bonne voie.

Marco


mercredi 16 février 2005 à 21:02:46 | Re : recherche et positionnement alphabétique comme un dictionnaire

CanisLupus

Membre Club Administrateur CodeS-SourceS

Salut, essaie ça si ta liste est une listbox (list1)  :

' dans le keyup de ta textbox (ici text1)
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Integer

If (KeyCode >= vbKeyA And KeyCode <= vbKeyZ) Or (KeyCode >= vbKey0 And KeyCode <= vbKey9) Then
  For i = 0 To List1.ListCount - 1
    If List1.List(i) Like Text1 & "*" Then
      List1.ListIndex = i
      Exit For
    End If
  Next
End If

End Sub


Loup Gris
vendredi 25 février 2005 à 19:55:01 | Re : recherche et positionnement alphabétique comme un dictionnaire

kakopolo127

Membre Club
Merci à toi  loup gris
je reponds avec beaucoup de retard à ton poste car j'ai fait la plus grande bétise du
débutant : pas de sauvegarde
je travaille sur mon programme tantot chez moi, tantot au boulot et je ne voulais pas me tromper dans avec les différentes versions succesivement enregistrées soit sur le PC chez moi soit sur le PC  boulot ce qui fait que depuis plus de deux mois j'enregistrais systématiquement sur ma clef USB

Et catastrophe plus rien sur ma clef !

je suis dégouté car je suis obligé de tout refaire!  en partant de zéro  et en plus je ne peux pas y travailler souvent 

Comme il faut tjs positiver je vais donc en,profite rpour essayer de ne travailler qu'avec des useform et d'abandonner les boites de dialogue d'excel 5. et de structurer mieux mon prog dans les choix initiaux 

Dès que je serai à nouveau opérationel j'incorporai ta solution et je te reposterai si c'est OK


Cette discussion est classé dans : recherche, liste, dictionnaire, alphabétique, positionnement

Répondre à ce message

Sujets en rapport avec ce message

recherche alphabétique interactive [ par kakopolo127 ] Bonjour à tous,J'utilse une liste située dans une collonne d'un fichier excel par ex: de A1 à A650 , cette liste est trié alphabétiquementJe cherche à recherche d'un active X [ par olys ] Salut,Je cherche une combobox dynamique, c'est a dir une combo qui complete la saisie de l'utilisateur en fonction de la liste du combo (soit en inter *** Recherche dans un Champs numérique *** [ par Heny ] Salut a tous <SPAN style=" recherche un dictionnaire [ par Antony ] bonjour tout le monde !voilà, je cherche un dictionnaire pour une de mes applications. C'est à dire un fichier texte ou se trouverait tout les mots du recherche un dictionnaire [ par Antony ] bonjour tout le monde !voilà, je cherche un dictionnaire pour une de mes applications. C'est à dire un fichier texte ou se trouverait tout les mots du recherche un dictionnaire [ par Antony ] bonjour tout le monde !voilà, je cherche un dictionnaire pour une de mes applications. C'est à dire un fichier texte ou se trouverait tout les mots du Seek, Find ou Quoi ? ( Recherche et positionnement dans un Recorset ) [ par mic ] Salut à tous,Qui a un (des) exempl de code avec seek et Find ?Recherche et positionnement sur valeur donnée dans un objet recordset. j'y arrive avec u toujours les formulaires, àvot'boncoeur,msieursdames!! [ par gondrule ] Bonjour, je suis nouveau, inexpérimenté et j'ai déjà tout plein de jolies questions (hors sujet peut-être !) dont j'espère qu 'elles ne m'attireront p recherche dans une liste [ par thburg ] Comment retrouver un nom dans une liste avec les premieres lettres du nommerci ***RECHERCHE LISTE URGENT*** [ par yoarf ] Bonjour,Je fais une appli sous Access, et là j'ai une liste avec tous les salariés de ma base.Je voudrais faire une zone de saisie me permettant de re


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.