Recherchv en vba

Résolu
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -
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


2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
1
Réponse 2 / 2
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Bonjour gbinforme

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse