Discussion :

[sness]

Bonjour tout le monde ,

Je ne suis pas un expert vba excel mais je suis en train d'apprendre avec des cours en ligne, en lisant les forums et en créant des projets personnels

je me permets de vous exposer un problème que je rencontre.

je bloque sur une fonction recherche sur VBA pour laquelle je voudrais uema valeur recherchée soit contenu dans les cibles sans en avoir la valeur exacte.

Par exemple je voudrais rechercher toutes les valeurs qui contiennent "QUAT" dans ce tableau

TESTQUATRE	Test1
NOUV QUATRE	Test2
VRTQUATRE	Test3
333QUATRE222	Test4
QUAT	Test5
QUAT	TTTES

Avec mon code ci-dessous, je ne retrouves que la valeur exacte:

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
28
29
30
31
Function RECHMULTI(valcherch As Variant, x As Range, colonne As Long) As String
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
Dim tabval() As Variant
 
ReDim tabval(x.Rows.Count)
 
nb = 1
u = ""
valcherch = Cells.Find(x.Value, LookIn:=xlValues)
 
For boucle = 1 To x.Rows.Count
    If x(boucle, 1) = valcherch Then
        tabval(nb) = x(boucle, colonne)
        nb = nb + 1
    End If
Next boucle
For i = 1 To nb - 1
   For j = i + 1 To nb - 1
      If tabval(i) = tabval(j) Then tabval(j) = ";"
   Next j
Next i
For i = 1 To nb
   If tabval(i) <> "" Then u = u & tabval(i) & ";"
Next i
If Right$(u, 1) = ";" Then u = Left$(u, Len(u) - 1)
 
RECHMULTI = u
End Function

Pour info j'ai également essayé de cette manière : =RECHMULTI("*"&F5&"*";A1:B6;2) mais sans succés...

Pourriez vous jeter un oeil à mon problème et m'expliquer comment le solutionner?

Merci d'avance

[Philippe Tulliez]

Bonjour,
Voir cette discussion sur le même thème https://www.developpez.net/forums/d1...eferences-vba/

[sness]

Ok merci je vais jeter un œil et voir ce que ca donne....

[sness]

Désolé mais je bloque....

Ma fonction fonctionne bien avec la valeur exacte(c'est bien sous ce format que j'ai besoin du résultat)

QUAT Test5;TTTES

Mais pas avec une partie du texte.... Si par exemple je mets "QU" en valeur recherchée il ne me trouve rien...

J'ai essayé de suivre quelques exemples des posts mentionnés mais pas de résultat

N'y a t-il pas une solution simple genre "*"&B2&"*" comme sur excel?

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Tu es certain d'avoir bien lu tous les fils de cette discussion parce-que dans le fil #17 de la discussion, je donne un exemple similaire et au fil #21, je publie la procédure améliorée

[sness]

Bonjour,
Tu es certain d'avoir bien lu tous les fils de cette discussion parce-que dans le fil #17 de la discussion, je donne un exemple similaire et au fil #21, je publie la procédure améliorée

Oui bien sûr je ne suis pas du genre à attendre une réponse toute faite et j'ai continué mes recherches et tester.

Sinon pas de soucis, je continuerais à explorer les forums pour trouver la solution

Merci de vous être penché sur mon cas