RECHERCHEV en VBA

[JC de Lorient]

bonsoir le forum

Malgré la progression que j'ai pu faire grace à ce forum je pèche sur une fonction
je m'explique :
j'ai une feuille ou j'aimerais pourvoir mettre en VBA le fonction recherchev lorsque j'active cette feuille.
en effet lors de la saisie si la fonction recherchev doit etre remplacée par une valeur la fonction disparait (normal)
donc a l'activation de cette feuille je souhaite avoir la recherchev sur les cellules B1:B20
du genre
ligne 1 : RECHERCHEV(A1;article;3;0)
ligne 2 : RECHERCHEV(A2;article;3;0)
ligne 3 : RECHERCHEV(A3;article;3;0)
ligne 4 : RECHERCHEV(A4;article;3;0)
et ça jusqu'en ligne 20

en espérant avoir été suffisamment clair !
merci a vous et bonne soirée

JC

 

[JC de Lorient]

re

petit rectificatif
la formule que j'aimerais obtenir en VBA est
SI(A1='';'';RECHERCHEV(A1;article;3;0))

merci encore

JC

 

[Charly2]

Bonsoir JC de Lorient

Je pense que ce code devrait te convenir :

  Range('B1').FormulaLocal = '=SI(A1='''';'''';RECHERCHEV(A1;article;3;0))'
  Range('B1').AutoFill Range('B1:B20')

Tiens-nous au courant

A+

Message édité par: Charly2, à: 21/02/2006 20:44

 

[JC de Lorient]

re tout le monde

merci Charly,
il est tard je vé voir tout ça demain
et je te dirai ce que ça donne mé aucun doute ça devrait aller !!

bonne soirée

JC

 

[JC de Lorient]

Salut tout le monde
C impec Charly ça marche !!

bonne journée

JC