Find ne trouve pas les nombres [Résolu]

Signaler
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020
-
ngio1301
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020
-
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.

4 réponses

Messages postés
23169
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 janvier 2020
5839
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

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
ngio1301
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020

Bonjour,
Je suis désolé que vous ayez rencontré ce souci. Toutefois, je n'ai aucuns problèmes avec ce classeur quelque soit l'endroit ou je l'utilise. Vous avez raison j'aurais du éclater le fichier et l'envoyer dry. je vous prie de m'excuser pour la gène occasionnée. Pour ce qui est du problème ce n'était juste qu'une question de format. merci d'avoir prêté attention.
Messages postés
640
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
7 janvier 2020
97
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
ngio1301
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020

salut
je l'ai essayé déjà mais rien non plus.
Messages postés
23169
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 janvier 2020
5839
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
ngio1301
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020

ah ok j'essai ça!!!

j'ai essayé, rien de changé. Même avec inputbox c'est pareil
Messages postés
16027
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 janvier 2020
2848
Bonjour tt le monde


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


ngio1301
Messages postés
16
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
7 janvier 2020

bonjour
le lien est ici: https://mon-partage.fr/f/vanrkFqT/

Pour accéder au fichier
CP=6012020A
MDP=aide
merci d'avance.

losrque vous serez sur la feuille suivi rames vous faites ajouter puis entrez un nombre.
Ensuite sous la cellule PROG vous pourrez enter une donnée en menu déroulant.
Si celle ci est un nombre en tapant la recherche, la rp sera non trouvé, mais si c'est du texte il le sélectionnera.
Voilà mon souci!!!!