Recherche vertical

Bonjour,

J’ai la macro "1" qui s'exécute très bien pour ma recherchV.

Mon problème est le suivant je souhaite appliquer ma recherchv à une cellule d'une ligne voir la macro 2, car en fonction de la cellule en colonne b j'ai des conditions pour exécuter ma recherheV

Pouvez-vous me corriger la macro 2 si c’est possible et merci d’avance.

cordialement

philippe

Sub macro1 ()
 With Range("K2:k20")

   .Formula = "=(VLOOKUP($d2,'[running liste crytal.xls]Sheet1'!$e$1:$j$200,6,FALSE))"
   .Value = .Value
  End With

 End Sub
Sub Macro2()

Dim ligne As String

ligne = 2

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

With Range("Cells(ligne, 11)")

    .Formula = "=(VLOOKUP(cells(ligne, 4),'[running liste crytal.xls]Sheet1'!$e$1:$j$200,6,FALSE))"
      .Value = .Value
  End With

  ligne = ligne + 1

Loop

End Sub

Bonsoir

Essaye :

Sub Macro2()
Dim ligne As String

ligne = 2

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

    With Cells(ligne, 11)
        .Formula = "=VLOOKUP(RC[-7],'[running liste crytal.xls]Sheet1'!R1C5:R200C10,6,FALSE)"
        .Value = .Value
    End With

ligne = ligne + 1

Loop

End Sub

Amicalement

Nad

Merci Nad

la recherchv s'exécute trés bien mais j'ai un un autre soucis elle me renvoie dans certaine cellule #NA, aurais tu la solution pour pour tester la valeur de la recherchv.

if (la rechechev.... ) = "#NA" la valeur de ma cellule = ""

merci d'avance

cordialement

Bonsoir

With Cells(ligne, 11)
            .Formula = "=IFERROR(VLOOKUP(RC[-7],'[running liste crytal.xls]Sheet1'!R1C5:R200C10,6,FALSE),"""")"

Amicalement

Nad

Bonjour Nad,

merci pour ton aide c'est ok pour moi

cordialement

philippe

Rechercher des sujets similaires à "recherche vertical"