Recherchv en vba

Résolu/Fermé

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 15 mai 2016 à 17:52
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 16 mai 2016 à 09:41

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

A voir également:

Recherchv en vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
15 mai 2016 à 22:16

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

Réponse 2 / 2

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
16 mai 2016 à 09:41

Bonjour gbinforme

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters