Discussion :

[Kaera]

Bonjour à toutes et à tous !

Existe-t-il une fonction qui agit comme InStr mais qui cherche la première occurence d'un mot dans une colonne ?
(donc qui donne le numéro de ligne)

Merci d'avance pour vos réponses.

Kaera*

PS: C'est pas faut d'avoir cherché et sur le net et sur le forum...

[jfontaine]

Bonjour,

Tu pourrais utiliser la méthode Find

Voir réponse de ce post
http://www.developpez.net/forums/d11...lule-contient/

[Didier Gonard]

Bonjour,

Ici donne le N° de ligne du 1er "Toto" dans la colonne 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LeNumeroEst()
Dim MaCible As Range
 
On Error GoTo errare
Set MaCible = Columns(2).Find(What:="Toto", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
'à tester avec : LookAt:=xlWhole pour voir la différence
MsgBox MaCible.Row
Set MaCible = Nothing
Exit Sub
errare:
MsgBox "Aucune occurence trouvée"
'MaCible est restée à nothing dans ce cas
End Sub

et surtout, il faut se souvenir que :

Les paramètres des arguments RechercherDans, Regarder, OrdreRecherche et RespecterNbreOctets sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucune valeur pour ces arguments lors du prochain appel à la méthode, les valeurs enregistrées sont utilisées. Le fait de définir ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments explicitement chaque fois que vous utilisez cette méthode.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Kaera]

Bonjour jfontaine et Ormonth,

Merci à vous deux pour vos propositions de solutions.

Ormonth, dans ta méthode, dans le Find(What:= puis-je utiliser * et ?, comme dans Like ?
Ex : ("*bravo?monsieur*)

Merci d'avance !

[Didier Gonard]

Bonjour jfontaine et Ormonth,

Ormonth, dans ta méthode, dans le Find(What:= puis-je utiliser * et ?, comme dans Like ?
Ex : ("*bravo?monsieur*)

Pas pareil, c'est pourquoi j'avais mis dans le code :

Code :

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

'à tester avec : LookAt:=xlWhole pour voir la différence

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Didier Gonard]

Bonjour,

donc tu peux utiliser pour chercher le Mot "Donneur" dans la colonne 2 qui comporte "Donneur d'ordre test" :

Code :

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

1
2
Set MaCible = Columns(2).Find(What:="*Don?eur*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)

ou avec une meilleure maîtrise de la syntaxe :

Code :

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

1
2
Set MaCible = Columns(2).Find(What:="Don?eur", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Kaera]

Re,

J'allais justement te répondre que j'ai essayé d'utiliser * et ? et ça a fonctionné.

Merci pour ta disponibilité et ton efficacité Ormonth.