Bonjour,

Je suis en train de programmer en VBA, j'ai un problème avec la methode Find, disons que mon problème serait + du a une erreur de type mais j'arrive pas a le résoudre

Voila mon code commenté :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim Cellule As Range, Recherche As Range, Derniere_cellule As Range, nombre As Integer

Set Recherche = ThisWorkbook.Worksheets("Feuil1").Range("A3:A60000") 'selection des cellules A3 a A60000
Set Derniere_cellule_non_vide = Recherche.Range("A3").End(xlDown) 'Recherche de la derniere cellule non vide dans la colonne A en debutant a la ligne 3
Set Cellule = Recherche.Find(nombre, Recherche.Range("A3").End(xlDown), xlValues, xlWhole, xlByColumns, xlPrevious) 'Recherche du "nombre" en commencant par la derniere cellule non vide et en remontant vers le haut
Je sais que l'erreur provient de Recherche.Range("A3").End(xlDown) dans la methode Find et plus exactement du 2eme élément AFTER (As Range), la méthode End renvoi également un Range donc je ne vois pas pourquoi ca bug

Merci pour votre aide