[résolu] .Find et "L'indice n'appartitent pas à la sélection"

  • Initiateur de la discussion Initiateur de la discussion mdidish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mdidish

XLDnaute Junior
Bonjour

Je ne comprends pas pourquoi le code ci-dessous me renvoie l’erreur "l'indice n'appartient pas à la sélection" à la ligne .Find.
Après recherche j'ai compris qu'il peut s'agir d'une erreur du nom de la feuille, mais ce n'est pas le cas ici.
Quelle peut être l'origine ?

Je mets un extrait de la feuille dans le fichier joint ; dans le fichier final, le but est d'effectuer la recherche dans une sélection de cellules en remontant à partir de la dernière cellule.
Merci d'avance

Code:
Sub Find()

Dim Dateexam As Date
Dim Trouve As Range
Dim Valeur_Cherchee As String

Set Trouve = Nothing
Valeur_Cherchee = "prélevé"
Set Trouve = Sheets("Feuil1").Range("A1:I14").Find(Valeur_Cherchee, After:=Sheets("Feuil1").Range("I14"), LookAt:=XIPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Dateexam = Left(Right(Trouve, 16), 10)

End Sub
 

Pièces jointes

Dernière édition:
Re : .Find et "L'indice n'appartitent pas à la sélection"

bonsoir,

aucun soucis d’erreur "l'indice n'appartient pas à la sélection" sur cet extrait de classeur.
Par contre une erreur sur LookAt:=XIPart à remplacer par LookAt:=xlPart

bonne suite
 
Re : .Find et "L'indice n'appartitent pas à la sélection"

Bonsoir,

Eviter les noms de macro qui sont aussi des noms de fonction.
Eviter également des recherches dans des zones fusionnées.

La macro devient :

Sub ChercherValeur()
Dim Dateexam As Date, Trouve As Range, Valeur_Cherchee As String
Set Trouve = Nothing
Valeur_Cherchee = "prélevé"
Set Trouve = Sheets("Feuil1").Range("B1:B14").Find(Valeur_Cherchee, LookAt:=xlPart)
Dateexam = Left(Right(Trouve, 16), 10)
End Sub
 
Re : .Find et "L'indice n'appartitent pas à la sélection"

Merci pour vos réponses.
Je ne sais pas pourquoi, mais en corrigeant xlPart je n'ai plus l'erreur sur le classeur d'origine !
C'est aussi noté pour les noms de macro.

En revanche je n'ai pas le choix pour les cellules fusionnées. Quel est le risque ?
 
Re : .Find et "L'indice n'appartitent pas à la sélection"

Bonjour à tous

En revanche je n'ai pas le choix pour les cellules fusionnées. Quel est le risque ?
Faire une recherche dans les archives du forum (avec la loupe en haut à droite) ou ailleurs sur le net, et tu verras que nous sommes nombreux à déconseiller l'usage des cellules fusionnées.

Tu peux remplacer la fusion par : Centre sur plusieurs colonnes*, le résultat visuel sera quasi-identique
*: Format/Cellule/Alignement/Horizontal -> ici choisir Centrer sur plusieurs colonnes.
 
Re : .Find et "L'indice n'appartitent pas à la sélection"

Effectivement j'avais vu pas mal de sujets quand je voulais adapter automatiquement l'hauteur d'une cellule fusionnée, finalement contourné.
En revanche le tableur d'origine résulte de la copie de pages web, et je ne peux pas toucher à cette copie, juste en extraire des données. J'avais essayer de mettre une première étape en collant la feuille et de défusionner toutes les cellules mais ça n'allait pas.
Bon du coup je reste comme ça, je verrais avec l'expérience si la fonction .Find me pose problème.
Merci pour vos réponses.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
971
Réponses
2
Affichages
461
Retour