VBA - Recherche Find avec retour multiple Résolu

Question

Bonjour,
 j'ai vu avec grand intérêt votre article sur les retours multiples :
https://www.commentcamarche.net/faq/18696-vba-recherche-find-avec-retour-multiple
Cependant, je voudrais renvoyé l'information d'une cellule, plutôt que l'adresse de la cellule trouvée.
Je maitrise mal les tableaux virtuels ; comment traduire Tb(i) (soit une référence sous forme $Col$Lg) en cells(1,tb(i)).
Autrement dit comment récupérer les N° de ligne dans Tb(i).
Merci de votre aide

Patrice33740 · Accepted Answer

Bonjour,

Comme ceci, en adaptant FindRech au besoin :
Sub RechMulti()
Dim R As Long, TB()
Dim i As Integer, Rch As String
Rch = 22   'par exemple
  With Sheets("Feuil1")
    .Columns(7).ClearContents ' pour les résultats
    R = RechFind(Rch, .Range("B1:E500"), 2, TB())
    If R > 0 Then
      .Range("G1") = R & " Occurences trouvées pour : " & Rch
      .Range("G2").Resize(R, 1) = Application.Transpose(TB)
    Else
      MsgBox "Non trouvé", , "Recherche"
    End If
  End With
End Sub

Function RechFind(ByVal Cle$, ByVal Plage As Range, _
                  ByVal Col&, ByRef TBval()) As Long
'Retourne toutes les valeurs trouvées dans la recherche
'Clé   = valeur cherchée
'Plage = plage à parcourir.
'Col   = colonne contenant les valeurs à retourner.
'TBval = Tableau retournant les valeurs de la colonne Col.
Dim Cherche, Ix As Long, Adr
  With Plage
    Set Cherche = .Find(Cle, , xlValues, xlWhole)
    If Not Cherche Is Nothing Then
      Adr = Cherche.Address
      Do
        ReDim Preserve TBval(Ix)
        TBval(Ix) = Plage.Parent.Cells(Cherche.Row, Col)
        Set Cherche = .FindNext(Cherche)
        Ix = Ix + 1
      Loop While Not Cherche Is Nothing And Cherche.Address <> Adr
    End If
  End With
  'nombre d'occurence(s) trouvée(s), Retour 0 si aucune occurence
  RechFind = Ix
  Set Cherche = Nothing 'Libére la mémoire occupée par l'objet.
End Function

Patrice33740 · Answer

Bonjour,

Sans regarder ton fichier, la fonction Split permet d'extraire la ligne ou la colonne d'une adresse absolue :
Split("$B$12", "$")(1) donne la colonne (B) 
Split("$B$12", "$")(2) donne la ligne (12)

yg_be · Answer

bonjour, je pense que ceci te donne le numéro de ligne:
Range(Tb(i)).Row

Patrice33740 · Answer

Re,

Sinon, tu peux modifier le module pour qu'il renvoie la valeur au lieu de l'adrsse, il suffit de remplacer:
TBadress(Ix) = Cherche.Addresspar
TBadress(Ix) = Cherche.Value

Mouftie · Answer

Merci à vous tous, 
les réponses de Patrice (1ere réponse) et de yg_be correspondent exactement ce que je cherchais
La 2ème réponse de patrice ne fonctionne pas ; elle me renvoie la même réponse autant de fois qu'il y a d’occurrences, et en plus la réponse est fausse.
En effet, Tb(i) prend la valeur recherchée

michel_m · Answer

Bonjour,

je comprend mal ce que tu cherche à faire puisque tu veux la valeur et non l'adresse
si dans la démo  citée tu cherches toutes les valeurs 12 la réponse sera 12 !
à moins que 12 soit inclus dans d'autres caractères  par ex "azerty12uiop"

le mieux serait  que tu joignes ton classeur
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »et faire un clic droit-coller le raccourci  dans votre message 

et que tu expliques ce que  tu veux obtenir


 Michel

Mouftie · Answer

Bonjour Michel et merci pour tes tutos.
Je cherche à récupérer, pour chaque occurrence trouvée, les données de la colonne"X" correspondant à la ligne trouvée.
C'est pourquoi les réponses de Patrice et de Yg_be m'ont parfaitement satisfaite. 
Voici le code complet : Sub RechMulti()Dim R As Long, TB()Dim i As Integer, Rch As StringRch = 22   'par exemple    Sheets("Feuil1").Columns(7).ClearContents 'Colonne(7) pour les résultats    R = RechFind(Rch, ThisWorkbook.Name, "Feuil1", "B1:E500", TB())    If R > 0 Then        For i = 0 To R - 1 ' ou ubound(TB)            Sheets("Feuil1").Range("G1") = "Occurences trouvées pour : " & Rch            Sheets("Feuil1").Cells(i + 2, 7) = Cells(Range(TB(i)).Row, 2)        Next i    Else        MsgBox "Non trouvé", , "Recherche"    End IfEnd Sub
Par contre, je ne sais pas rechercher une valeur exacte, car dans cet exemple, cela me rapporte 122, 422, 220... j'ai essayé les "", mais cela ne change rien.

Enfin pour aller dans le sens de Patrice (2ème proposition) il fallait remplacer
                TBadress(Ix) = Cherche.Address
par
                TBadress(Ix) = Cherche.Row
J'ai bien compris vos propositions, je n'ai plus qu'à trouver le moyen de rechercher "exactement"

michel_m · Answer

recherchefind est une usine à gaz affreuse et compliquée

puisque mouftie veut les lignes dans la colone G où il y a la ref cherchée 

Option ExplicitConst Ref As Integer = 12 'par ex'------------Sub rechercher_ref()Dim Zone As Range, Cellule As RangeDim Nbre As IntegerDim T_out, Cptr As Integer'Dim test    Application.ScreenUpdating = False    Columns("G").Clear    Set Zone = Range("B1:E500")            Nbre = Application.CountIf(Zone, Ref)        If Nbre = 0 Then GoTo vide     With Zone        Set Cellule = Zone.Find(what:=Ref, LookIn:=xlValues, lookat:=xlWhole)        For Cptr = 1 To Nbre            'test = Cellule.Address            Cells(Cptr, "G") = Cellule.Row            Set Cellule = .FindNext(Cellule)        Next    End With    'trie dans l'ordre croissant si la cellule B1 =ref (sinon la ligne 1 se trouve en bas    If Range("B1") = Ref Then        Range("G1:G" & Nbre + 1).Sort Key1:=Range("G1"), Order1:=xlAscending    End If Exit Sub'gestionnaire erreurvide:    MsgBox Ref & " inconnu dans la zone"End Sub 

et la maquette:
https://mon-partage.fr/f/QCeLgCgv/

VBA - Recherche Find avec retour multiple

8 réponses

Votre réponse

Discussions similaires

Newsletters