Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Find et format

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cathodique

XLDnaute Barbatruc
Bonsoir,

Je suis vraiment perdu. J'utilise un masque de saisie de @patricktoulon (que je salue).
Je voudrais faire une recherche de la donnée saisie dans une texte dans une colonne d'un tableau structuré.
J'ai essayé une fonction utilisant Find et FindNext mais rien n'y fait. La fonction ne trouve rien.
Je me suis égaré et n'arrive plus à avancer.
Merci pour votre coup de main. Vous comprendrez mieux en ouvrant le fichier.

Bonne soirée
 

Pièces jointes

Solution
Re,
J'ai pris le problème à l'envers. 😉
Comme votre base de données contient des code 160, et que votre textbox contient des espaces, alors il suffit de remplacer les espaces par des espaces insécables avec :
VB: 
NoIdanimal = Replace(NoIdanimal, " ", Chr(160))
Mais j'ai gardé la recherche TrouverIndex modifié.

NB: Mais si vous faites d'autres calculs sur cette BDD, n'oubliez pas la présence des codes 160.
Trier par date Trier par votes
Bonjour Cathodique,
Dans vos IdAnimal, les espaces en fait ne sont pas des espaces mais des espaces insécables. ( code 501 )
Je les ai remplacés avec la macro ReplaceCHR160. Ils deviennent un nombre, le problème est que votre textbox donne un texte et non un nombre.
Donc j'ai modifié la macro TrouverIndex pour comparer un texte à un texte.
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
J'ai pris le problème à l'envers. 😉
Comme votre base de données contient des code 160, et que votre textbox contient des espaces, alors il suffit de remplacer les espaces par des espaces insécables avec :
VB: 
NoIdanimal = Replace(NoIdanimal, " ", Chr(160))
Mais j'ai gardé la recherche TrouverIndex modifié.

NB: Mais si vous faites d'autres calculs sur cette BDD, n'oubliez pas la présence des codes 160.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonsoir à tous 😉,

Comme @sylvanu, j'avais trouvé que vos pseudo-espaces sont des caractères de code ASCII 160.
Mais j'ai choisi une autre option : Dès la première recherche, je remplace tous les caractères de code 160 par de "vrais" espaces de code 32 au sein du TS BD. Ainsi la base est nettoyée de ces espaces insécables.

Le code a été simplifié. Il se trouve entièrement dans le code du bouton "Valider" et il est commenté :
VB: 
Private Sub CommandButton1_Click()
Dim Id, col&, indexTS&, Ligne&
   Id = TxtNoId      ' Id de l'animal à rechercher
   If Not Id Like "### ### ### ### ###" Then    ' vérification du bon format de l'Id
      ' le format n'est pas bon -> information et sortie de la procédure
      MsgBox "L'Id de l'animal n'a pas le bon format (5 groupes de 3 chiffres)", vbCritical
      Exit Sub
   End If
   ' recherche de la colonne des IdAnimal au sein de la base (tableau structuré "BD")
   ' la colonne est le numéro absolu de la colonne (colonne de la feuille "BD")
   col = Application.Match("IdAnimal", Worksheets("BD").ListObjects(1).Range.Rows(1).EntireRow, 0)
   ' on remplace les éventuels espaces insécables (code 160) par de vrai espaces (code32)
   Worksheets("BD").Columns(col).Replace what:=Chr(160), replacement:=Chr(32), lookat:=xlPart
   ' on recherche l'Id de l'animal dans la colonne col - si pas trouvé on renvoie 0
   Ligne = Application.IfError(Application.Match(Id, Worksheets("BD").Columns(col), 0), 0)
   If Ligne = 0 Then    ' l'id est absent
      MsgBox "Aucune Occurence trouvée"
   Else                 ' l'id est présent
      ' on retire du N° de la ligne (absolu) - le n° de ligne (absolu) du TS BD pour obtenir le n° d'indexTS
      indexTS = Ligne - Worksheets("BD").ListObjects(1).Range.Row
      MsgBox "Index = " & indexTS, vbInformation
   End If
   ' à ce stade l'index de l'ID est >>>>> indexTS
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
cathodique à dit:
Bonjour @sylvanu , @mapomme ,

je viens juste d'allumer ma machine. Je vous remercie pour votre aide .
Je reviendrai un peu plus tard après avoir testé.

Encore merci à vous. Je vous souhaite une excellente journée.
Cliquez pour agrandir...
Je vous dois bien ça, un retour avant mon petit déjeuner.

