IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Recherche la fonction équivalente à Find de VBA en VB6


Sujet :

VB 6 et antérieur

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingé
    Inscrit en
    Août 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingé
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 11
    Points : 8
    Points
    8
    Par défaut Recherche la fonction équivalente à Find de VBA en VB6
    Bonjour,

    Désolé de revenir si vite vers vous mais mon développement est au point mort car je ne connais pas l'équivalent de la fonction Find de VBA en VB6.

    Je migre une macro vers VB6 pour en faire une application. Cette appli doit aller chercher des données d'entrée dans différents fichier Excel. En VBA, j'avais trouvé très pratique la fonction Find. Celle-ci m'avait permis de gagner beaucoup de temps de calcul par rapport à une recherche incrémentale avec une boucle.

    J'aimerai ne pas revenir en arrière et trouver l'équivalent en VB6. Je ne trouve pas de réponse dans la librairie MSDN. Est-ce que quelqu'un pourrait m'aider ?

    En gros, il faut que je traduise en VB6 l'instruction VBA :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set Correspondance=Workbook_A.Sheet_A1.Columns(X).find("Toto", Lookin:=xlvalues)
    Merci d'avance.

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 805
    Points
    5 805
    Par défaut
    On peut utiliser la fonction
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    InStr([start, ]string1, string2[, compare])
    et boucler dessus
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Si ton application VB6 va toujours chercher dans un fichier Excel, tu peux utiliser les méthodes Excel par automation en pilotant Excel.

    Où je n'ai pas tout compris.

    Philippe

  4. #4
    Futur Membre du Club
    Homme Profil pro
    Ingé
    Inscrit en
    Août 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingé
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 11
    Points : 8
    Points
    8
    Par défaut
    Citation Envoyé par Philippe JOCHMANS Voir le message
    Bonjour

    Si ton application VB6 va toujours chercher dans un fichier Excel, tu peux utiliser les méthodes Excel par automation en pilotant Excel.

    Où je n'ai pas tout compris.

    Philippe
    Tu as bien compris. Du coup, en faisant un automation, je pourrais éventuellement utiliser les fonctions VBA ? Est-ce que tu aurais une source où je pourrais voir comment ça se passe ?

  5. #5
    Invité
    Invité(e)
    Par défaut
    Re

    http://vb.developpez.com/cours/?page=automation#office

    L'automation te permettra de faire ce que tu veux, au lieu d'avoir un ActiveWorkbook, tu déclares une instance d'Excel, un classeur, une feuille et c'est parti.

    Philippe

  6. #6
    Futur Membre du Club
    Homme Profil pro
    Ingé
    Inscrit en
    Août 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingé
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 11
    Points : 8
    Points
    8
    Par défaut
    Citation Envoyé par Philippe JOCHMANS Voir le message
    Re

    http://vb.developpez.com/cours/?page=automation#office

    L'automation te permettra de faire ce que tu veux, au lieu d'avoir un ActiveWorkbook, tu déclares une instance d'Excel, un classeur, une feuille et c'est parti.

    Philippe
    Je vais regarder ça de près. Merci beaucoup.

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Ingé
    Inscrit en
    Août 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingé
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 11
    Points : 8
    Points
    8
    Par défaut
    Citation Envoyé par Philippe JOCHMANS Voir le message
    Bonjour

    Si ton application VB6 va toujours chercher dans un fichier Excel, tu peux utiliser les méthodes Excel par automation en pilotant Excel.

    Où je n'ai pas tout compris.

    Philippe
    Merci beaucoup Philippe, cela fonctionne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Fonction Range.Find en VBA
    Par FrançoisLaterite dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 28/03/2014, 18h44
  2. [WD-2007] Pb de recherche par Find en VBA
    Par canard338 dans le forum VBA Word
    Réponses: 7
    Dernier message: 18/02/2011, 22h21
  3. [E-03] Aide sur la Fonction .Find dans VBA
    Par Gunsx dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/01/2009, 22h36
  4. Recherche fonction équivalente à "RoundRect"
    Par rezuss dans le forum Langage
    Réponses: 2
    Dernier message: 29/11/2007, 15h14
  5. recherche de fonctions équivalentes sous Visual C++ 6.0
    Par magicbisous-nours dans le forum MFC
    Réponses: 3
    Dernier message: 26/10/2005, 09h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo