Probleme entre vlookup et erreur 1004

bonjour,

je débute en VBA et je rencontre un souci.

Je souhaiterais insérer un code VBA pour affecter dans un tableau excel la valeur d'une formule recherchev plutôt que la formule.

Voici le code

 Sub Fomule()
Dim i As Integer
Dim Dernligne As String

Sheets("TCD").Activate
Dernligne = Range("z" & Rows.Count).End(xlUp).Row

For i = 4 To Dernligne

    Range("z" & i) = Application.WorksheetFunction.VLookup(Right("a" & i, 5), Sheets("Liste_activite").Range("A:b"), 2, False).Value
Next i

End Sub

le problème c'est que cela m'affiche un message d'erreur 1004 (alors que je devrai avoir une valeur, le résultat de ma recherche existe bien.....

Merci de votre aide

Bonjour,

Essaie avec

Range("z" & i) = Application.WorksheetFunction.VLookup(Right(Range("A" & i).Value, 5), Sheets("Liste_activite").Range("A:B"), 2, False)

A+

Merci Frangy,

j'ai essayé, mais ça ne marche pas mieux.

J'ai tenté avec :

Range("z" & i).Value = Application.WorksheetFunction.VLookup(Right("a" & i, 5), Sheets("Liste_activite").Range("A:b"), 2, False)

mais c'est pas mieux.

ce qui est curieux, c'est que lorsque je débogue, j'ai bien la valeur recherchée qui ressort en info bulle, mais toujours mon erreur 1004...

J'espère qu'une bonne âme saura m'aider

Frangy,

je rectifie, cela marche partiellement. j'ai une erreur 2042 cette fois-ci., dûe à un #n/a cette fois-ci.

Je dois adapter ma syntaxe, mais je pense être sur la bonne piste.

Merci pour ton aide.

Bonsoir,

Essayer :

Sub Fomule()
    Dim i As Integer
    Dim Dernligne As String
    With Sheets("TCD")
        Dernligne = .Range("Z" & .Rows.Count).End(xlUp).Row
        On Error Resume Next
        For i = 4 To Dernligne
            .Range("Z" & i) = WorksheetFunction.VLookup(Right(.Range("A" & i), 5), _
             Sheets("Liste_activite").Range("A:B"), 2, False)
            If Err.Number <> 0 Then
                .Range("Z" & i) = ""
                Err.Clear
            End If
        Next i
    End With
End Sub

Cordialement.

Merci beaucoup.... nickel !!!