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.

A voir également:

Find ne trouve pas les nombres
Pourquoi ma tv ne trouve pas toutes les chaînes - Guide
Ou se trouve la corbeille de whatsapp - Guide
Code binaire des nombres - Guide
Ou se trouve le presse papier - Guide
Ava find - Télécharger - Divers Utilitaires

4 réponses

Réponse 1 / 4

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 255
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

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.

Réponse 2 / 4

M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
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

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.

Réponse 3 / 4

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 255
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

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

Réponse 4 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
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

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!!!!

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

linux : find & grep

Windows ne trouve pas le Contrat de License Microsoft.

snapchat désolé nous n'avons pas trouve