find ne trouve pas les nombres Résolu

Question

Bonjour,

Je suis un peu désappointé suite au comportement de ce petit code pour sélectionner après recherche un nombre dans une colonne.

voici le code:
Private Sub BtnTrouve_Click()
Dim O As Range

Set O = Feuil17.Range("A:A").Find(Me.TxtTrouve.Value, , xlValues, xlWhole)

    If O Is Nothing Then
        MsgBox "Non trouvé"
    Else
        O.Select
    End If
Me.TxtTrouve = ""
End Sub

Si c'est du texte il le trouve, mais pas quand c'est un nombre???
Si vous avez une idée, je suis ok. Merci d'avance.

eriiic · Accepted Answer

Quand on ne sait pas faire, on ne met pas un fichier qui change l'environnement excel du helper et plante en plein milieu !
On met un fichier de travail réduit à l'essentiel, sans mot de passe et sans macro Workbook_Open

Merci pour mes autres fichiers que j'ai dû fermer brutalement en perdant les avancées.
eric

M-12 · Answer

Bonjour,

Teste ce code
Private Sub BtnTrouve_Click()
  Dim O As Range
  Set O = Feuil17.Range("A:A").Find(Me.TxtTrouve.Value, LookIn:=xlValues, Lookat:=xlWhole)
    If O Is Nothing Then
      MsgBox "Non trouvé"
    Else
     O.Select
    End If
  Me.TxtTrouve = ""
End Sub

eriiic · Answer

Bonjour,

un texbox contient du texte, d'où son nom.
Si tu dois rechercher un nombre il faut convertir et chercher CDbl(Me.TxtTrouve.Value)
eric

michel_m · Answer

Bonjour tt le monde  
 

Mettre le classeur sans données confidentielles en pièce jointe sur  https://mon-partage.frDans lien de téléchargement faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm

Find ne trouve pas les nombres

4 réponses

Discussions similaires

Newsletters