mapomme à dit:
Comme @sylvanu, j'avais trouvé que vos pseudo-espaces sont des caractères de code ASCII 160.
Cliquez pour agrandir...
Merci de me dire comment avez-vous fait pour trouver ce fameux code ASCII 160.
J'ai failli m'arracher les cheveux. J'ai torturé ma touche F8 en vain.

Je privilégie la seconde solution de @sylvanu car je ne dois pas toucher au données du Ts.

Encore merci.

Bonne journée.
 
Vote positif 0 Vote négatif
Bonjour,
Comme j'ai supposé que la bddd était importée j'ai préféré ne pas y toucher.

Merci de me dire comment avez-vous fait pour trouver ce fameux code ASCII 160.
Cliquez pour agrandir...
Quant au fameux code 160, regardez ceci 🙂

Discussion 'Analyse chaine de caractères'

sylvanu a soumis une nouvelle ressource:

Analyse chaine de caractères - Petit utilitaire d'analyse en ASCII de chaine de caractères

 
Dernière édition:
Vote positif 0 Vote négatif
cathodique à dit:
Merci de me dire comment avez-vous fait pour trouver ce fameux code ASCII 160.
Cliquez pour agrandir...
C'est un grand classique. Quand des fonctions texte de recherche n'aboutissent pas alors qu'on sait que la valeur recherchée est présente, on s'oriente vers la présence de ce caractère de code ASCII 160. Ca se produit assez fréquemment quand on importe des données depuis un site Web.

cathodique à dit:
Je privilégie la seconde solution de @sylvanu car je ne dois pas toucher au données du Ts.
Cliquez pour agrandir...
Je pense que c'est dommage. Car cela ne peut que vous poser des problèmes par la suite. Même une simple recherche au niveau Excel (Ctrl+H) à la mimine échouera. A moins de bien saisir les espaces insécables via le clavier.
 
Dernière édition:
Vote positif 0 Vote négatif
Re @cathodique,

Voici la version v1a. Elle est identique à la version v1 mais elle ne modifie pas le tableau structuré BD.
VB: 
Private Sub CommandButton1_Click()
Dim Id32, Id160, col&, indexTS&, Ligne&
   Id32 = Application.Trim(TxtNoId)
   If Not Id32 Like "### ### ### ### ###" Then       ' vérification du bon format de l'Id
      ' le format n'est pas bon -> information et sortie de la procédure
      MsgBox "L'Id de l'animal n'a pas le bon format (5 groupes de 3 chiffres)", vbCritical
      Exit Sub
   End If
   Id160 = Replace(Id32, Chr(32), Chr(160))     ' Id de l'animal à rechercher avec espaces insécables
   ' recherche de la colonne des IdAnimal au sein de la base (tableau structuré "BD")
   ' la colonne est le numéro absolu de la colonne (colonne de la feuille "BD")
   col = Application.Match("IdAnimal", Worksheets("BD").ListObjects(1).Range.Rows(1).EntireRow, 0)
   ' on recherche l'Id de l'animal dans la colonne col - si pas trouvé alors on renvoie 0
   Ligne = Application.IfError(Application.Match(Id160, Worksheets("BD").Columns(col), 0), 0)
   If Ligne = 0 Then    ' l'id est absent
      MsgBox "Aucune Occurence trouvée"
   Else                 ' l'id est présent
      ' on retire du N° de la ligne (absolu) - le n° de ligne (absolu) du TS BD (calcul index)
      indexTS = Ligne - Worksheets("BD").ListObjects(1).Range.Row
      MsgBox "Index = " & indexTS, vbInformation
   End If
   ' à ce stade l'index de l'ID est >>>>> indexTS
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
En fait, je n'importe rien. Le Ts est reconstitué par code regroupant 3 Ts élémentaires. J'utilise index/equiv appliquer aux tableaux. Les id peuvent être constitués uniquement de chiffres ou des chiffres et de lettres. Je formate donc comme ceci pour avoir un affichage dans les cellules identique.
VB: 
Tbbg(j, 3) = FORMAT(tbl(i, 3), "#,0##")        ' IdAnimal
ça ne peut provenir que de cette ligne de code.

En tout cas merci beaucoup à vous deux.
Je vous souhaite une excellente journée.
 
