XL 2010 Find et format

[cathodique]

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

 

[job75]

Bonjour le forum, hello J.P,

Dans la mesure où comme ici tous les espaces en colonne C sont des espaces insécables de code 160 :

Private Sub CommandButton1_Click()
Dim i As Variant
i = Application.Match(Replace(TxtNoId, Chr(32), Chr(160)) & "Ad", Evaluate([Tbd].Columns(3).Address & "&" & [Tbd].Columns(4).Address), 0)
If IsNumeric(i) Then MsgBox "Index trouvé : " & i Else MsgBox "Aucune occurrence trouvée"
End Sub

Seul le texte utilisé par la TextBox TxtNoId est transformé, c'est forcément plus rapide.

Et on n'utilise plus de colonne auxiliaire.

A+

 

[job75]

Bon je reviens sur mon post #14, pas besoin de colonne auxiliaire, on peut aussi utiliser Evaluate :

Private Sub CommandButton1_Click()
Dim i As Variant
i = Application.Match(TxtNoId & "Ad", Evaluate("SUBSTITUTE(" & [Tbd].Columns(3).Address & ",CHAR(160),CHAR(32))&" & [Tbd].Columns(4).Address), 0)
If IsNumeric(i) Then MsgBox "Index trouvé : " & i Else MsgBox "Aucune occurrence trouvée"
End Sub

On ne touche pas au tableau.

 

[job75]

Pour appliquer la méthode de J.P post #15 il suffit d'utiliser mon fichier (1) post #16 en remplaçant Chr(160) par "?".

Les espaces en colonne C peuvent alors être quelconques.

 

[cathodique]

Bon je reviens sur mon post #14, pas besoin de colonne auxiliaire, on peut aussi utiliser Evaluate :

Private Sub CommandButton1_Click()
Dim i As Variant
i = Application.Match(TxtNoId & "Ad", Evaluate("SUBSTITUTE(" & [Tbd].Columns(3).Address & ",CHAR(160),CHAR(32))&" & [Tbd].Columns(4).Address), 0)
If IsNumeric(i) Then MsgBox "Index trouvé : " & i Else MsgBox "Aucune occurrence trouvée"
End Sub

On ne touche pas au tableau.

Bravo pour les autres codes. Mais celui-ci ne fonctionne pas correctement sur ma machine Excel2010.
Il renvoie "aucune occurence trouvée", alors que L'idAnimal existe.
J'ai fait le test plusieurs fois et fais attention au numéro saisi.
C'était juste pour t'en informer. J'ai les autres solutions pour avancer.
Merci beaucoup.

 

[job75]

Bravo pour les autres codes. Mais celui-ci ne fonctionne pas correctement sur ma machine Excel2010.
Il renvoie "aucune occurence trouvée", alors que L'idAnimal existe.

Bizarre, chez moi le fichier (2) indique bien l'index 63.

 

[job75]

Si le fichier qui ne va pas n'est pas le téléchargement du fichier (2) merci de le déposer ici.

 

[cathodique]

Si le fichier qui ne va pas n'est pas le téléchargement du fichier (2) merci de le déposer ici.

C'est le fichier du post#17, qui me renvoie "Aucune occurrence trouvée".
Bonne soirée.

 

[job75]

Bonjour cathodique,

Peux-tu exécuter cette macro (clic sur le bouton) et me dire ce que tu obtiens en F2:F5 :

Sub Test()
[F2:F5] = Evaluate("SUBSTITUTE($C$2:$C$5,CHAR(160),CHAR(32))&$D$2:$D$5")
End Sub

A+

 

[jurassic pork]

Peux-tu exécuter cette macro (clic sur le bouton) et me dire ce que tu obtiens en F2:F5 :

Sub Test()
[F2:F5] = Evaluate("SUBSTITUTE($C$2:$C$5,CHAR(160),CHAR(32))&$D$2:$D$5")
End Sub

Hello job75,
je me suis permis de faire le test car comme j'ai pu essayé ta macro sur un Excel 2010 et constaté aussi qu'elle ne fonctionnait pas alors qu'elle était OK sur un Excel 2016. Voici ce que ton test donne sur mon Excel 2010 :

100 008 000 058 717Cd
100 008 000 058 717Cd
100 008 000 058 717Cd
100 008 000 058 717Cd

Alors que sur mon Excel 2016 j'ai bien des données différentes sur chaque ligne.
Ami calmant, J.P

 

[job75]

Merci J.P d'avoir testé.

J'en conclus que sur Excel 2010 SUBSTITUTE ne prend pas les matrices.

 

[cathodique]

Bonjour cathodique,

Peux-tu exécuter cette macro (clic sur le bouton) et me dire ce que tu obtiens en F2:F5 :

Sub Test()
[F2:F5] = Evaluate("SUBSTITUTE($C$2:$C$5,CHAR(160),CHAR(32))&$D$2:$D$5")
End Sub

A+

Bonsoir,

Excusez mon retard. Voici en image le rendu des 2 codes.

Merci beaucoup.
Bonne soirée

 

[patricktoulon]

bonsoir
substitue prend les matrice qu'a partir de 2016 64

 

[job75]

Hello Patrick,

substitue prend les matrice qu'a partir de 2016 64

C'est ce que j'ai conclus au post #25, et pour 2013 c'est comme 2010 ?

A+

 

[patricktoulon]

re bonjoir @job75
oui nous l'avons vu ensemble il y a quelques mois pour substitue(me semble t il )

 

[job75]

oui nous l'avons vu ensemble il y a quelques mois pour substitue(me semble t il )

Pas avec moi en tout cas, as-tu testé sur 2013 ?