Recherche incorrecte

[Animatrix]

Bonjour à tous !

J'utilise le code suivant pour une recherche :

Private Function Recherche(i As Integer, val As Integer) As Integer

With ActiveWorkbook.Worksheets("Final").Range("N" & i & ":N3000")
    Set c = .Find(val)
    
    If c Is Nothing Then        'Renvoi du 0 si rien n'est trouvé
        Recherche = 0
        Else
        Recherche = c.Row
    End If
End With

End Function

Mais le résultat n'est jamais le bon.
Je me demande donc si il ne s'agit pas d'une erreur dans mon code.

Je l'appelle via un

Recherche(5,1)

 

[smotty]

Re : Recherche incorrecte

Bonjour à tous !

J'utilise le code suivant pour une recherche :

Private Function Recherche(i As Integer, val As Integer) As Integer

With ActiveWorkbook.Worksheets("Final").Range("N" & i & ":N3000")
    Set c = .Find(val)
    
    If c Is Nothing Then        'Renvoi du 0 si rien n'est trouvé
        Recherche = 0
        Else
        Recherche = c.Row
    End If
End With

End Function

Mais le résultat n'est jamais le bon.
Je me demande donc si il ne s'agit pas d'une erreur dans mon code.

Je l'appelle via un

Recherche(5,1)

Bonsoir à tous!!

essaie avec ça:

Set c = .Find(val,,xlvalues,xlwhole)

xlwhole est très important si tu recherche une valeur numérique car sinon il trouvera 1 dans 10 ou 100 etc...

A+

 

[pierrejean]

Re : Recherche incorrecte

bonjour Animatrix

Tester modifier:

Set c = .Find(val)

en

Set c = .Find(val,lookin:=xlvalues,lookat:=xlwhole)

Edit Salut smooty désolé pour la collision

 

[smotty]

Re : Recherche incorrecte

Bonsoir pierrejean,

On ne peut être plus synchrone!!

 

[Animatrix]

Re : Recherche incorrecte

OK merci.
Le prblème venait bien de là 🙂

Par contre, j'aimerais pouvoir appeler cette fonction pour qu'elle trouve le résultat suivant (exemple : le deuxième 1).

Est-il possible de définir un range en supprimant certains cellules ?

Savez-vous comment faire ?

 

[smotty]

Re : Recherche incorrecte

Bonsoir,

Tu peux faire une boucle avec findnext pour trouver toutes les valeur 1 par ex:

With ActiveWorkbook.Worksheets("Final").Range("N" & i & ":N3000")
Set c = .Find(val,,xlvalues,xlwhole)

If not c Is Nothing Then
adrdeb=c.address
do
--ton code ici---
set c=.findnext(c)
loop while not c is nothing and c.address<>adrdeb
End If
End With

Si j'ai bien compris, c'est là que tu veux en venir?

A+