Autres Ajouter formule dans une colonne en VBA

[Cyrille18]

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

 

[Phil69970]

Bonjour @Cyrille18 et bienvenu sur XLD

Quelques remarques
1) J'ai pas vu ton fichier

2) Mettre un fichier word pour un problème excel il y a pas un bug !!! 🤔

 

[job75]

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 :

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+

 

[Cyrille18]

Bonsoir Job75,

Je dois dire que ton code est top. Les résultats de la formule rechercheV s'affichent uniquement dans les cellules qui vont bien. Il n'y a pas de #N/A.
Je te remercie pour ce code.

@Phil69970 Oui effectivement j'aurai dû utiliser un fichier texte au lieu d'un fichier word.

 

[job75]

@Phil69970 Oui effectivement j'aurai dû utiliser un fichier texte au lieu d'un fichier word.

Bah sur Excel les codes VBA se mettent dans des fichiers d'extension .xlsm.

Bonne nuit.