Pb sur un vlookup

Version imprimable

13/08/2008, 10h11
helpvlookup

Pb sur un vlookup

Bonjour,

Je démarre en vba et je rencontre une difficulté. Sur une feuille de mon fichier Excel, appelée fiche clients, je rentre les données concernant mes clients, une fois que la fiche clients est remplie, toutes les données s'incrémentent sur une autre feuille, appelée base clients du même fichier Excel : je sais pas de quoi fouetter un chat mais j'y suis arrivée.
En revanche, si je retape le nom de mes clients, je souhaiterais que les dernières informations déjà saisies réapparaissent sur ma fiche clients.
En effet, un Mr Dupont peut acheter différents biens à différentes dates et je souhaite que cela soit le dernier achat qui apparaisse.

En faisant une recherchev je n'ai aucune difficulté mais là oui. Voilà ce que j'ai écrit mais cela ne fonctionne pas :

Code:

range("b3").Value = VLookup(range("B2").Value, wksBC.range("b:J"), 2, False)

Merci de votre aide

Bonne recherche !!

Helpvlookup
13/08/2008, 11h17
Godzestla

Salut,

je te suggère de démarrer l'enregistreur de macro et puis de saisir ta formule de recherchev dans ta cellule.

Ensuite arrete l'enregistreur de macro et regarde dans Module1 (normallement si pas déjà du code) de VBA et tu verra le code saisi.

C'est souvent éclairant pour apprendre à maitriser le code.

On est sur la voie

Merci bcp Godzestla

Je viens de faire ta manip et effectivement tout s'éclaire. J'ai malgré tout un pb : c'est sur mon formulaire de saisie et non sur ma base de données que je souhaiterais que le nom du client apparaisse : or là les informations de mon client son mis sur ma base de clients.

Je te donne ce que j'ai écrit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Cette macro assume que la base de donnée comporte une ligne d'entêtes
    Dim rngFormulaire As range
    Dim wksBD As Worksheet
 
    Set rngFormulaire = Worksheets("Formulaire").range("B1:B27")
    Set wksBC= Worksheets("BC")
 
 
'rechercher le client présent dans BC
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C,BD!C:C[2],2,FALSE)"
    range("B4").Select
 
 
 
    ' Copier les données du formulaire
    rngFormulaire.Copy
    ' Coller avec transposition dans la base de données
    wksBD.Cells(wksBD.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    ' Enlever l'indicateur d'opération copier/coller
    Application.CutCopyMode = False
    ' Effacer les données dans le formulaire
    rngFormulaire.ClearContents
    ' rappeler le client

aurais - tu une astuce?;)

Merci bcp

Helpvlookup

13/08/2008, 16h28
fring

Bonjour,

Code:

range("b3").Value = Application.WorksheetFunction.VLookup(range("B2").Value, wksBC.range("b:J"), 2, False)
13/08/2008, 18h03
helpvlookup

Bonjour,

Merci pour la formule mais j'ai toujours mon souci où je souhaite qu'à partir de ma saisie du formulaire, le nom de mon client s'affiche : c'est de rappatrier la dernière fiche de mon client.

Merci bcp
13/08/2008, 20h54
alsimbad

je n'ai pas tout saisi, excusez moi si mon intevention est a coté de la plaque, mais tu veux la derniere saisie pour un client, et rechercheV dans tous les cas, s'arrete a la premiere occurence trouvé , et a ma connaissance il part toujour du haut de la feuille.
tu a surement d'autre possibilité comme find. find trouve aussi la premiere occurence, mais tu peux le relance (findnext) et ensuite tu compare a l'adresse du premier, pour revenir a l'info la plus fraiche.
14/08/2008, 10h44
helpvlookup

En fait, sur mon fichier Excel, j'ai 2 onglets :
- Un qui est ma base de données de clients
- Un qui est le formulaire de saisie qui alimente le 1er onglet.

Quand j'ai un client présent dans ma base, je souhaite lors de ma saisie sur mon formulaire rappeler le client s'il existe déjà;

Mr Dupont a acheté X produits le 01/05/08, info stockée dans ma base de données.

Si le client revient je souhaite avoir la dernière fiche pour savoir ce qu'il a acheté et la date de l'achat : cela permet de ne pas resaisir sur ma fiche client ses coordonées personnelles : d'où le besoin d'une recherchev avec la date de la dernière fiche rentrée pour ne pas avoir sa 1ère fiche.

J'espère que mes explications t'auront paru plus claires.
Merci bcp.