begin process at 2012 02 14 23:16:58
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

Automatiser des Recherches V en VBA


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Automatiser des Recherches V en VBA

samedi 9 décembre 2006 à 16:17:48 | Automatiser des Recherches V en VBA

olivier857

Membre Club

Bonjour à tous,

Ma question est la suivante, je cherche la meilleur méthode pour automatiser des recherche V.

J'ai un tableau Excel contenant un très grand nombre de lignes (chaque ligne est égale à un produit) et pour chacune de ces lignes figure plusieurs colonnes (divers caractéristiques des produits). Une de ces colonnes correspond aux références des produits et une autre aux prix de ceux-ci. La colonne référence est renseignée et la colonne prix est vide.

Je voudrais que pour chaque ligne du tableau (jusqu'à la dernière), le programme puisse chercher dans un autre tableau conçu sous le même format (càd une ligne égale = 1 produit, 2 colonnes référence et prix) le prix correspondant à chaque référence. Pour cela il faut que le programme recherche dans le second tableau (qui est dans un autre classeur Excel) la référence du premier tableau puis prenne le prix correspondant pour le stocker dans la colonne prix du 1er tableau.

Comme je l'ai dit au début cela correspond à automatiser des recherches V, pour un grand nombre de données, entre 2 tableaux situé dans 2 classeurs différents.

Quelqu'un pourrait t'il m'indiquer comment on fait cela en VB.

samedi 9 décembre 2006 à 17:11:45 | Re : Automatiser des Recherches V en VBA

MPi

Quel est le problème à utiliser des formules RechercheV ?
Peux expliquer un peu plus ?

MPi
samedi 9 décembre 2006 à 18:18:40 | Re : Automatiser des Recherches V en VBA

deuxmains

Réponse acceptée !

bonjour,

cela vaut ce que cela vaut mais voila un bout de code en vba qui devrais répondre a tes besoins il faut juste redéfinir le chemin du classeur contenant les prix  et remmettre le bonne valeurs pour les colonnes de chaque objet range

Dim compt As Integer
Dim reference As String
Dim prix As String
Dim refpdt As Workbook
Dim resultat As String

Sub recherche_reference()

'on initialise les variables

Set refpdt = GetObject("chemin du classeur où sont stockés les références et les prix")

compt = 2

'on demarre la boucle

Do

' on prend la référence du produit dans le premier classeur

reference = Range("b" & compt)

' on recherche la ligne de cette référence dans le deuxième classeur

resultat = refpdt.Sheets("Feuil1").Range("b:b").Find(reference, , xlValues, xlWhole).Row

'on charge le prix de la référence trouvée dans une variable

prix = refpdt.Sheets("Feuil1").Range("c" & resultat).Value

' on inscrit le prix dans la case idoine du classeur

Range("c" & compt) = prix

'on passe a la ligne suivante

compt = compt + 1

Loop Until compt = Range("a:a").End(xlDown).Row + 1

End Sub

en espérant que cela t'aide

samedi 9 décembre 2006 à 21:59:05 | Re : Automatiser des Recherches V en VBA

olivier857

Membre Club
Bonjour deux mains,

Je n'ai pas encore essayer ton code, il faudra attendre lundi pour çà, mais je peux dors et déjà te dire après lecture d ecelui-ci qu'il devrait me rendre service.

Tu a apparement bien répondu à ma question reste plus qu'à tester.

Merci !
samedi 9 décembre 2006 à 22:06:33 | Re : Automatiser des Recherches V en VBA

olivier857

Membre Club
Une autre question :

Comment puis-je faire pour que si on change la position d'une colonne dans un tableu, mon code pointe tjs sur celle-ci. En quelque sorte dynamiser le programme en intégrant des "références ou autre suptilités" au colonne du tableau.
samedi 9 décembre 2006 à 22:26:21 | Re : Automatiser des Recherches V en VBA

deuxmains


salut
Si ça te conviens c'est parfait

pour répondre à ta question je passerais par une boucle if ...then au démarrage du classeur pour retrouver tous les en tête de colonne et leur attribuer un nom de variable.

une autre solution est de commencer par changer le référencement de tes en têtés de colonne. C'est à dire au lieu d'avoir Range("A1") tu as Range ("dépense") et a partir de ce nom de range tu peux extraire des numéro de colonnes pour ton code.

jeudi 14 décembre 2006 à 10:11:18 | Re : Automatiser des Recherches V en VBA

olivier857

Membre Club
Bonjour,

J'aimerais maintenant savoir si il est possible d'effectuer cette recherche V dans fichier texte à la place du classeur excel. Bien évidement uniquement le classeur comportant les prix est remplacer par un fichier texte. Le 1er classeur comportant les formules de recherche V reste identique.

Si une méthode de recherhe V dans des fichiers texte existe je suis preneur.
Si cela n'existe pas, peut être est t'il possible de le faire dans access en important au préalable les données du fichier texte dans access.

Merci d'avance.


P.S.: Le but de ma démarche est d epouvoir faire des recherche V dans une source comportant beaucoup plus de ligne qu'il n'est admissible dans excel.
jeudi 14 décembre 2006 à 13:58:04 | Re : Automatiser des Recherches V en VBA
vendredi 15 décembre 2006 à 00:17:06 | Re : Automatiser des Recherches V en VBA

MPi

Tu pourrais faire des requêtes dans ton fichier texte avec ADO, sans avoir à utiliser Access. Ce n'est pas une rechercheV, mais ça te retournerait les données dont tu as besoin selon les critères demandés dans la requête.

Fais des recherches sur les fichiers Schema.ini

Éventuellement, tu peux copier l'enregistrement (toutes les lignes trouvées) dans une feuille d'Excel et faire tes RechercheV sur cette feuille.

Je ne sais pas si cette option est possible ou bonne dans ton cas, par contre...

MPi


Cette discussion est classée dans : référence, tableau, prix, automatiser, recherches


Répondre à ce message

Sujets en rapport avec ce message

tableau: référence ou fonction??? HELP SVP [ par servane ] Bonjour,nous sommes dans l'exécutable; mon tableau est un tableau de type JII_Visio.lien_typeen fait j'ai fait une fonction qui initialise mon tableau tableau: référence ou fonction??? HELP SVP [ par servane ] Bonjour,nous sommes dans l'exécutable; mon tableau est un tableau de type JII_Visio.lien_typeen fait j'ai fait une fonction qui initialise mon tableau tableau: référence ou fonction??? HELP SVP [ par servane ] Bonjour,nous sommes dans l'exécutable; mon tableau est un tableau de type JII_Visio.lien_typeen fait j'ai fait une fonction qui initialise mon tableau tableau: référence ou fonction??? HELP SVP [ par servane ] Bonjour,nous sommes dans l'exécutable; mon tableau est un tableau de type JII_Visio.lien_typeen fait j'ai fait une fonction qui initialise mon tableau tableau: référence ou fonction??? HELP SVP [ par servane ] Bonjour,nous sommes dans l'exécutable; mon tableau est un tableau de type JII_Visio.lien_typeen fait j'ai fait une fonction qui initialise mon tableau Comment, calculer le prix total du caddy ???? [ par badoux ] Bonjour à vous lecteur et bonne année; Je me permet de poster ce message, apr&#23 Stocker un tableau 'par valeur' (ByVal) et non pas 'par référence' (ByRef) [ par DavidWhitewater ] Bonjour, prenons un tableau, et une collection tout simple :Dim Tableau(50) as integerDim Col as new collectionà chaque modification des valeurs de mo *** PROBLEME VIRGULE *** [ par Heny ] Salut a tous '***Modifier le contenu de stock***''Selection du produit par RéférenceForm3.AdoProd.RecordSource = "SELECT * FROM Stock where Référence Insertion d'un nombre automatique dans un tableau [ par spike13127 ] Voila ma question, je suis actuellement sur un travail sur Excel et je rencontre un problème. Ce document dispose d'un tableau avec une colonne référ automatiser tableau [ par kameylia ] Bonjour, je ne connais pas grand chose en macro je fais donc appel a votre aide... en faite jai un tableau excel avec 4 colonnes: la premiere contient


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,858 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales