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
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: