Discussion :

[Nospam54]

Bonjour à toutes et tous !

Je ne suis pas un expert en VBA...

J'ai un petit souci avec une recherche dans un tableau via un userform...

Ce tableau comporte 6 colonnes. La recherche peut se faire sur un ou deux critères alphabétiques qui sont des données présentes dans la première et la deuxième colonne. Sur l'userform un listbox est censé restituer toutes les occurences trouvées...

J'ai trouvé un exemple sur internet pour déclencher la recherche sur mon tableau. Sauf que... Sauf que ça ne fonctionne pas avec mon propre tableau. J'ai compris que cela venait du fait que les données à rechercher sont du texte. c'est à dire que si je remplace ces données-là par des chiffres la macro fonctionne.

Ma question est donc : où dans le code indiquer que ce qui est à rechercher est du texte et non du numérique ?

Je joins mon fichier. Celui-ci comporte deux onglets, à savoir :

- le premier onglet, le tableau avec des données alphabétiques dans les colonnes 1 et 2. La macro ne fonctionne pas...
- le second onglet, le tableau avec des données numériques dans les colonnes 1 et 2. La macro fonctionne...

Qui peut me venir en aide ?

Merci d'avance aux bonnes âmes...

DiCTest.xls

[eric4459]

Bonjour,
En remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
     And Cells(i, 6) Like TextBox2 Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
     And InStr(Cells(i, 6), Me.TextBox2) Then

cela semble fonctionner.

En effet la fonction Like va rechercher une partie d'une chaîne de caractère or TextBox2 n'est pas une chaine de caractère mais une variable.
Si dans ta cellule A1 il y a la valeur "ABRACADABRA" la ligne suivante sera vrai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A1") Like "*BRACA*Then

Par contre si tu as en A1 une variable nommée "Tartempion" et que tu donnes à "Tartempion" la valeur "ABRACADABRA" alors la ligne suivante ne sera pas vérifiée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A1") Like "Tartenpion"Then

( Le forum dites-moi si je me trompe)
Eric

[Nospam54]

Merci Eric pour ta réponse rapide !

J'ai modifié la ligne de code mais... ça ne fonctionne pas davantage. Je dirais même plus... la recherche ne s'effectue plus aussi sur l'onglet 2 !
Et j'ai beau prendre le truc par tous les bouts... je pige pas !

[eric4459]

Bonjour,
Le code modifié fonctionne chez moi, pour mon test je n'ai rien entré dans le premier TextBox et j'ai entré "Conf" dans la deuxième TextBox.
Voici le résultat que j'ai obtenu

Voici le fichier modifié
DiCTest1.xls
Eric

[Nospam54]

Ah ben mince alors... quel que soit le textbox choisi, ça ne fonctionne pas chez moi ! Enfin... au bureau. En rentrant chez moi (vraiment chez moi) ce soir, je testerai...

En attendant, merci !

Ben non... que ce soit au bureau ou bien chez moi - là je viens de tester - le code ne fonctionne toujours pas !
Dans ce que tu me retournes, ce qui m'étonne, c'est que tu as entré "conf" dans le second textbox. Or cette occurrence ne se trouve pas dans la colonne 2 qui correspond au nom du fournisseur... Peut-être me suis trompé ailleurs dans le code ?

Pfff...

Rien à faire... Même chez moi la macro ne fonctionne pas comme souhaité. Peut-être me suis-je trompé ailleurs dans le code mais je ne parviens pas à savoir à quel endroit.
Ce qui est curieux c'est que cela fonctionne chez toi et pas chez moi...

Pfff...

[Docmarti]

Bonjour

Pour que la comparaison avec LIKE ne prenne pas en compte la casse ( les majuscules ), tu dois mettre cette commande dans le haut du module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

Si tu cherches dans la colonne B, remplace Cells(i, 6) par Cells(i, 2) ou par Cells(i, "B")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 2 To [A65000].End(xlUp).Row
   'If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
   '  And Cells(i, 6) Like TextBox2 Then
     If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
     And Cells(i, 2) Like TextBox2 Then