Probleme avec Fonction equiv()

Bonjour à tous

Dans une macro j'essaye de voir si une valeur se trouve dans une colonne

J'utilise cette ligne

Code:

---

1 2	EQUIVAL = Application.WorksheetFunction.Match(Num_CF, Selection.range("V:V"), 1)

---

Mon but est de faire cette verification le plus rapidement possible

Une boucle fait l'affaire mais n'est pas optimale en Temps surtout lorsque l'on doit faire cette verif + de 200 fois sur une feuille de 7000 ligne!!!


Ma ligne ne beugue pas mais ne trouve pas la valeur alors que parfois c'est le cas . Est ce un pb de format ?

Merci de vos reponses

chez moi ça marche comme ça

Code:

---

1 2 3 4 5 6

Sub test() Num_CF = 2 equival = Application.WorksheetFunction.Match(Num_CF, Range("V:V"), 1) MsgBox equival End Sub

---

voici ce que dit l'aide, je me suis contenté d'enlever le selection qui m'avais l'air de trop

Citation:

---

Envoyé par la touche F1

Si vous utilisez une fonction de feuille de calcul qui requiert une référence de plage comme argument, vous devez indiquer un objet Range. Par exemple, vous pouvez utiliser la fonction de feuille de calcul Match pour rechercher une plage de cellules. Dans une cellule de feuille de calcul, vous devez taper une formule telle que =MATCH(9,A1:A10,0). En revanche, dans une procédure Visual Basic, vous spécifiez un objet Range pour obtenir le même résultat.

Code:

---

1 2 3 4

Sub FindFirst() myVar = Application.WorksheetFunction _ .Match(9, Worksheets(1).Range("A1:A10"), 0) MsgBox myVar End Sub

---

---

mais j'ai pas vraiment fait le lien; et surement pas dans les même conditions que toi. tas plus qu'a tester

Je n'ai toujours pas résolu mon pb

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

For COMPTEUR = 2 To lastline("A")   Num_CF = Workbooks(GaG_FIC).Sheets(1).Cells(COMPTEUR, 14).Value   Windows(CIB_FIC).Activate   n = Application.WorksheetFunction.Match(Num_CF, Range("V:V"), 0)   If n <> 0 Then   i = COMPTEUR Rows(i & ":" & i).Select 'pour debuguade TRANSFERT i, GaG_FIC, CIB_FIC   Else End If Next

---

D'ou peut venir le beug ? du format des valeurs?

D'un select qui manque?

peux pas te dire. déja chez moi là ça ça passe pas

Code:

---

1 2	To lastline("A")

---

Bonjour à tous

Une question idiote en passant

Sais tu quel classeur est actif au moment de ce traitement
Parceque tu ne precise pas dans ton Range("V:V") sur quel classeur tu fais ta recherche

Si c'est bon, fais un point d'arret et verifie tes valeurs en passant le pointeur de la souris sur les variables

Bonne soirée

ps: Lastline("A"), comme son nom et sa forme l'indique, doi etre une fonction perso qui renvoie le dernier numero de ligne de la colonne entre "" soit A.

Salut à tous

En effet wilfried t'a vu juste. Pour que ça marche un temps soit peu faut au moins lui déclarer où on veut faire notre rechreche.

Revoilà mes nouvelles lignes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

For COMPTEUR = 2 To lastline("A")   Num_CF = Workbooks(GaG_FIC).Sheets(1).Cells(COMPTEUR, 14).Value   a.Activate 'On Error Resume Next n = a.Range("V:V").Find(Num_CF)   If n = 0 Then   i = COMPTEUR Rows(i & ":" & i).Select 'pour debuguade TRANSFERT i, GaG_FIC, CIB_FIC   Else End If   n = 0 Next

---

Pour l'instant ça marche, mais je doute de son efficacité dans le cas où les formats entre les deux classeurs ne sont pas les mêmes.