détection d'une cellule avec la méthode Find en VBA

[SkyCorp]

Bonjour à tous,

J'utilise actuellement ce code :

Set zoneRecherche = Range(debcat(nbCat), fincat(nbCat)).Offset(1, 0)
With zoneRecherche
    Set DonneeCherchee = .Find(tab_sscat(k), LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext)
End With
For l = 1 To (fincat(nbCat).Column - debcat(nbCat).Column + 1)
    If Not DonneeCherchee Is Nothing Then
        Debug.Print "DonneeCherchee est en " & DonneeCherchee.Address
        ...

Quand mes données de ma zone de recherche sont différentes, pas de soucis.
Mais lorsque j'ai 2 valeurs identiques, mon code sélectionne la 2ème valeur. Or je dois sélectionner la 1ère valeur.
J'ai essayé avec SearchDirection:=xlPrevious, au cas où je n'aurai pas bien compris comment ça fonctionne, mais ça ne change rien.

Quelle est la bonne syntaxe de la méthode Find pour sélectionner la 1ère valeur ?

Merci d'avance pour votre aide

 

[SkyCorp]

Re : détection d'une cellule avec la méthode Find en VBA

Est-ce possible de l'envoyer plutôt par email ?

 

[néné06]

Re : détection d'une cellule avec la méthode Find en VBA

Re,

Pas de problème !