XL 2013 correction code recherche d'un nb

[ivgu19]

Bonjour le forum,
Ma relation avec VBA étant toute récente, je vous demande de l'aide pour me débarrasser d'une erreur de compilation et tester si la valeur est trouvée.
merci d'avance à ceux qui me répondront
Cordialement

 

[dionys0s]

Re : correction code recherche d'un nb

Bonjour ivgu,
bonjour le forum

je ne sais pas si c'est parce que j'utilise un Mac, mais la PJ chez moi ne contient pas de code.
A+

 

[phlaurent55]

Re : correction code recherche d'un nb

Bonjour à tous,

avec ce code

Private Sub cmd_rechercher_Click()
' la propriété de "defaut" est forcée à true (touche entrée)
End Sub

Option Explicit
Private Sub cmdRechercher_Click()
Dim cellule
Dim flag
Sheets("etat").Select
   For Each cellule In Range("B7:B" & Range("B65535").End(xlUp).Row)
   If cellule = txtN°lot.Value * 1 Then
        flag = 1
        Exit For
    End If
    Next cellule
    If flag = 1 Then
        MsgBox ("Résultat trouvé ! en cellule " & cellule.Address)
        Range(cellule.Address).Select
        Unload Me
        Else
         MsgBox ("Aucun résultat trouvé !")
    End If
End Sub

à+
Philippe

 

[ivgu19]

Re : correction code recherche d'un nb

Merci phlaurent,
c'est tellement mieux que mon usine à gaz et ça met fin à mon cauchemar
encore merci pour cette prompt réponse
@+