Sujet Précédent Sujet Suivant

Etirer fonction recherchev sur VBA

laura_92 -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention - 20 avr. 2015 à 14:48

Bonjour,

Toute nouvelle sur VBA, je rencontre quelques difficulties ...
J'ai realizer une recherchev et je voudrais l'étirer mais ça ne marche pas.
Est ce que quelqu'un aurait une idée ?

Je vous met le code ci dessous

Sub Macro4()
Range("G2").Select
ActiveCell = "=VLOOKUP(RC[-6],Feuil2!R6C5:R26C16,7,FALSE)"
Range("G2").Select
Dim DernLigne As Long
DernLigne = Range("G" & Rows.Count).End(xlUp).Row
Range("G2").AutoFill Destination:=Range("G2:G" & DernLigne)
End Sub

Afficher la suite

A voir également:

Recherchev vba
Dépassement de capacité vba ✓ - Forum Excel
Incompatibilité de type vba ✓ - Forum Programmation
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Autofill vba ✓ - Forum Excel

2 réponses

Réponse 1 / 2

Bruce Willix Messages postés 12376 Date d'inscription Statut Contributeur Dernière intervention 2 639

Bonjour,

Le VBA c'est du code. On ne peut pas "étirer", il faut passer par des boucles, ou des IF/THEN, WHILE/DO etc...

Que veux tu faire ? Recopier ta formule de vlookup autant de fois qu'il y a d'éléments à chercher ?

laura_92

Oui.
Le code marche et me donne bien le résultat que je cherche.
Je voudrais appliquer la meme formule pour toutes les lignes en dessous. C'est ce que j'ai essayé de faire avec " Range("G2").AutoFill Destination:=Range("G2:G" & DernLigne) "
Mais apparement je ne m'y prends pas correctement ...
Merci d'avane !!

Réponse 2 / 2

Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 781

Bonjour,
Simplement :

Sub Macro4()
Dim DernLigne As Long
DernLigne = Range("G" & Rows.Count).End(xlUp).Row
Range("G2:G" & DernLigne).FormulaR1C1 = "=VLOOKUP(RC[-6],Feuil2!R6C5:R26C16,7,FALSE)"
End Sub

laura_92

ça ne fonctionne pas.
Comme précedemment, la formule s'applique correctement pour la cellule G2. Mais cette fois ci j'ai aussi un #N/A en G1

Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 781

Pour que ça fonctionne, il faut que la colonne G ne soit pas vide !
si elle est vide, elle ne peut pas servir à mesurer la dimension du tableau avec DernLigne = Range("G" & Rows.Count).End(xlUp).Row

Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 781

PS : si tu as #NA en G1 la formule à été appliquée de G1 à G2 et donc ça fonctionne !

Discussions similaires

RECHERCHEV additionne les plusieurs lignes du meme nom

[Excel] Recherche de Texte avec RechercheV

RechercheV avec une partie du texte dans une base

erreur d'execution 9, l'indice n'appartient pas à la sélection

RECHERCHEV + SOMME D

Discussions similaires

Newsletters