Discussion :

[MustOne]

Bonjour,

J'ai parcouru la FAQ et j'ai trouvé quelques informations, mais j'ai rien de concret.

En gros, j'aimerai savoir s'il existe une méthode ou fonction qui permette de faire une recherche sur une feuille et de renvoyer le numéro de/des ligne(s) contenant l'élément de recherche.

En fait, on a une méthode qui consiste à rechercher ligne/ligne , mais cela prend un peu de temps.


Si vous avez une idée je suis preneur

[-={-_-}=-]

Salut,
Ouais bien sur ca existe.
Moi je fais comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Recherche(Byval Intitule as String, Byval Classeur as String, byval Feuille as String,byval Colone as Integer) as Long 
Set oRecherche = Workbooks(Classeur).Sheets(Feuille).Columns(Colonne).Find(Intitule)
            If oRecherche Is Nothing Then
                'MsgBox "Il n'y a pas de lignes sur la colonne " & Colonne &" contenant " & Intitule
                Recherche=0
            Else
                Recherche= oRecherche.Row
            End If
        Set oRecherche = Nothing
End Function

[fgiambelluco]

Bonjour
Sans passer par le VBA, il y à la fonction =EQUIV(..)

[MustOne]

Salut,
Ouais bien sur ca existe.
Moi je fais comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Recherche(Byval Intitule as String, Byval Classeur as String, byval Feuille as String,byval Colone as Integer) as Long 
Set oRecherche = Workbooks(Classeur).Sheets(Feuille).Columns(Colonne).Find(Intitule)
            If oRecherche Is Nothing Then
                'MsgBox "Il n'y a pas de lignes sur la colonne " & Colonne &" contenant " & Intitule
                Recherche=0
            Else
                Recherche= oRecherche.Row
            End If
        Set oRecherche = Nothing
End Function

Mince alors. je suis bete. j'avais bien trouvé la fonction FIND, mais je ne l'ai pas bien utilisée. pffff.



Merci pour vos 2 réponses

[LeForestier]

Bonjour tous

Bonjour,
En gros, j'aimerai savoir s'il existe une méthode ou fonction qui permette de faire une recherche sur une feuille et de renvoyer le numéro de/des ligne(s) contenant l'élément de recherche.

Si vous avez une idée je suis preneur

Si tu veux avoir le/les retour(s) tu peu peut-être t'inspirer de l'exemple sur ce classeur.
A+

[MustOne]

Merci, très intéressant comme exemple.

Cependant, juste une question d'ordre général.

En supposant que dans ma colonne A, j'ai :
1- S1
2- S11

et que j'éxécute:

Code :

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

Worksheets(Feuille).Columns(1).Find("S1")

j'obtiens 2 au lieu de 1?

[youn1096]

Bonjour,

dans ton FIND tu peux préciser chercher dans les valeurs et valeur entière :
par exemple :

Code :

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

1
2
Worksheets(Feuille).Columns(1).Find("S1",,lookin:=xlvalues,lookat:=xlwhole)

tu trouveras plus d'infos dans l'aide d'Excel en tapant range.find

[MustOne]

Merci à vous tous!


toutes vos informations ont été très instructives et efficaces

Résolu!