Recherchv en vba
Résolu
jc80
Messages postés
5063
Statut
Membre
-
jc80 Messages postés 5063 Statut Membre -
jc80 Messages postés 5063 Statut Membre -
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
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
2 réponses
Bonjour,
Pour rester dans le même registre, je te propose ceci :
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
