Code Rechercher

Bonjour,

Ci-joint un fichier pour comprendre le code que je cherche.

Dans la feuille 1 une liste de N° avec une date correspondante.

Dans la feuille 2 une base de données reprenant la liste de N° (contrairement à la feuille 1, il peut y avoir des doublons).

Je souhaiterais que la date de la feuille 1 soit intégrée à la feuille 2 en fonction du N° de la liste.

J'ai effectuer des recherches avec les fonction RECHERCHEV ou DECALER, mais je n'y arrive pas.

Merci de votre aide.

Cordialement.

4es.xls (13.50 Ko)

Bonjour,

=RECHERCHEV(B2;Feuil1!$A$1:$B$7;2;FAUX)
3es.zip (3.90 Ko)

Bonjour,

Merci pour la réponse rapide.

La formule fonctionne lorsqu'elle est intégrée à ma cellule.

Lorsque je la transcris en code, je n'y arrive pas.

"Erreur définie par l'application ou par l'objet".

J'essaie de reprendre la formule.

Ci-dessous mon code.

Private Sub EVENEMENT()
Dim NoDerLigne As Integer    'OK
Dim ChoixFeuille As Worksheet 'Choix de la feuille    OK
Dim NoLIGNE As Integer '  OK
Dim DERL As Integer
DERL = Worksheets("STRE").Range("C" & Rows.Count).End(xlUp).Row

Consolider_feuilles

Set ChoixFeuille = Worksheets("Résultat")      ' OK

'dernière ligne de l'onglet base
NoDerLigne = ChoixFeuille.Range("G" & Rows.Count).End(xlUp).Row 'OK

For NoLIGNE = 1 To NoDerLigne
If ChoixFeuille.Range("Q" & NoLIGNE) <> ComboBox1.Value Then
ChoixFeuille.Rows(NoLIGNE).Clear
End If
Next NoLIGNE

Controls("TextBox199").Value = -(Application.WorksheetFunction.Sum(Range("C2:C" & NoDerLigne)))
Controls("TextBox199") = Format(Controls("TextBox199"), "### ### ##0")

For NoLIGNE = 1 To NoDerLigne
ChoixFeuille.Range("W" & NoLIGNE) = "=VLookup(ChoixFeuille.Range(""P"" & NoLIGNE), Worksheets(""STRE"").Range(""A1:A""&DERL), 6, False)"
Next NoLIGNE

Set ChoixFeuille = Nothing

End Sub

Le message d'erreur vient de:

ChoixFeuille.Range("W" & NoLIGNE) = "=VLookup(ChoixFeuille.Range(""P"" & NoLIGNE), Worksheets(""STRE"").Range(""A1:A""&DERL), 6, False)"

Je pensai pouvoir écrire:

ChoixFeuille.Range("W" & NoLIGNE) = Application.WorksheetFunction.VLookup(ChoixFeuille.Range("P" & NoLIGNE), Worksheets("STRE").Range("A1:A1000"), 6, False)

Ca ne marche pas non plus.

Je dois mal écrire la formule.

Une idée ?

Merci

Bonjour,

Puisque tu veux saisir des formules ... tu peux essayer :

ChoixFeuille.Range("W" & NoLIGNE).Formula

Bonjour,

J'ai toujours le même message d'erreur avec:

ChoixFeuille.Range("W" & NoLIGNE).Formula = "=VLookup(ChoixFeuille.Range(""P"" & NoLIGNE), Worksheets(""SINISTRE"").Range(""A1:A""&DERL), 6, False)"

Les "" et () sont-ils bien placés ?

Vois tu une erreur avec car ça ne fonctionne pas non plus

ChoixFeuille.Range("W" & NoLIGNE) = Application.WorksheetFunction.VLookup(ChoixFeuille.Range("P" & NoLIGNE), Worksheets("STRE").Range("A1:A1000"), 6, False)

Cordialement

ReBonjour,

Personnellement ... pour faciliter la recherche ... ma préférence serait que je tu joignes ton fichier avec tes macros ...

Ci-joint un extrait du fichier.

Pour résumer, il convient d'insérer la date contenu dans la colonne K de la feuille SINISTRE, dans la colonne W de la feuille Résultat, en fonction du N° de SIN

8recup.zip (24.21 Ko)

Re,

Merci pour le fichier ...

Cela va grandement faciliter la communication ...

Re,

Ci-joint ton fichier test ...

16recup.zip (26.81 Ko)

Merci pour ton aide.

Cependant lorsque je lance la macro les valeurs obtenus sont #N/A.

As tu le même problème ? Je suis sur excel 2003

Re,

Lorsque tu obtiens des #N/A ... cela veut dire que le numéro SIN ... n'est pas retrouvé dans ta feuille Sinistre ...

Dans ce cas, il faut t'assurer que dans tes deux feuilles, tes numéros sont écrits rigoureusement de la même façon ...

Rechercher des sujets similaires à "code rechercher"