Macro recherche verticale

[pierrof]

Bonjour

J'ai une erreur dans ma macro et n'arrive pas à la résoudre
Dans un bouton j'ai une macro qui intervient pour la feuille 1 et une macro qui intervien pour la feuille 2.
Malheureusement ma feuille 2 ne se sélectionne pas et ma formule de recherchev ne se copie pas correctement
jevous laisse le code

Merci de votre aide

A+

Private Sub CommandButton1_Click()
'Concatener Nom et prénom et recopier num dossier
For n = 1 To Range("B65536").End(xlUp).Row
Range("J" & n) = Range("C" & n) & " " & Range("D" & n)
Range("K" & n) = Range("B" & n)
Next n

'Sélectionner le feuille Exportation LogAsso
Sheets("Exportation_LogAsso").Activate




For m = 1 To Range("B65536").End(xlUp).Row
Range("A" & m) = "=recherchev(("D"&m);'Exportation_liste bénéfciaires'!$J$1:$K$15000;2;0)"
Next m

 

[pou pouille]

Re : Macro recherche verticale

bonjours,
ne faudrait-il pas utiliser la fonction evaluate ??

 

[pierrof]

Re : Macro recherche verticale

Je ne vois comment faire.

 

[tototiti2008]

Re : Macro recherche verticale

Bonjour à tous,

à tester :

Range("A" & m).Formula = [COLOR=red]"=VLOOKUP(D" & m & ",'Exportation_liste bénéfciaires'!$J$1:$K$15000,2,0)"[/COLOR]

 

[pierrof]

Re : Macro recherche verticale

Bonjour
Cela semble marcher, mais je ne comprend pas il ne me copie pas la formule sur la feuille Exportation_Logasso?

 

[pou pouille]

Re : Macro recherche verticale

re,
et en essayant de metre le nom de la feuille devant le range ?

Sheets("Exportation_Logasso").Range("A" & m).Formula = "=VLOOKUP(D" & m & ",'Exportation_liste bénéfciaires'!$J$1:$K$15000,2,0)"

?