Je fais un programme qui me pointe la ligne lorsque une référence que je rentre au clavier est trouvée. Lorsque je rentre une réference présente, la fonction pointe correctement la ligne. Lorsque je rentre une référence absente, le programme plante (au moment ou je recupere la ligne)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub scanner()
    Dim scan As String
    Dim ligne As Integer
    Application.EnableEvents = False
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    ligne = Range("A1:A65000").Find(scan).Row
    Rows(ligne).Select
    Application.EnableEvents = True
End Sub
Comment faire? je suppose que le problème vient du fait que l'on recupere une ligne que le programme ne trouve pas mais dans ce cas comment savoir que find n'a rien trouvé?