XL 2016 Fonction equiv en VBA

[KTM]

Salut chers tous
Je voudrais élaborer une macro pour lancer une recherche dans une base
j'ai fais ceci mais apparemment c'est mal élaboré ( Je suis apprenti VBA)
Pouvez vous me donner un coup de pouce ?
NB : (On peut le faire avec la combinaison index Equiv mais je voudrais essayé VBA)

Sub recherche()
Dim x As Integer
Set x = Application.Match(Range("G2"), Range("A1:A100"), 0)
If Range("A" & Rows.Count).End(xlUp).Row > 2 Then
If Not x Is Nothing Then
Range("G3").Value = Cells(x, 2)
Range("G4").Value = Cells(x, 3)
Range("G5").Value = Cells(x, 4)
End If
End If
End Sub

 

[Calvus]

Bonjour,

A vérifier car je n'ai pas ouvert le classeur.

Set x = Application.Index(Range("A1:A100"), Application.Match(Range("G2"), Range("A1:A100"), 0))

A+

 

[Dranreb]

Bonjour.

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.

 

[KTM]

J'obtiens une erreur de compilation
on dirait que ma variable x est mal definie


Set x = Application.Index(Range("A1:A100"), Application.Match(Range("G2"), Range("A1:A100"), 0))

 

[Dranreb]

Application.Match ne renvoie de toute façon pas un objet, mais peut renvoyer une valeur d'erreur qui ne peut s'affecter à un Integer.

 

[KTM]

Bonjour.

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.

Grand merci c'est très Exact

 

[Staple1600]

Bonsoir le fil, KTM, Calvus, Dranreb

Juste pour le fun, une autre syntaxe possible

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

EDITION:
Après la lecture du dernier message celui de job75 (que je salue au passage)
On peut simplifier cette ligne comme ceci
[G3:G5]=.Transpose(Cells(X, 2).Resize(, 3))

 

[KTM]

Bonsoir le fil, KTM, Calvus, Dranreb

Juste pour le fun, une autre syntaxe possible

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

Phenomenal Staple 1600

 

[Staple1600]

Re

KTM
nouménal me suffit bien

 

[KTM]

Re

KTM
nouménal me suffit bien

OK Mais Merci pour ton aide

 

[Staple1600]

Re

De rien, it's my pleasure

 

[job75]

Bonsoir tout le monde,

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

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

A+

 

[KTM]

Bonsoir tout le monde,

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

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

A+

Pas mal Merci