Discussion :

[carlux3]

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 :

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

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

[mercatog]

Si Users est une plage nommée

Code :

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

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

[carlux3]

Code :

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

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

Pourquoi as tu remplacé

Code :

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

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

[Pierre Fauconnier]

Salut.

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

A lire: la fonction vlookup

[mercatog]

Non, j'ai mis

Code :

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

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

qui revient à

Code :

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

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?

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

[Pierre Fauconnier]

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

Code :

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

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

[carlux3]

Voilà mon code en entier

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