Coller formule jusqu'à dernière ligne VBA

Bonjour,

J'aimerais coller une formule dans la colonne A jusqu'à la dernière ligne rempli dans la colonne B.

Avec ce code, j'arrive à écrire "1" jusqu'à la dernière ligne.

Sub test()

lig_fin = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Range("A2:A" & lig_fin).Formula = "=1)"

End Sub

Mais j'aimerais mettre cette formule "=DROITE(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;15);5)" à la place du 1 : Quand j'écris la formule, il y a une erreur avec "nomfichier". Je ne vois pas où est l'erreur de synthaxe

Bonjour,

une idée non testée :

remplacée le .Formula par .Value

Bonjour,

Cela ne fonctionne pas. Apparemment c'est le ""nomfichier"" qui pose problème. Une idée ?

Bonjour,

tu n'as pas possibilité de joindre le fichier ou un bout histoire d'essayer des choses ?

Au final, j'ai simplement repris le code VBA et au lieu de mettre "=1" j'ai mis "= LE NOM DE L'ONGLET" tout simplement

Merci.