RechercheV dans macro

Le
Françoise
C'est encore moi !
Je ne m'en sors pas de cette macro
Tout d'abord merci Nicolas B.
pour la slection de la dernire ligne, a marche impec
MAIS
la formule de recherche me donne de drole de rsultat :
je veux dire
RECHERCHEV A2 DANS FEUILLE (DcompteD)
SI EXISTE, alors COPIE VALEUR COLONNE 3 (C)
et
RECHERCHEV A2 DANS FEUILLE (DcompteD)
SI EXISTE, alors COPIE VALEUR COLONNE 4 (D)
SINON
RECHERCHEV A2 DANS FEUILLE (DcomptePU)
SI EXISTE, alors COPIE VALEUR COLONNE 3 (C)
et
RECHERCHEV A2 DANS FEUILLE (DcomptePU)
SI EXISTE, alors COPIE VALEUR COLONNE 4 (D)
SINON RIEN
ET FAIS CELA DANS TOUTES LES FEUILLES SAUF (DcompteD)ET
(DcomptePU)

la macro que j'excute, me donne toujours le rsultat de
la colonne 3 (C) dans chaque feuille en colonne D et
#VALEUR en colonne C

Voici la macro :
Sub MAJStock()
'
Dim f As Variant

Dim D As Variant
Dim PU As Variant

For Each f In Sheets
If f.Name <> "DcompteD" And f.Name <> "DcomptePU" Then
f.Select
D = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
A2,DcompteD!A:D,3,TRUE)),"""",VLOOKUP(" & f.Name & "!
A2,DcompteD!A:D,3,TRUE))")

PU = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
A2,DcomptePU!A:D,3,TRUE)),"""",VLOOKUP(" & f.Name & "!
A2,DcomptePU!A:D,3,TRUE))")

If D <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = [C]
ElseIf PU <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = [C]
Range("D" & Range("D65536").End(xlUp).Row + 1) = [D]
End If
End If
Next
End Sub
--
Voyez vous pourquoi ???
D'avance merci ceux qui m'aideront sur ce cas.
Francoise
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jcdenton057
Le #1330803
Salut,

Ton erreur vient peut--être du fait que tu rajoute le TRUE après chaque
vlookup.
Essaye avec FALSE.
Dans ce cas, il ne cherchera pas de valeur approchée (le cas avec TRUE).

Christophe.
Publicité
Poster une réponse
Anonyme