RechercheV dans macro avec case variable

Fermé

Danette - 7 oct. 2015 à 15:39
Danette - 8 oct. 2015 à 14:27

Bonjour,

J'ai un soucis lors que je veux intégrer une focntion dans ma macro.
J'aimerais faire une recherchev dans une case variable.
Voici ce que j'ai commencé à écrire.

For i = 2 To 5000
        Cells(y + 1, 8) = "=Vlookup(" & Cells(y + 1, 3) & ";Base_de_donnees!K1:L29;2;FALSE)"
y = y + 1
Next

Je n'ai encore jamais intégré de formule dans une macro, donc je ne sais pas trop si c'est comme cela qu'il faut que je l'écrive.
En gros ma recherchev est la suivante :
- dans la colonne C de la même ligne
- cherche cette même valeur dans la matrice de l'onglet "Base_de_donnees
- inscrire la valeur correspondante de la 2ème colonne de la matrice

Merci d'avance pour votre aide.

A voir également:

Remplacer recherchev par une macro
Remplacer disque dur par ssd - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Recherchev texte ✓ - Forum Excel
Quel site pour remplacer coco - Accueil - Réseaux sociaux
Remplacer par word - Guide

2 réponses

Réponse 1 / 2

Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 7/10/2015 à 16:26

Bonjour,

Je l'aurais écris comme ça :

Cells(y + 1, 8).Value = Application.WorksheetFunction.Vlookup(Cells(y + 1, 3), Sheets(Base_de_donnees).Range(K1;L29), 2, False)

Cordialement.

Danette
8 oct. 2015 à 09:38

