Bonjour,

Je reviens vers vous pour adapter une ligne de code formidable qui permet d'intégrer dans une colonne n'importe quelle formule (ici, recherche V sur colonne B) jusqu'à la dernière cellule de la colonne d'une base de données.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("B5:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-1],STRUCT,6,FALSE)"
Mon problème est que je voudrais faire la même chose mais sur la 1ere ligne de ma base de donnée. l'objectif étant d'étirer ma formule de la cellule B1 à la dernière cellule de la ligne 1 de la base de données. Je tente d'adapter le code mais ça bug systématiquement (remplacement de: End(x1up) par End(x1to left), de Row par Column, de "B5:B" par "B1:1"..........

Si quelqu'un avait une idée pour adapter ce code ?...

M75