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