Exclure les libellés indentés de la recherche dans une liste

[papyjo]

Bonjour à tous

C'est Payjo qui rame encore...
Avec l'info de Arnaud mon instruction :
Set Position = .Find(LibelleRepere, MatchCase:=True, LookAt:=xlWhole) tient compte de la casse et du libellé complet. C'est parfait !....

Mais .....en plus, je voudrais inclure un critère supplémentaire,
à savoir : si le texte de la cellule n'est pas indenté, mais bien collé à gauche.
Le paramètre à passer est : .IndentLevel <2
Mais je ne sais où le placer dans ma macro ci dessous :

DerLign = ActiveSheet.UsedRange.Rows.Count
With Worksheets(Feuille.Index).Range("A1:A" & DerLign)
Set Position = .Find(LibelleRepere, MatchCase:=True,LookAt:=xlWhole)
If Not Position Is Nothing Then
recherche = Position.Address
End If
End With

Merci d'avance
Papyjo

PS : je me demande si .Find est la bonne solution? en tout cas elle est rapide

 

[Jon]

Bonjour

cela peut-il faire l'affaire :

sub test
dim rgsearch as range, rgbasis, cl

set rgbasis=range("$B$5:$D$13,$B$1:$B$2")

for each cl in rgbasis
if cl.indentlevel=0 then
if not rgsearch is nothing then set rgsearch=union(cl, rgsearch) else set rgsearch=cl
end if
next cl
rgsearch.interior.colorindex=35
end sub

 

[papyjo]

Désolé mais mon niveau ne me permet pas de comprendre et encore moins d'adapter ces lignes de codes.
J'ai vraiment besoin que l'on me tienne par la main
Jon, peux tu commenter un peu ?
J'apprend lentement
Merci encore
Papyjo