Discussion :

[helpvlookup]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de votre aide

Bonne recherche !!

Helpvlookup

[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.

[helpvlookup]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[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.