Modifier Formule en Macro

NICOALBERT

XLDnaute Occasionnel
Bonjour le Forum ,

Je vient vers vous car je bloque pour modifier une Formule en macro .

Dans un dossier j'ai 2 feuilles : 1 avec les Références "Réf_Equipe" et la deuxième ou je cherche à récupérer les informations de la colonne en Fonction de la Valeur en A1 de la feuille "Recup" .

Cela marche bien avec la Formule =RECHERCHEH($A$1;Réf_Equipe!$A$1:$AD$1000;2;FAUX)

Ce que je cherche à faire c'est tirer la formule en A2 vers le bas temps qu'il y a des données à récupérer de la colonne.

L'autre soucis est que lorsque je tire la formule vers le bas , les informations reste identique puisqu'il faut modifier le "2" dans la Formule [=RECHERCHEH($A$1;Réf_Equipe!$A$1:$AD$1000;2;FAUX)] et l'incrémenter de 1 à chaque fois :(

Est ce que quelqu'un à une petite idée ?

Cdlt Nicoalbert .
 

Fichiers joints

NICOALBERT

XLDnaute Occasionnel
Bonjour Dranreb ,

Super ça marche Niquel !!

En reprenant la macro de Job75 et la modifiant ça fonctionne très bien (si ça peut servir à quelqu'un)

Sub RefEquipe()

With Sheets("Recup") 'Récup donnéees colonnes
.[A2].FormulaArray = "=HLOOKUP(R1C1,Réf_Equipe!R1C1:R1000C30,ROW(),FALSE)" 'Formule Recherche de référence
.[A2].Copy .[A3:A1000]
.[A2:A1000] = .[A2:A1000].Value 'supprime les formules
End With

Columns("A:A").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

Cdlt Nicoalbert
 

Discussions similaires


Haut Bas