Recherchv en vba
Résolu
jc80
Messages postés
5063
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 5063 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
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
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
- Autofill vba ✓ - Forum Excel
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
