Utilisation de Vlookup (RechercheV)

Version imprimable

23/11/2010, 13h19
carlux3

Utilisation de Vlookup (RechercheV)

Bonjour,

j'ai cette rechercheV dans mon VB mais lorsque je le lance ça me met une erreur de compilation.

Comment l'utiliser ? quoi déclarer ?

Code:

Worksheets("Feuil1").Cells(Ligne, 4) = VLookup(Worksheets("Feuil1").Range("B" & k), users, 3, False)

J''aimerai que dans la cellule Feuil1.Ligne4 s'inscrivre le résultat dela colonne 3 en fonction de Bk dans la table user ?

il manque des "" ou des () faut-il déclaré la fonction ? si oui comment faire vu que c'est en plein milieu d'un Sub ?

Merci

Si Users est une plage nommée

Code:

1
2
3
With Worksheets("Feuil1")
    .Cells(Ligne, 4).Formula = "=VLookup('" & .Name & "'!" & .Range("B" & k).Address & ",Users, 3, False)"
End With

23/11/2010, 13h51
carlux3
Code:

1 2 ('" & .Name & "'!" & .Range("B" & k).Address & ",Users, 3, False)" End With
Pourquoi as tu remplacé

Code:

Worksheets("Feuil1").Range("B" & k) par '" & .Name & "'!" & .Range("B" & k).Address & "

A quoi cela correspond ?

car il me met une erreur de compilation en me surlignant .Name
23/11/2010, 14h04
Pierre Fauconnier

Salut.

Il nous faudrait plus de code, notamment les lignes qui affectent une valeur à users

A lire: la fonction vlookup
23/11/2010, 14h05
mercatog
Non, j'ai mis
Code:

1 2 3 With Worksheets("Feuil1") .Cells(Ligne, 4).Formula = "=VLookup('" & .Name & "'!" & .Range("B" & k).Address & ",Users, 3, False)" End With
qui revient à

Code:

Worksheets("Feuil1").Cells(Ligne, 4).Formula = "=VLookup('" & Worksheets("Feuil1").Name & "'!" & Worksheets("Feuil1").Range("B" & k).Address & ",Users, 3, False)"

Autre chose, au lieu de poster une seule ligne, il est préférable de reporter la partie entière du code
c'est quoi déjà Users?
23/11/2010, 14h10
carlux3

User a été défini pour une plage nommée dans Excel pour des recherchev faire dans Excel

Mais ça n’apparaît nulle par dans le code.
23/11/2010, 14h16
Pierre Fauconnier

Tu dois préciser que tu utilises la plage nommée

Code:

VLookup(Worksheets("Feuil1").Range("B" & k), range("users"), 3, False)

Voilà mon code en entier

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub()
Dim i, j, k, Ligne As Integer
 
 
i = 1
Ligne = 1
 
Worksheets("Feuil5").Select
 
Do While Worksheets("Feuil5").Range("A" & i) <> "" Or Worksheets("Feuil1").Range("G4") = Worksheets("Feuil5").Range("A" & i)
 
            i = i + 1
 
Loop
    i = i - 1
 
    If Worksheets("Feuil1").Range("G4") = Worksheets("Feuil5").Range("A" & i) Then
            MsgBox "Docuement archivé"
            Worksheets("Feuil5").Range("A" & i).Select
            Else
 
                            Worksheets("Feuil5").Select
                            Ligne = Selection.SpecialCells(xlCellTypeLastCell).Row + 1
 
                            Worksheets("Feuil5").Cells(Ligne, 1) = Worksheets("Feuil1").Range("G4")
                            Worksheets("Feuil5").Cells(Ligne, 2) = Worksheets("Feuil1").Range("B8")
                            Worksheets("Feuil5").Cells(Ligne, 3) = Worksheets("Feuil1").Range("F1")
 
 
                            j = 14
 
                            Do While Worksheets("Feuil1").Range("A" & j) <> ""
 
                                    Worksheets("Feuil4").Select
                                    Ligne = Selection.SpecialCells(xlCellTypeLastCell).Row + 1
                                    Worksheets("Feuil4").Cells(Ligne, 1) = Worksheets("Feuil1").Range("G4")
                                    Worksheets("Feuil4").Cells(Ligne, 2) = Worksheets("Feuil1").Range("A" & j)
                                    Worksheets("Feuil4").Cells(Ligne, 3) = Worksheets("Feuil1").Range("E" & j)
                                    With Worksheets("Feuil4")
                                        .Range("D" & k).Formula = "=VLookup('" & .Name & "'!" & .Range("B" & k).Address & ",User, 3, False)"
                                    End With
                            j = j + 1
                            Loop
 
 
   End If
 
End Sub

le k n'est pas affecté
refais ça

Code:

1
2
3
4
5
6
7
8
9
10
11
    j = 14
    Do While Worksheets("Feuil1").Range("A" & j) <> ""
        With Worksheets("Feuil4")
            Ligne = .Columns(1).SpecialCells(xlCellTypeLastCell).Row + 1
            .Cells(Ligne, 1) = Worksheets("Feuil1").Range("G4")
            .Cells(Ligne, 2) = Worksheets("Feuil1").Range("A" & j)
            .Cells(Ligne, 3) = Worksheets("Feuil1").Range("E" & j)
            .Range("D" & Ligne).Formula = "=VLookup('" & .Name & "'!" & .Range("B" & Ligne).Address & ",User, 3, False)"
        End With
        j = j + 1
    Loop

avec comme déclarations

Code:

Dim i As Long, j As Long, k As Long, Ligne As Long

ou sans formule, comme t'a indique Pierre fauconnier

23/11/2010, 15h04
carlux3

Merci il faut que je retouche 2-3 trucs mais ça s'annonce bien !