Discussion :

[escalopepane]

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é?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
SerchXls = 0
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function
 
 
Sub scanner()
    Dim scan As String
    Dim ligne As Integer
    Application.EnableEvents = False
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    If Trim("" & scan) <> "" Then
    ligne = SerchXls(Columns("A:A"), Range("A1"), scan, True)
    If ligne > 0 Then Rows(ligne).Select Else MsgBox "Pas trouvé", vbExclamation
    Application.EnableEvents = True
    End If
End Sub

[escalopepane]

Wow la réponse était rapide, merci beaucoup.

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub scanner()
    Dim scan As String
    Dim ligne As Integer
    Application.EnableEvents = False
    scan = InputBox("saisir reference", "scan reference", "entrer reference")
    Set result = Range("A1:A65000").Find(scan)
    If Not result Is Nothing Then result.EntireRow.Select Else MsgBox "Inconnu"
    Application.EnableEvents = True
End Sub

JB