VBA D'une formule Excel SVP
hassen2050 -  
SVP j'ai besoin du code VBA de cette formule Excel

Si ( Est erreur( rechercheV(C3096;S:T;2;Faux));'' '';RechercheV(C3096;S:T;2;faux))

C'est Hyper Urgent SVP

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Morgothal
    Bonjour,

    Sub formule()

    ActiveCell.Formula = "=IF(ISERR(VLOOKUP(R[3092]C[2],C[18]:C[19],2,FALSE)),"""",VLOOKUP(R[3092]C[2],C[18]:C[19],2,FALSE))"
    Range("A4").Select

    End Sub
    1. superip79
      ou alors :

      With Worksheets("tafeuille")
      Set found = .Columns("S").Find("C3096", LookIn:=xlValues)
      If Not found Is Nothing Then
      .Range("lacelluleàremplir").Value = .Range("T" & found.Row).Value
      End If
      End With