Autres Ajouter formule dans une colonne en VBA

Cyrille18 · 10 Novembre 2023

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 · 10 Novembre 2023

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 · 10 Novembre 2023

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+

Cyrille18 · 10 Novembre 2023

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 · 11 Novembre 2023

Cyrille18 à dit:
@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.

Autres Ajouter formule dans une colonne en VBA

Cyrille18

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Cyrille18

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires