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
...
FirstOccur("BBB", 2) me renvoie la valeur 4. Exact.
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
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
Partager