VBA - Recherche Find avec retour multiple

Résolu

Valeur

Mouftie Messages postés 215 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention - 27 mai 2017 à 20:46

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

Afficher la suite

A voir également:

Fonction find vba
Fonction si et - Guide
Méthode find dans VBA - Recherche de données sous Excel - Astuces et Solutions
Find and mount - Télécharger - Récupération de données
VBA : dysfonctionnement fonction Find : Excel ne trouve pas des valeurs ✓ - Forum Excel
Fonction Find vba ✓ - Forum Excel

8 réponses

Réponse 1 / 8

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Mouftie Messages postés 215 Date d'inscription Statut Membre Dernière intervention 16

Merci beaucoup Patrice, c'est très bien.

Réponse 5 / 8

Mouftie Messages postés 215 Date d'inscription Statut Membre Dernière intervention 16

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 String
Rch = 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 If
End 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"

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

suggestion:

Sheets("Feuil1").Range("G1") = "Occurences trouvées pour : " & Rch
For i = 0 To R - 1 ' ou ubound(TB)
            Sheets("Feuil1").Cells(i + 2, 7) = Cells(Range(TB(i)).Row, 2)
Next i

Réponse 7 / 8

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

bonjour Michel, la demande initiale me semble parfaitement claire, Mouftie cherche de l'information à propos des cellules trouvées, plus précisément le numéro de ligne de chaque cellule trouvée.

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780 > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

«je voudrais renvoyé l'information d'une cellule, plutôt que l'adresse de la cellule trouvée»
C'est pas si clair que ça !

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

sauf en lisant jusqu'à la fin, où tout s’éclaircit.

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780 > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

Non, pas vraiment, le n° de ligne c'est pour récupérer l'information de la cellule:
« comment traduire Tb(i) (soit une référence sous forme $Col$Lg) en cells(1,tb(i)).»
Et là je rejoins michel, je ne comprend pas ce qu'il cherche à faire puisque la valeur de la cellule c'est celle qu'il a cherché !

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

il me semble clair dans l'exemple qu'il souhaite faire quelque chose comme
cells(Range(Tb(i)).Row, 1).

Réponse 8 / 8

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 Explicit
Const Ref As Integer = 12 'par ex
'------------
Sub rechercher_ref()
Dim Zone As Range, Cellule As Range
Dim Nbre As Integer
Dim 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 erreur
vide:
    MsgBox Ref & " inconnu dans la zone"
End Sub

et la maquette:
https://mon-partage.fr/f/QCeLgCgv/

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour michel,

Mouftie ne cherches pas le n° de ligne mais la valeur contenue dans la colonne 2

Cdlt
Patrice

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

Bonjour Patrice,

et si il y a des REf(12 par ex) dans la colonne 2 du tableau (soit colonne C de la feuille) ?

j'ai l'impression que mouftie a mal défini ce qu'il voulait faire ??

toutefois, si on veut la valeur

Cells(Cptr, "G") = Cells(Cellule.Row,"C").value

D'ailleurs, pour utiliser la fonction "FIND", il vaut mieux utiliser
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

que la solution proposée par Lhermite

enfin, compte tenu de la faible surface (B1:E500) soit 2000 cellules, il n'était pas nécessaire de passer par une variable - tableau plus difficile à comprendre (dixit Mouftie)

Bon WE

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour Michel,
Bonjour le Forum,

Pour une recherche multiple dans une plage multi-colonnes, la méthode proposée par Lhermitte et le FindAll de Jordane sont identiques.
Et n'y a pas beaucoup de différence avec la méthode que tu proposes au post 17 ci-dessus, à part l’utilisation de « CountIf » à la place du « ...Address <> PrAddress » de Lhermitte, ce qui ne change rien en nombre de passage dans la boucle.

Par contre, ta méthode Find_Next ne fonctionne pas correctement avec une plage multi-colonnes, elle ne remplace le FindNext que dans le cas d'une colonne unique car elle ne trouve que la première occurrence sur la ligne.
Si effectivement, tu précises qu'elle « permet de lister les lignes d'une colonne », tu devrais cependant signaler qu'il ne faut pas l'utiliser pour une plage multi-colonnes.

Cdlt
Patrice

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

Par contre, ta méthode Find_Next ne fonctionne pas correctement avec une plage multi-colonnes

FAUX

avant d'affirmer, essaies plutôt la pièce jointe que j'ai remise qui parcours B1:E500
mais si yu veux avoir toujours raison, je te l'accorde: tu as raison

j'abandonne ce suivi

et c'est promis, je ne te dérangerai plus en intervenant dans tes discussions
Adieu

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Re,

Je comprend qu'accepter la critique est difficile même lorsque celle-ci est constructive, mais ta mauvaise foi est impressionnante !

Relis mon post, j'ai pas parlé de « la pièce jointe que j'ai remise qui parcours B1:E500 » (qui fonctionne bien parce qu'elle utilise la méthode FindNext) mais de la méthode Find_Next : https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel#une-variante-find-next (qui n'utilises pas la méthode FindNext.)

Dans le fichier ci-joint, j'ai copié intégralement le code du chapitre « Une variante : Find_Next » et dans lequel j'ai uniquement remplacé A1:A20 par A1:E20 pour rechercher sur plusieurs colonnes :
https://mon-partage.fr/f/4ddACUI9/

Tu vois bien que ça ne fonctionne pas !

Patrice

Discussions similaires

Recupérer les valeurs d'une colonne sans doublons

Récupérer une valeur d'une autre feuille grace à un code.

Automatiser calcul valeur cible dès modification plage de cellul

[Excel] Vérifier existence cellules colonne A dans colonne C

Copier valeur d'une cellule selon autre cellule

Fonction si pour afficher une valeur ou non

Votre réponse

Discussions similaires