Macro faisant fonction de "RECHERCHEV"

[MasterZolive]

Bonjour à tous,

Je suis à la recherche d'une macro me permettant de faire une recherchev, je m'explique :

Feuil1 :
plage de données sur 2 colonnes et 200 lignes (A1:B200).

Feuil2 :
tableau à alimenter
(données (.csv) que je récupère d'un logiciel dont le nombre de lignes varie d'une période à une autre)

pour chaque cellule de la colonne B, rechercher la valeur de la colonne A dans la plage de la feuil1 et coller la valeur trouvée.

En espérant avoir été clair, merci d'avance.

M-Zolive

 

[Staple1600]

Re : Macro faisant fonction de "RECHERCHEV"

Bonsoir à tous

M-Zolive
Un exemple tout simple que je te laisse tester et adapter plus avant.
(Il faudra une boucle ou utiliser un AutoFill avec FormulaR1C1)

Sub a()
Dim r As Range: Set r = Feuil1.[A1:B200]: r.Name = "BASED"
Feuil2.[B1] = Application.VLookup(Feuil2.[A1], [BASED], 2, 0)
End Sub

PS: test ok sur mon PC. Dans ce petit exemple, on ne teste que A1 en feuille 2

 

[MasterZolive]

Re : Macro faisant fonction de "RECHERCHEV"

Bonjour JM,

Je te remercie pour ce code qui fonctionne très bien.

En revanche, je coince concernant la boucle à mettre en place. En effet, je n'en ai jamais créé et les exemples que j'ai trouvé dans des tutos ne me parlent pas... 😕
Pourrai-tu donc me venir en aide pour celle-ci.

Merci d'avance.

M-Zolive

 

[Staple1600]

Re : Macro faisant fonction de "RECHERCHEV"

Bonjour à tous

MasterZolive:
Devines ce que j'attends pour aller plus loin dans l'aide à t'apporter.
(indice: je n'oublie que tu es inscrit depuis 2012, donc tu dois forcément savoir ce qui manque dans ta discussion 😉 )

PS: Je te rappelle que j'ai parlé de boucle et d'AutoFill
Donc qui dit choix d'AutoFill dit pas de boucle 😉
Et pour connaitre AutoFill, dans VBE, appuyez sur la touche F1 😉

 

[MasterZolive]

Re : Macro faisant fonction de "RECHERCHEV"

Bonjour JM,

Je t'avouerai que je n'ai pas compris ce que tu attendais de moi dans ton post précédent 😕.

En revanche, j'ai pu me débrouiller pour la boucle. Il me reste cependant une question que je n'arrive pas à résoudre malgré mes recherche (F1 et forums).

Voici mon code :

Sub Alimenter_Noms_Portefeuilles()
Dim r As Range
Set r = Sheets("Portefeuilles").Range("A2:D138")
r.Name = "BASED"
Dim i As Integer
Dim Colonne As String
Dim Colonne1 As String

Colonne = InputBox("Quelle est la lettre de la colonne de la donnée 'id_portefeuille' ?", "Question")
Colonne1 = InputBox("Lettre de la colonne suivante ?", "questions")

Columns(Colonne).Select
Selection.Replace "", 0

Suppression_caractères 'supprime les caractères "¤"

ActiveCell.Offset(0, 1).Select
ActiveCell.EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = "Libellés portefeuilles"

For i = 2 To [D65000].End(xlUp).Row

ActiveSheet.Range("J" & i) = Application.VLookup(ActiveSheet.Range(Colonne & i), [BASED], 4, 0)
   
    Next i

End Sub

Je souhaiterais remplacer la msgbox "Colonne1" par un code qui me donnerai la lettre de la colonne suivante à "Colonne" pour remplacer le "J" ci-dessous :

ActiveSheet.Range("J" & i) = Application.VLookup(ActiveSheet.Range(Colonne & i), [BASED], 4, 0)

J'ai essayé :

Colonne1 = Columns(Colonne) + 1

mais ça me renvoit une erreur.

Une piste serait la bienvenue.

Je te remercie.

Cordialement,
M-Zolive

 

[Staple1600]

Re : Macro faisant fonction de "RECHERCHEV"

Bonjour MasterZolive

Je t'avouerai que je n'ai pas compris ce que tu attendais de moi dans ton post précédent 😕.

Peut-être une corde pour me pendre !!!!
Ah, non ce serait plutôt une pièce jointe (un fichier exemple quoi !!!!)
Inscrit depuis 2012, tu as oublié ce b.a-ba !

 

[MasterZolive]

Re : Macro faisant fonction de "RECHERCHEV"

JM,

Mon code est-il suffisant pour étudier ma demande ou te faut-il le fichier ?

 

[Staple1600]

Re : Macro faisant fonction de "RECHERCHEV"

Bonjour à tous

M-Zolive

Ah, non ce serait plutôt une pièce jointe (un fichier exemple quoi !!!!)

Je pense ne pas me tromper en disant que je suggérai effectivement que tu joignes un fichier exemple !

PS: Pour information

Ceci n'est pas ce qui doit être
Dim Colonne AsString

Cela est comme il se doit
Dim Colonne As Long