Recherche par Find

fhoest

XLDnaute Accro

• 27 Septembre 2010

• #2

Re : Recherche par Find

Bonjour,
voici une facon de faire:

Code:

Sub numligne()
Dim c As Range
dim deb as long
 For Each c In Sheets("tempe1").Range("a2:a65000")
 If c <> nom_recherche Then GoTo ici
 Next
ici:
deb=c.Row

End Sub

🙂
A +

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 27 Septembre 2010

• #3

Re : Recherche par Find

Bonjour fhoest

Y a t-il un autre moyen, que d'utiliser la méthode For Each qui teste chaque cellule et ralentie la recherche ?

J'ai effectué des tests et j'ai remarqué que la methode Find étais l'une des plus rapides.

Je pensais a un code qui ne fonctionne pas dans le style:


Set Ftn = Sheets("tempe1").Range("A2:A65535").Find ( " <> nom_recherche " , LookIn:=xlValues, lookat:=xlWhole)
If Not Ftn Is Nothing Then
fin = (X.Row)
End If

Merci!!!

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 27 Septembre 2010

• #4

Re : Recherche par Find

Oui je suis d'accord avec toi ,mais je ne sais pas comment dire à vba de rechercher une valeur qui est différente d'une autre avec la méthode .find
et combien de temps met la macro que je t'ai donner ? es ce vraiment si lent que cela.
A bientôt
envoi un bout de fichier pour la methode find je vais essayer de trouver une parade.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 27 Septembre 2010

• #5

Re : Recherche par Find

Bonjour,

De ce que je comprends, tu as en colonne 1 des noms....

Ces noms sont triés par ordre alphabétique, et en cherchant "Gaston", qui est présent sur 48 lignes, à compter de la 57 ème ligne, tu voudrais obtenir la ligne 105, soit la première différente de "Gaston"?

C'est cela?

Si oui, essaie ainsi :

Code:

Dim Lig As Long
Lig = Application.Match("Gaston", Columns(1), 0) + Application.CountIf(Columns(1), "Gaston")

Si non, un petit fichier exemple, comme le souligne Fhoest (PS, merci pour ton MP 🙂), ne serait pas de trop

Bonne journée

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 27 Septembre 2010

• #6

Re : Recherche par Find

Bonjour bhbd,fhoest

c'est exactement ce que je cherchais, avoir en deb le premier nom cherchés et en fin ,le numéro de ligne du nom suivant.
donc fin-deb-1 = nb de répétitions du nom.

Merci à tous!!

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 27 Septembre 2010

• #7

Re : Recherche par Find

Re-,


😀😀😀😀

Bonjour bhbd,fhoest

Cliquez pour agrandir...

vi, je sais, c'est pas facile, 4 consonnes qui se suivent...

Mais de là à me prendre pour une Bande Dessinée.....😀

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 27 Septembre 2010

• #8

Re : Recherche par Find

Excuse moi bhbh d'avoir deforme ton psedo , je dois vraiment aller voir l'ophtalmo!!

A+

 

Vote positif 0 Vote négatif