Find ne trouve pas les nombres

Résolu/Fermé
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 6 janv. 2020 à 05:54
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 7 janv. 2020 à 15:18
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

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 6 janv. 2020 à 16:40
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

2
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022
7 janv. 2020 à 15:18
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.
0
M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
6 janv. 2020 à 06:29
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
0
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022
6 janv. 2020 à 07:04
salut
je l'ai essayé déjà mais rien non plus.
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
6 janv. 2020 à 07:02
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
0
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022
Modifié le 6 janv. 2020 à 07:14
ah ok j'essai ça!!!

j'ai essayé, rien de changé. Même avec inputbox c'est pareil
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 janv. 2020 à 09:32
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


0
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022
Modifié le 6 janv. 2020 à 15:38
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!!!!
0