Recherchv en vba Résolu/Fermé

Question

Bonjour, 
J'ai trouvé ce code sur le net.
J'aimerais savoir quelles modifications apporter pour avoir le résultat sur 4 colonnes
Feuil1 les données sont de A2 à D8
sur ma feuil2 en F9 je tape ma demande et je souhaite avoir les résultats en cellules
G9  H9  I9  J9
merci pour votre aide
Cordialement


 Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("F9")) Is Nothing Then
  Target.Offset(0, 1).Formula = "=VLOOKUP(F9,Feuil1!A2:B8,2,0)"
  Target.Offset(0, 1).Value = Target.Offset(0, 1).Value
  End If
  End Sub


Configuration: Windows 7 / Firefox 46.0

gbinforme · Answer

Bonjour, 

Pour rester dans le même registre, je te propose ceci :
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F9")) Is Nothing Then
    Target.Offset(0, 1).FormulaLocal = "=RECHERCHEV($F$9;Feuil1!$A$2:$E$8;COLONNE()-6;0)"
    Target.Offset(0, 1).AutoFill Destination:=Range("G9:J9"), Type:=xlFillDefault
End If
End Sub

jc80 · Answer

Bonjour gbinforme

Merci pour ta réponse exactement ce que je souhaitais.
Bonne journée
Cordialement

Recherchv en vba

2 réponses

Discussions similaires