Microsoft 365 Recherche qui doit commencer à la ligne 6

[Usine à gaz]

Bonjour à toutes et à tous,

Il y a déjà longtemps, grâce à la participation de plusieurs membres du Forum (que je remercie encore au passage), nous avons établi une super recherche qui fonctionne parfaitement.

Je voudrais y apporter une condition supplémentaire :
Ne commencer la recherche qu'à partir de la ligne 6
Dans le fichier joint si je recherche "33222222222", la recherche ne doit rien trouver car devant commencer à partir de la ligne 6.

Je n'ai pas trouvé comment intégrer cette condition.
Pourriez-vous m'aider encore une fois ?

Je joins un fichier test et je continue à tenter de le faire.
Un grand merci à toutes et à tous,
Bonne fin de dimanche,
lionel

 

[mapomme]

Bonsoir @Usine à gaz ,

Utiliser :

With Intersect(Sheets(K).UsedRange, Sheets(K).Rows("6:" & Rows.Count))

à la place de :

With Sheets(K).UsedRange

 

[Usine à gaz]

Bonsoir laurent950,
Merci pour le retour.
Désolé, ça ne fonctionne pas

 

[Usine à gaz]

Bonsoir @Usine à gaz ,

Utiliser :

With Intersect(Sheets(K).UsedRange, Sheets(K).Rows("6:" & Rows.Count))

à la place de :

With Sheets(K).UsedRange

Bonjour Mapomme,
Nickel ça fonctionne,
Je te remercie
lionel

 

[Usine à gaz]

Bonjour @Usine à gaz

Solution : Modifier juste cette ligne dans votre code
For q = q To ActiveSheet.Index + Sheets.Count - 1
par cette Ligne
For q = q To ActiveSheet.Index + Sheets.Count + 1

Merci Laurent d'avoir été là
lionel

 

[Usine à gaz]

Re Bonsoir à toutes et à tous,
Je joins le fichier modifié qui fonctionne,
Amicalement,
lionel