Discussion :

[pontoise]

Bonjour,
Je souhaiterais ajouter une commande "ESTNA" à la commande "VLOOKUP" pour gérer les "#NA". (voir code ci-dessous).
Pourriez vous m'aider SVP en me donnant la syntaxe exact parce que je n'ai pas réussi à le faire tout seul.

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
Sub CodProjetRec()
    Dim R As Integer
 
    For R = 2 To 200
 
    If Cells(R, 1).Value <> "" Then
        Cells(R, 2).Value = "=VLOOKUP(A" & R & ",CodProj!$A1:$B100,2,FALSE)"
 
    Else
        Cells(R, 2).Value = ""
    End If
 
 
    Next R
 
End Sub

[Gorfael]

Salut pontoise et le forum
Utilise .Formulallocal et code la formule en Français

Code :

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

Cells(R, 2).formulalocal = "=si(estna(....ta formule

A+