Tirer formule par VBA

Efgé

XLDnaute Barbatruc

• 13 Janvier 2010

• #2

Re : Tirer formule par VBA

Bonjour,

Code:

Range("A2:A" & Range("B65536").End(xlUp).Row).FormulaLocal = "=RECHERCHEV(D2;'C:\asus x71q\Documents\Télégestion\En_cours\[VLog1.xls]Exportation_liste bénéficiaires'!$J$1:$K$15000;2;0)"

Cordialement

 

Pièces jointes

• test23(2).xls

  34.5 KB · Affichages: 121

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Janvier 2010

• #3

Re : Tirer formule par VBA

Bonjour Pirof
regardes et dis moi cliques sur ton bouton
a+
papou 🙂

EDIT : bonjour Efgé trop rapide pour moi !!

 

Pièces jointes

• test23-2.xls

  39.5 KB · Affichages: 170

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 13 Janvier 2010

• #4

Re : Tirer formule par VBA

Bonjour Efgé et Paritec
Merci de vos réponse claires et rapides
A+

 

Vote positif 0 Vote négatif

M

max66

Guest

• 11 Février 2011

• #5

Re : Tirer formule par VBA

Bonjour Efgé,

je viens de tomber sur ta formule et elle correspond parfaitement à ce dont j'ai besoin, à la différence que dans mon cas je souhaite recopier une formule dans la colonne B, s'il y a des infos dans la colonne A. Ça peut paraitre dingue, mais je n'arrive pas à adapter le code à mon cas.

Voici donc :

Code:

Sub Formule()

Range("B2:B" & Range("A65536").End(xlUp).Row).FormulaLocal = "=SI(ESTNA(RECHERCHEV('Table finale'!A2;Préparation!$F$2:$Q$65536;11;FAUX));"";RECHERCHEV('Table finale'!A2;Préparation!$F$2:$Q$65536;11;FAUX))"

End Sub

Je pense que c'est le concatener qui me gêne et que je n'arrive pas à utiliser correctement sous VBA...

D'avance merci pour votre aide.

Cordialement.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 13 Février 2011

• #6

Re : Tirer formule par VBA

Bonsoir Max66 le forum
le mieux et de joindre un petit fichier avec ce que tu as et ce que tu souhaites obtenir avec les explications dans le fichier et on fera les modifs
a+
Papou 😱

 

Vote positif 0 Vote négatif