Autres Ajouter formule dans une colonne en VBA

Cyrille18

XLDnaute Nouveau
Bonjour,

Je souhaite ajouter la formule RechercheV dans une colonne à partir de la 2eme ligne et jusqu'à le bas du tableau.
- Le bas du tableau étant déterminé par la dernière cellule de la 1ere colonne
- La rechercheV est effectuée dans un autre classeur excel

C'est le principe d'écrire une formule dans une cellule et d'étirer la formule sur toute la colonne jusqu'à la dernière ligne.

Je suis novice, et je vous trouverez ci-dessous ce que j'ai écrit en VBA.
Quelqu'un pourrait s'il vous plait me proposer un meilleur codage ?

Cordialement
 

Pièces jointes

  • RechercheV.docx
    4.1 KB · Affichages: 7
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir Cyrille18, Phil69970,

Quelques remarques :

1) Vous voulez tester avec If Cells(lignes, 5) <> "" Then mais en fait il faut tester la 4ème colonne puisque la formule est entrée en colonne 5.

2) Ce test ne semble pas nécessaire, il suffit d'en mettre un avec SIERREUR dans la formule.

3) Du coup pas besoin de faire une boucle :
VB:
Sub Inserer()
Dim derlig&
derlig = Cells(Rows.Count, 1).End(xlUp).Row
Columns(5).Insert
[E1] = "Obso ?"
Range("E2:E" & derlig) = "=IFERROR(VLOOKUP(RC[-1],'[Tiger Obsolescence Data Base MASTER.xlsm]Tiger'!C30,1,FALSE),"""")"
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
313 287
Messages
2 096 836
Membres
106 758
dernier inscrit
JM9