Discussion :

[VBBBA]

Bonjour à tous

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

J'utilise cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

chez moi ça marche comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[VBBBA]

Je n'ai toujours pas résolu mon pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 To lastline("A")

[wilfried_42]

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.

[VBBBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.