Ca ne fonctionne pas dans ma macro :(
Pour information, dans ton écriture vba n'accepte pas ";" quand on selectionne la plage de données avec range. Du coup, il faudrait remplacer "range(K1;L29)", par"range(K1,L29)".

En tout cas, lorsque je lance ma macro, tout fonctionne bien jusqu'à cette ligne. VBA me dit qu'il y a un bug et me la surligne en jaune.

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149 > Danette
8 oct. 2015 à 10:29

Essaie en mettant des guillemets et un double point (Range("K1:L29"))

Danette
8 oct. 2015 à 11:49

J'ai modifié, mais ce n'est pas plus efficace malheureusement. :(

Réponse 2 / 2

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
7 oct. 2015 à 16:39

Bonjour,

Si c'est le résultat qui importe, tu peux utiliser la solution de Kuartz.
Si tu veux une formule dans la cellule :

    Cells(y + 1, 8).Formula = "=VLOOKUP(C" & (y+1) & ",Base_de_donnees!K1:L29,2,FALSE)"

J'espère que tu ne t'emmêles pas les pinceaux entre i et y.

L'enregistreur de macro peut être utile pour obtenir une syntaxe, même s'il y a quelques écueils dans ce cas (R1C1,...)

A+

Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
7 oct. 2015 à 16:47

J'allais le dire, te plante pas sur x et y. Si tu te plante de variable, alors ton code n'a aucune chance de fonctionner.

Danette
8 oct. 2015 à 09:49

Je vois vos conseil me disant de ne pas me planter de variable.
J'ai super attention à ça, normalement, je dis bien normalement je ne me suis pas trompé.
Surtout que je ne vous ai pas tout avoué sur mon code et surtout sur mon nombre de variable. Il est "bien plus complexe" (dans le sens où mon nb de variable est assez important).

Voici un bref aperçu :

'
''Partie 4
For i = 2 To 5000
    
    '
    '
    '
    'Renseignement de l'inventaire Partie 4
    If Nr_entrepot = Worksheets("Inventaire").Cells(i, 2) And (Worksheets("Inventaire").Cells(i, 5) = Worksheets("Base_de_donnees").Range("H5").Value) Then

        Cells(y + 8 + x + w, 1) = "Meuble frigorifique"         'Nom Partie Partie 4
        'Mise en forme titre Partie 4
        Range(Cells(y + 8 + x + w, 1), Cells(y + 8 + x + w, 8)).Select
        Call mise_en_forme_ligne_titre
        
        Cells(y + 9 + x + w + v, 1) = Worksheets("Inventaire").Cells(i, 1) 'Nom de l'entrepôt
        Cells(y + 9 + x + w + v, 2) = Worksheets("Inventaire").Cells(i, 5) 'Type d'installation
        Cells(y + 9 + x + w + v, 3) = Worksheets("Inventaire").Cells(i, 3) 'CODE
        Cells(y + 9 + x + w + v, 4) = Worksheets("Inventaire").Cells(i, 7) 'Désignation
        Cells(y + 9 + x + w + v, 5) = Worksheets("Inventaire").Cells(i, 8) 'Fabricant
        Cells(y + 9 + x + w + v, 6) = Worksheets("Inventaire").Cells(i, 9) 'Désignation type
        Cells(y + 9 + x + w + v, 7) = Worksheets("Inventaire").Cells(i, 13) 'Numéro de série
        Cells(y + 9 + x + w + v, 8).Value = Application.WorksheetFunction.VLookup(Cells(y + 9 + x + w + v, 8), Sheets(Base_de_donnees).Range("K1, L29"), 2, False)   'Unité
        Cells(y + 9 + x + w + v, 9) = ""                                    ' Tarif
        Cells(y + 9 + x + w + v, 10) = ""                                   'Plus-value
        v = v + 1

    End If
 
Next
        'Mise en place de ligne Total Partie 4
        Cells(y + 9 + x + w + v, 1) = "Total Maintenance Partie 4" 'Ligne total maintenance Partie 4
            'Mise en forme total Partie 4
            Range(Cells(y + 9 + x + w + v, 1), Cells(y + 9 + x + w + v, 8)).Select
            Call mise_en_forme_ligne_totale

En fait si j'ai mis autant de variable, ce n'est pas forcément que je n'avais pas le choix, mais c'est surtout que je n'ai pas su faire autrement.
Pour vous expliquer un peu le but de cette macro, je dois aller chercher un inventaire dans l'onglet inventaire. Sauf qu'il est constitué de 6 parties. Mon problème est que le nombre de ligne d'une partie de l'inventaire varie à chaque fois. Et je veux que chaque partie se succède lorsque je vais les chercher avec ma macro. D'où ce nombre important de variable.

Pour information, cette macro fonctionne très bien, si je ne mets pas la formule "VLookUp", donc le problème ne vient pas des variables (sauf peut-être sur cette ligne, mais je ne vois pas pourquoi cela devrait être différent).

P.S. : J'espère ne pas vous avoir découragé :)

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
8 oct. 2015 à 10:29

VLOOKUP de la valeur se trouvant en colonne 3, et pas 8.

Danette
8 oct. 2015 à 11:48

Exact, je n'avais pas fait attention à ça. Mais j'ai toujours le bug :(

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
8 oct. 2015 à 12:21

Sans ton fichier, on ne peut pas aller plus loin, je crois.
Tu as essayé la syntaxe que j'ai donnée ?
Ou encore essayé d'enregistrer une macro en mettant la formule à la main ?

Discussions similaires

Macro équivalente à recherchev

Bonjour,

Je cherche comment écrire une macro qui aurait un fonctionnement semblable à la fonction recherchev.
La macro doit pouvoir contrôler chaque cellule de la colonne B de la feuille 2 et voir si cette valeur est existante dans la colonne G de la feuille1.
Si par exemple la valeur de la cellule B4 de la feuille 2 se trouve aussi dans la cellule G12 de la feuille 1, alors la macro devra coller sur F4 et J4 de la feuille 2 les valeurs de M12 et P12 de la feuille 1.

Es-ce que quelqu'un peut m'aider svp?
Merci

Macro recherchev et copier les lignes

Bonjour à tous,

Je suis débutant en macro mais je souhaiterai faire un macro qui me permet de résoudre mon problème ci-dessous :
J'ai 3 fichiers xls nommés Fichier1, Fichier2 et Fichier3.
Dans le Fichier1, il y a 24 colonnes dont la première colonne contenant du NuméroEmployé et la deuxième colonne contenant du NuméroCIN, les autres colonnes sont des nom, code, salaire....
Le Fichier2 a 6 colonnes dont la troisième colonne contenant du NuméroCIN et les restes sont des nom, adresse, Tél...
Dans le Fichier3, il y a aussi 24 colonnes mais elles sont tous vides.
Mon souci est comment faire une recherchev entre les Fichier1 et le Fichier2 et appo...

[VBA] Macro semblabe à recherchev

Bonjour à tous,

Je viens vous demander de l'aide sur un projet sur lequel je travaille.

Contexte
Je travaille sur un fichier excel qui contient 2 feuilles. Les deux feuilles ont une colonne "Projet", le problème c'est que ces deux feuilles ont été crées par deux personnes absolument différente. En sommes un même projet sera présent sur la seconde feuille mais avec un nom différent comme par exemple:
Feuille 1: Paris Bercy
Feuille 2: Projet Paris Bercy
Etant donné que je dois récupérer des infos sur la seconde feuille pour les rentrer dans la première, j'ai naturellement pensé à une fonction RECHERCHEV qui n'est pas adapté puisqu'il n'...

Remplacer une RECHERCHEV par une MACRO???!

Bonjour,

je dois réaliser un projet pour mon stage. J'arrive très bien à le résoudre par une simple recherchev, mais cela prend beaucoup trop de temps (je dois retirer la formule sur 25000 lignes à peu près). J'aimerais donc remplacer cette recherchev par une macro qui va effectuer la même opération, mais qui va uniquement mettre le résultat de la recherche dans la cellule en question et non pas la formule. J'ai déjà cherché sur internet toute la journée, mais je n'arrive pas à adapter les exemples pour mon problème, parce que je n'ai vraiment pas assez de connaissance. Est-ce que quelqu'un veut bien m'aider?? :-)

Je m'explique:

J'ai un fichier E...

recherchev en vba

Bonjour,

Je suis en train de construire une macro en vba sur de l'excel. J'ai 2 feuilles Excel : une qui est un formulaire qui incrémente ma base de données.

Or, si un client existe sur ma base de données, je souhaite lorsque je remplis mon formulaire, que le nom soit recherch dans la base de données et rappeler la fiche client pour la modifier si nécessaire sur mon formulaire.

J'ai essayé plusieurs formules ex Sub recherche() mais je n'y arrive pas et ne sais pas comment recopier le nom du client sur le formulaire.

Merci pour votre aide.

Conseilrecherchev

compiler RECHERCHEV et RECHERCHEH

Bonjour à vous,

Je voudrai savoir s'il est possible de « compiler » une RECHERCHEV avec une RECHERCHEH ?

Énoncé :
(Question d'épargne.)
En feuille 1 du classeur : le récapitulatif à imprimer.
En feuille 2 : colonne A (A1 :A13), les mois.
Ligne 1 (1B :1X...) le nom des personnes.

Retrouver en feuille 1, colonne C (épargne) le montant indiqué en feuille 2 en fonction du mois (feuille 1, $E$5), et du nom (feuille 1, colonne A).
Ci-joint mon essai de tableau :
https://www.cjoint.com/c/EIBnjz7BsFa

Pour l'instant je n'y arrive que par RECHERCHEV en changeant pour chacun le num d'index colonne... ...