XL 2016 Fonction equiv en VBA

Dranreb à dit:

Bonjour.

VB:

Sub Recherche()
   Dim X As Variant
   X = Application.Match(Range("G2"), Range("A1:A100"), 0)
   If Range("A" & Rows.Count).End(xlUp).Row > 2 Then
   If Not IsError(X) Then
      Range("G3").Value = Cells(X, 2)
      Range("G4").Value = Cells(X, 3)
      Range("G5").Value = Cells(X, 4)
      End If
   End Sub

L'instruction Set ne peut être utilisée que pour initialiser un objet, ou à la rigueur un Variant, comme devant se référer à un autre objet.

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, KTM, Calvus, Dranreb

Juste pour le fun, une autre syntaxe possible

VB:

Sub Recherche_Bis()
Dim X As Variant
With Application
  .ScreenUpdating = False
  X = .Match(Range("G2"), Range("A1:A100"), 0)
  If Range("A" & Rows.Count).End(xlUp).Row > 2 Then
  If Not IsError(X) Then
  [G3].Resize(3) = .Transpose(Cells(X, 2).Resize(, 3))
  End If
  End If
End With
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

KTM
nouménal me suffit bien 😉

Cliquez pour agrandir...

job75 à dit:

Bonsoir tout le monde,

En VBA il est souvent plus simple d'utiliser les formules Excel :

VB:

Sub Recherche()
With [G3:G5]
    .Formula = "=IFERROR(VLOOKUP(G$2,A$1:D$100,ROW()-1,0),"""")"
    .Value = .Value
End With
End Sub

A+

Cliquez pour agrandir...