Vote positif 0 Vote négatif
Très intéressant. Le bouton valider ne figure que sur ce fichier monté pour la circonstance.
Dans mon fichier de travail, je n'ai pas ce bouton c'est pour cela que j'ai utilisé une fonction (pour pouvoir la réutiliser en changeant les paramètres). Ma fonction est appelée depuis l'évènement AfterUpdate.
Je te remercie, je vais essayer d'adapter à mon besoin.

Encore Merci.
 
Vote positif 0 Vote négatif
cathodique à dit:
Le Ts est reconstitué par code regroupant 3 Ts élémentaires.
Cliquez pour agrandir...
Mais si c'est vous qui générez cette BDD pourquoi ne pas intervenir en amont en supprimer directement ces codes 160 ?
Vous auriez alors directement une BDD non "polluée".
VB: 
Tbbg(j, 3) = Format(tbl(i, 3), "#,0##")             ' IdAnimal
Tbbg(j, 3) = Replace(Tbbg(j, 3), Chr(160), Chr(32)) ' Supp des codes 160.
 
Vote positif 0 Vote négatif
Honnêtement, quand ça bloque, ça bloque.
Je n'y ai même pas pensé pour la bonne raison que j'ignorais la présence de ces espaces insécables.
Merci beaucoup. Je m'empresse de tester ta proposition.
👍👍👍👍👍
 
Vote positif 0 Vote négatif
Bonsoir cathodique, sylvanu, mapomme,

Avec une colonne auxiliaire le tableau source n'est pas modifié :
VB: 
Private Sub CommandButton1_Click()
Dim i As Variant
Application.ScreenUpdating = False
With [Tbd]
    .Columns(3).EntireColumn.Insert   'colonne auxiliaire
    .Columns(3) = "=SUBSTITUTE(RC[1],CHAR(160),CHAR(32))&RC[2]"
    i = Application.Match(TxtNoId & "Ad", .Columns(3), 0)
    .Columns(3).EntireColumn.Delete
End With
If IsNumeric(i) Then MsgBox "Index trouvé : " & i Else MsgBox "Aucune occurrence trouvée"
End Sub
La formule remplace les espaces insécables de code 160 par des espaces normaux de code 32.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Hello,
A noter que dans le code de mapomme on peut faire aussi la recherche en utilisant le caractère générique ? (un caractère) :
VB: 
Id160 = Replace(Id32, Chr(32), "?")     ' Id de l'animal à rechercher avec espaces insécables ou espaces
Cela permet de faire la recherche quelque soit le caractère d'espacement.
Ami calmant, J.P
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2010 Combo filtrée où est mon erreur
Réponses
5
Affichages
432
cathodique
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
140
ManuEven
M
  • Résolu(e)
XL 2016 Bug liste déroulante dans UserForm
2
Réponses
20
Affichages
686
yannick64
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
2 K
patricktoulon
  • Résolu(e)
XL 2010 Problème de propagation d'évènement Combobox
Réponses
11
Affichages
637
ChTi160
  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
522
ChTi160
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
718
Helios77
H
N
  • Question Question
XL 2021 sauvegarde en csv format ";"
Réponses
4
Affichages
618
patricktoulon
R
  • Résolu(e)
XL 2021 Affichage valeur selon Filtre et puis faire un Tri
2
Réponses
16
Affichages
701
Rabeto
R
L
  • Question Question
tri et export
Réponses
4
Affichages
337
lescoches
L
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
779
ThomAnalyses
T
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
390
Leo98
L
C
  • Résolu(e)
XL 2021 Listes déroulantes en cascade
Réponses
8
Affichages
647
Constantin
C
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
779
jeff1494
M
  • Question Question
XL 2019 Réaliser un classement automatique pour un tournoi enfants à Mario Kart
Réponses
2
Affichages
844
michel8032
M
S
  • Question Question
XL 2010 Connection avec autre feuille excel et insertion
Réponses
5
Affichages
840
dysorthographie
B
  • Résolu(e)
XL 2016 Format date dans un Userform
Réponses
7
Affichages
786
patricktoulon
Z
  • Question Question
Microsoft 365 Validation de données et saisie partielle
Réponses
3
Affichages
453
Dranreb
P
  • Question Question
XL 2010 Fonction Alea.entre.bornes et les doublons .....
Réponses
5
Affichages
795
crocrocro
C
  • Question Question
XL 2021 VBA: Extraction des paramètres d'une formule (texte)
2
Réponses
28
Affichages
807
p'tit vieux
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…