XL 2019 Etendre une formule à une colonne

[Eric4709]

Bonjour à tous,

J'ai mis en place une macro pour remplacer le recherche V dans mon fichier excel.

Range("K6").FormulaR1C1 = _
"=IF(R2C1=""M53"",VLOOKUP('Calcul PV'!RC[-10],FA_M53_Détails!R[12]C[-10]:R[91779]C[67],76,FALSE),VLOOKUP('Calcul PV'!RC[-10],FA_LZC_Détails!R[41]C[-10]:R[90493]C[67],76,FALSE))"

Toutefois, je souhaiterai pouvoir appliquer cette formule à toutes les cellules renseignées de la Colonne "A".
J'ai tenté avec un Filldown mais cela n'a pas été concluent.
Pourriez-vous m'aider à réaliser cela ?

Merci beaucoup pour votre aide.

 

[ChTi160]

Bonjour Eric
Bienvenue sur XLD
Sans fichier difficile de tester Lol
Mais peut être en mettant :

Range("K6:Kxxxx").FormulaR1C1 = _
"=IF(R2C1=""M53"",VLOOKUP('Calcul PV'!RC[-10],FA_M53_Détails!R[12]C[-10]:R[91779]C[67],76,FALSE),VLOOKUP('Calcul PV'!RC[-10],FA_LZC_Détails!R[41]C[-10]:R[90493]C[67],76,FALSE))"

Un petit fichier ? Lol
Bonne Fin de Journée
Jean marie

 

[sylvanu]

Bonjour Eric,
Un petit fichier test permettrait de ne pas répondre en aveugle.
Un petit essai "just for the fun" :

DL = Range("A65500").End(xlUp).Row
Range("K2:K" & DL) = _
"=IF(R2C1=""M53"",VLOOKUP('Calcul PV'!RC[-10],FA_M53_Détails!R[12]C[-10]:R[91779]C[67],76,FALSE),VLOOKUP('Calcul PV'!RC[-10],FA_LZC_Détails!R[41]C[-10]:R[90493]C[67],76,FALSE))"

En supposant que la colonne A commence en A2.

 

[Eric4709]

Merci beaucoup sylvanu,

Je viens de tester le deuxième code qui fonctionne parfaitement. Je vais pouvoir la dupliquer pour d'autres colonne.

C'est top, merci pour la réactivité

 

[ChTi160]

Re
Il fallait du Tout fait, mais sans fichier, je n'ai pas su faire ! Lol
Moi ma boule de cristal n'est plus très fiable donc .......
Bonne fin de Journée
Jean marie
Edit :
mais y'avait l'idée ! Lol

 

[Eric4709]

Je rebondis sur cette conversion avec un autre petit soucis.
J'ai écrit la fonction suivante qui fonctionne très bien :

Sub RechercheV_PB() 'applique le recherche_V
Range("L6:L" & DL) = _
"=IF(R2C1=""M53"",VLOOKUP(RC[-11],'[Internal Price Catalogue Export M53 Safran Aircraft Engine for New Spare Partd (2022 ec) v2.xlsx]Price List'!R1C1:R6982C12,12,FALSE),VLOOKUP(RC[-11],'[Safran Aircraft Engine (D2M) Catalogue Price LARZAC 2022(ec) C3.xlsx]Internal LARZAC Price Cat'!R7C2:R3505C17,16,FALSE))"
End Sub

Par contre, lorsque les classeurs dans lesquels je cherche la valeur sont fermés, toutes les valeurs ne remontent pas. Auriez-vous une idée d'un bout de code pour pallier à ce soucis ?

Merci d'avance pour vos retours toujours précieux

 

[sylvanu]

Bonjour Eric,
Si le fichier est fermé, il ne me semble pas possible d'y accéder par formules.
Par contre en VBA c'est possible avec par ex :

XL 2016 - alimenter un tableau en recopiant des cellules de fichiers fermés

bonjour à tous et meilleurs voeux. J'aimerais dans un fichier excel pouvoir recenser tous les autres fichiers (dans un état fermé) d'un repertoire en recopiant le nom de chaque fichier dans la colonne A Par la suite sur la colonne B en face de chaque nom de fichier j'aimerais que soit recopiée...

www.excel-downloads.com

ou encore

VBA - Excel : Lire dans un classeur fermé

Sous VBA, les différentes techniques de lecture de données dans un fichier Excel fermé sont assez rebutantes par leur complexité. Cependant, il existe une petite astuce permettant de contourner ceci, sans utiliser de connexion OLE DB, mais uniquement...

www.commentcamarche.net

vous avez plusieurs réponses possibles sur XLD :

Résultats de la recherche pour la requête: lire donnée fichier fermé

www.excel-downloads.com

Mais difficile d'aller plus loin puisque le test dépend directement de vos arborescences.