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
 

job75

XLDnaute Barbatruc
Bonjour NICOALBERT, Bernard,

Par pitié évitez les Select en VBA !!!

A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas