If associé à rechehV

bonjour

j'ai écrit le code ci dessous mais ça m'affiche en rouge ma condition et mes connaissances en vba ne me permettent pas de trouver ou est l'erreur.

Sub stock_rebobinage_disponible()

Dim ligne As Integer

ligne = 2

Do While Cells(ligne, 1).Value <> ""

If Application.WorksheetFunction.VLookup(rc1,'Feuil2'!R5C14:R200C14, 1, False) = Cells(ligne, 1).Value Then
   Cells(ligne, 41).Value = "rebob"

End If

ligne = ligne + 1
Loop

End Sub

ci joint le fichier que j'ai épuré pour l'attacher

merci de votre aide par avance

Philippe

Hello,

Ton Then est en commentaire

bonjour

merci pour ta réponse

je ne comprends pas comment mon then peut être en commentaire.

ça me dit erreur de compilation et erreur de syntaxe au niveau de 'Feuil2'!R2C14:R200C14.

cordialement

Philippe

Bonjour,

Tout simplement car tout ce qui se trouve derrière le symbole apostrophe est considéré comme un commentaire.

'feuil2' fonctionne dans une formule Excel, mais pas en VBA.

Sheets("Feuil2").Range("N5:N200")

Mais c'est sans prendre en compte le fait que rc1 ne te renvoie à absolument rien du tout.