RechercheV avec résultat multiple

Bonjour à tous,

Je viens vers vous car je suis confronté à un nouveau problème sur mon fichier excel.

Je souhaite faire une rechercheV via un code VBA.
Ce code je l'ai pas de souci, sauf que cela ne me remonte que la première valeur qu'il trouve vrai.
Donc à coté je souhaiterai faire une sorte de tableau qui me remonterais toutes les valeurs vrai.

Je m'explique, cela sera plus clair.

Sur "feuille1" en Z10 j'ai du texte qui sera par exemple "HB1"
En lançant une macro via un petit bouton, je suis capable de lui dire:
Tu regardes la valeur dans Z10, feuille1 et tu regardes dans la feuille "BDD" colonne "Q" et tu me ressort le texte de la colonne A, feuille "BDD" en U12 de la feuille1 via ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub recherchecasiers() Dim F1 As Worksheet Dim F2 As Worksheet Set F1 = Sheets("Feuille1") Set F2 = Sheets("BDD") Dim plage As Range Set plage = F2.Range("Q3:Q800") codrecherché = F1.Range("Z10").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Range("U12") = F2.Cells(cell.Row, 1) F1.Range("Y12") = F2.Cells(cell.Row, 2) End If Next cell Application.ScreenUpdating = True End Sub

---

Sauf qu'il me ressort que la première valeur vrai.
Si j'ai 2 ou 3 "HB1" je souhaiterai qu'il me donne toutes les réponses VRAI, donc en code pour le placement, ceci:
Première Valeur Vrai:

Code:

---

1 2	F1.Range("U12") = F2.Cells(cell.Row, 1) F1.Range("Y12") = F2.Cells(cell.Row, 2)

---

Deuxième valeur Vrai:

Code:

---

1 2	F1.Range("U13") = F2.Cells(cell.Row, 1) F1.Range("Y13") = F2.Cells(cell.Row, 2)

---

et Troisième valeur Vrai:

Code:

---

1 2	F1.Range("U14") = F2.Cells(cell.Row, 1) F1.Range("Y14") = F2.Cells(cell.Row, 2)

---

Je m'arrête à 3, logiquement il ne pourra pas en avoir plus.

Voilà, j'espère avoir été le plus clair possible dans mes explications.

En vous remerciant d'avance et en vous souhaitant une bonne après midi à tous. ;)

Cordialement,

Salut,

Voir l'aide Microsoft sur la méthode Find

A partir de l'exemple proposé, tu pourras incrémenter un n° de ligne (ou de colonne) dont une cellule reportera l'information.

P.S. Pour reporter un code, tu pourras utiliser les balises # qui le rendront plus lisibles.

Bonjour,

Tu n'étais pas loin.
voir la propriété : Range.Offset ici : https://docs.microsoft.com/fr-fr/off...l.range.offset

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub recherchecasiers() Dim F1 As Worksheet Dim F2 As Worksheet Set F1 = Sheets("Feuille1") Set F2 = Sheets("BDD") Dim plage As Range Dim cpt As Integer Set plage = F2.Range("Q3:Q800") codrecherché = F1.Range("Z10").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Range("U12").Offset(cpt).Value = F2.Cells(cell.Row, 1) F1.Range("Y12").Offset(cpt).Value = F2.Cells(cell.Row, 2) cpt = cpt + 1 End If Next cell Application.ScreenUpdating = True End Sub

---

Merci beaucoup à tous les deux.
La réponse de pijaku fait exactement le job !
Je vais me pencher sur cette fonction effectivement ;)
Chaque jour nous nous endormons moins con que la veille ! :ptdr:
En vous souhaitant une bonne fin de journée.

;)

Bonjour,

Pour faire le job sans boucle sur toutes les cellules, voir ici : https://www.developpez.net/forums/d2.../#post11381598

Citation:

---

Envoyé par pijaku

Bonjour,

Pour faire le job sans boucle sur toutes les cellules, voir ici : https://www.developpez.net/forums/d2.../#post11381598

---

Merci pour l'info ;)