Discussion :

[Zebulon777]

Bonjour à tous...
Voici mon problème...
Dans une feuille j'ai 2 colonnes :
- DATE (jj/mm/aaaa)
- VALEUR

Dans la seconde feuille, j'ai déjà toutes les dates du mois donné : une par ligne.
Dans la seconde feuille, il faut que je mette la valeur correspondante à la date dans la première feuille, sachant que dans la première feuille, toutes les dates ne sont pas présentes.
Par exemple :
Feuille 1 :
01/01/2007 - 1111
02/01/2007 - 2222
07/01/2007 - 3333

Feuille 2 :
01/01/2007
02/01/2007
03/01/2007
...
30/01/2007
31/01/2007

Dans la colonne B, il faut donc que je mette "1111" dans la ligne correspondante.

Voila j'espère avoir été assea clair...

En tous cas merci à tous, à l'avance, de votre aide...

[SilkyRoad]

bonjour

Une solution par formule, à placer dans la cellule B1 de la feuil2

Code :

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

=SI(ESTNA(RECHERCHEV(A1;Feuil1!$A$1:$B$3;2;0));"";RECHERCHEV(A1;Feuil1!$A$1:$B$3;2;0))

puis tu étires vers la bas.
$A$1:$B$3 correspond à la plage de données dans la Feuil1



michel

[Zebulon777]

Merci de ta réponse,
Je ne crois pas que la fonction RECHERCHEV soit utilisable en VBA et il me faut une solution VBA.

[Maxence HUBICHE]

un truc du genre :

Code :

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

Application.WorksheetFunction.VLookup(Range("A1"), Range("B1:C5"), 2, False)

Attention, la non correspondance renvoie une erreur 1004 !

[Maxence HUBICHE]

Syntaxe des 4 arguments :

Arg1 : valeur à chercher
Arg1 : zone de recherche (la recherche se fait toujours dans la 1° colonne et renvoie une autre colonne)
Arg3 : N° de la colonne à renvoyer (commence à 1)
Arg4 : Vrai si travail sur intervalle (première colone triée) Faux si recherche de valeurs exactes.

[Zebulon777]

Je vais tester, mais qu'est-ce que renvoie la fonction VLookUp ?

[Zebulon777]

Voici ce que je fais mais ça ne fonctionne pas :

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
 
    Sheets(P_NomFeuille).Select
    WDerniereLigneFeuille = ActiveCell.SpecialCells(xlLastCell).Row
    WLigFeuille = 1
    On Error Resume Next
    While WLigFeuille <= WDerniereLigneFeuille
        Sheets(P_NomFeuille).Select
        WDateFeuille = Range("A" & WLigFeuille).Value
        WResultat = Application.WorksheetFunction.VLookup(WDateFeuille, 1, 2, False)
        Sheets("TEMP").Select
        If Not WResultat = Empty Then
            MsgBox WResultat
        Else
            If err = 1004 Then
                WResultat = "0"
            End If
        End If
        WLigFeuille = WLigFeuille + 1
    Wend

La date n'est jamais trouvé alors qu'elle existe bien.

[SilkyRoad]

bonjour

Application.WorksheetFunction.VLookup(WDateFeuille, 1, 2, False)

Ou définis tu la plage de données sources?



Ci joint une autre approche

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
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim Cell As Range
Dim i As Integer, v As Integer
 
Set Ws1 = ThisWorkbook.Worksheets("Feuil1")
Set Ws2 = ThisWorkbook.Worksheets("Feuil2")
 
'Recherche le numero de la derniere ligne non vide
'dans la colonne A de la Feuil2
i = Ws2.Range("A1").SpecialCells(xlLastCell).Row
 
'Boucle sur les cellules de la colonne A dans la Feuil2
For Each Cell In Ws2.Range("A1:A" & i)
    On Error Resume Next
    'cherche la donnée dans la colonne A de la Feuil1
    v = Application.WorksheetFunction.Match(Cell, Ws1.Columns("A"), 0)
    On Error GoTo 0
 
    'Si la donnée est trouvée dans la Feuil1, on récupére le contenu
    'de la cellule sur la droite, et on l'inscrit dans la Feuil2
    If v <> 0 Then Cell.Offset(0, 1) = Ws1.Cells(v, 2)
    v = 0
Next Cell

michel

[Zebulon777]

Tout compte fait, j'ai choisi les boucles qui me semblaient plus pratique.
Et puis, il est vrai que je n'ai pas réussit à mettre en place la fonction VLookUp.
Merci encore à tous.