P
papyjo
Guest
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
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