Discussion :

[Victor1]

Bonjour,

Voila, j'ai crée un tableau Excel qui permet de rechercher dans une table de donnée, les informations que l'on souhaite extraire. Pour cela, j'utilise la formule RECHERCHEV.
L'inconvénient, c'est que je dois saisir exactement le nom correspondant pour retrouver ce que je cherche. Ce que j'aimerais faire dans l'idéal serait quelque chose de plus intuitif. On commence à saisir quelque chose et il te propose la suite, ou alors si on se trompe sur un ou plusieurs caractères, que cela trouve quand même.
Je pense que cela serait plus simple sur Access (Du moins tout le monde me dit ça), mais je ne l'ai pas à ma disposition.
Je voulais savoir si quelqu'un aurait une idée de la façon de faire sur Excel pour obtenir un tel résultat. J'ai pensé à utiliser des filtres, enfin, je ne connais pas très bien la puissance des macros. Donc si vous avez des idées, je suis preneur

Merci

[LeForestier]

Bonjour,
Ta formulation du problème n'est pas très clair, comment s'effectue la recherche ? via VBA ? si oui, montre le code qui fait ça.
A+

[Victor1]

Bonjour,

Non, la recherche se fait grâce à la fonction recherchev de Excel. Mais elle est limité... Alors je voulais savoir si il y avait des équivalent, plus puissant en VBA. Voila le lien avec mon fichier. Pour le moment, je fais tout mes test dans la feuille "Recycled Content".... J'espère que cela te parlera plus !

[LeForestier]

Re,
je ne chargerai ton "lien" que si nécessaire, pour répondre à ta question, il n'y a aucune fonction excel qui puisse resoudre des problèmes spécifique alors que le VBA peu y arriver.
Montre ta formule "RechercehV" pour voir si ont peu l'améliorer en VBA.
A+

[Victor1]

Voila ma fonction RechercheV :

Code :

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

SI(ESTNA(RECHERCHEV($F11;'RC Data'!$B$2:$F$330;3;FAUX));"";RECHERCHEV($F11;'RC Data'!$B$2:$F$330;3;FAUX))

[LeForestier]

Bon, comprend toujour pas.
Si pas d'ereur
Sélectionne la plage 'RC Data'!$B$2:$F$330; recherche dans colonne 3
si erreur.. Beh tu fait la même chose. ??
J'ai un moment d'incompréhension là..

[Victor1]

Non, si le résultat de ta recherche est N/A alors tu affiche "" (rien), sinon, tu recherche... Je trouvais que ça faisait plus jolie d'avoir rien plutôt que des N/A! partout...

[LeForestier]

Autant pour moi, tu a raison.
mais

Ce que j'aimerais faire dans l'idéal serait quelque chose de plus intuitif.

Tu ne peu faire cela qu'avec du VBA et un Userform. mettre les données a rechercher dans un combo, celui-ci faisant la sélection en fonction des entrées dans le combo.
C'est quelque chose comme ça que tu cherche ?
A+

[Victor1]

oui effectivement, je n'y avais pas pensé. Je ne suis pas familier des UsF. Moi je voyais quelque chose avec des boucles, cherchant des similitudes... Ta technique à l'air plus simple que la mienne...

[Victor1]

Alors que la solution d'un UserForm s'est avéré la meilleure, je place le code que j'ai obtenu grace à de nombreux developpiens... En espèrant que cela aidera un jour un stagiaire au bord du gouffre ou quelqu'un ayant les mêmes problèmes, je ne suis pas sectaire ! !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Send_Click()
'Déclaration ===============================
Dim MaterialName As String
Dim Manufacturer As String
Dim j As String
Dim DerniereLigne As String
'MEI =======================================
Set F = Sheets("RC Data")
MaterialName = Me.MaterialNameA
'recherche =================================
Set Cel = F.Columns(2).Find(MaterialName, LookIn:=xlValues)
'trouver la cellule de la colonne B qui contient MaterialNameA
 
 
    If Send.Enabled = True Then
        If Cel Is Nothing Then
            Manufacturer = ManufacturerName.Text
            DerniereLigne = Sheets("RC Data").Range("C1").End(xlDown).Row
            j = DerniereLigne + 1
            Manufacturer.Copy Destination:=ActiveWorkbook.Sheets("RC Data").Cells(j, 3)
 
         End If
    End If
 
j = j + 1
 
End Sub