Discussion :

[defluc]

Bonjour à tous,

J'ai une feuille dont la 2ème colonne contient des valeurs dont je recherche la première occurrence.
AAA
AAA
AAA
BBB
BBB
CCC
...

Code :

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

1
2
3
4
5
6
 
Function FirstOccur(SearchStr as String, ColNo as Integer) as Long 
Dim Rang as Range
  Set Rang = ActiveSheet.Columns(ColNo)
  FirstOccur  = Rang.Find(SearchStr).Row
end Function

FirstOccur("BBB", 2) me renvoie la valeur 4. Exact.
Mais FirstOccur("AAA", 2) me renvoie la valeur 2. Erreur

La valeur en première ligne est ignorée.

Le code donné est un extrait. En réalité elle me renvoie la première et la dernière occurrence avec des Findnext utilisée pour tester une valeur dans une deuxième colonne.
Avec "BBB", les valeurs sont 4 et 5. Exact.
Avec "AAA", les valeurs sont 2 et 1. Erreur.

J'ai essayé de paramétrer find avec SearchDirection mais cela devient tordu comme solution.

Quelqu'un pourrait-il m'éclairer sur cette anomalie ?

Merci d'avance

[Daniel.C]

Bonjour,

Il faut préciser la cellule de départ de la recherche :

Code :

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

1
2
3
4
5
Function FirstOccur(SearchStr As String, ColNo As Integer) As Long
Dim Rang As Range
  Set Rang = ActiveSheet.Columns(ColNo)
  FirstOccur = Rang.Find(SearchStr, Cells(Rows.Count, ColNo)).Row
End Function

[defluc]

Bonjour Daniel

J'avais essayé avec row = 1 parce que cela me semblait logique.
Mais cela ne marchait pas alors que Rows.Count fonctionne effectivement.

Merci à toi

[Daniel.C]

Bonjour defluc,

Oui, parce que la recherche commence après la cellule indiquée. Si tu indiques la ligne 1, elle commence en ligne 2. Si tu indique la dernière, il commence à la première ligne.