Discussion :

[Compte temporaire]

Bonjour,

En gros j'ai un tableau 1 (colonnes de A à M) dont j'aimerais remplir la colonne N grâce à un recherchev en passant uniquement par VBA (pas par Excel car l'extraction efface le tableau avant de le remettre). Le recherchev va chercher dans tableau 2 (on peut confondre la notion de tableau et d'onglet).
On va dire que mon niveau sur VBA... pire que débutant.

Voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("tableau1").Select
 
Dim nbl As Integer
Dim i As Integer
nbl = Range("A1048576").End(xlUp).Row
 
For i = 2 To nbl
    Range("N" & i) = WorksheetFunction.VLookup(Range("A1").Value, Sheets("tableau2").Range("A1:B244"), 2, False)
Next i

Le code ne fonctionne pas bien évidemment, et j'aimerais savoir ce qui pose problème.

Je vous remercie d'avance et vous souhaite une agréable journée.

[Invité]

Bonjour,

Essayez :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Essai()
 
Dim nbl As Long
Dim i As Long
 
        With Sheets("tableau1")
            nbl = .Cells(.Rows.Count, 1).End(xlUp).Row
            For i = 2 To nbl
                .Range("N" & i) = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("tableau2").Range("A1:B244"), 2, False)
            Next i
        End With
 
End Sub

Cordialement.

[Compte temporaire]

Bonjour,

Tout d'abord, merci pour l'aide donnée. J'ai pris le temps de déchiffrer le code, étant un véritable débutant sur VBA. Je l'ai aussi ré-adaptée selon mes tables.
En revanche, lors de l'apparition du code, j'ai droit à un "Impossible de lire la propriété VLookup de la classe WorksheetFunction". Par quoi cela peut-il être causé ?

Je vous souhaite une agréable journée.

[Invité]

En revanche, lors de l'apparition du code, j'ai droit à un "Impossible de lire la propriété VLookup de la classe WorksheetFunction". Par quoi cela peut-il être causé ?

Bonjour,

Sans voir votre code, c'est difficile de deviner....

Un fichier exemple : Pièce jointe 223991

Cordialement.