Macro recherchev resultats multiples saut de cellul

Bonjour,

Je souhaite mettre en place une macro pour realiser des devis.

Imaginons que j ecris disjoncteur. La macro cherche dans une liste tout les elements liés au mot disjoncteur (cable, boitier, etc) et me les ecrit l une a la suite des autres dans les celulles inferieure.

J'ai suivi le tuto suivant mais il ne repond pas a ce que je veux car les resultats sont affiches dans la meme cellule.

https://www.youtube.com/watch?v=klJXtxbivIQ

L objectif est qu a la fin lorsque je tape disjoncteur je peux supprimer les elements en trop et etre certains de ne pas oublies des travaux ou des pieces detachees.

J ai joint en pj mon modele. Il y a des commentaires sur ce que je souhaite realiser et la macro du tuto.

Merci d avance pour votre aide.

Bonjour,

un essai, sauf erreur de compréhension de ma part ...

J'ai testé ca fonctionne bien. Merci beaucoup.

J'ai plus qu'a l'adapter a mon original.

Qu est ce que je dois changer si ma liste de materiaux est sur une autre page ?

Merci

il faut alors nommer les zones dans ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
If Target.Count = 1 Then
If Target.Value <> "" Then
    mesitems = Split(VLookUpList(Target, Range("A3:B9"), 2), ";")
    For i = 0 To UBound(mesitems)
        Target.Offset(i, 1) = mesitems(i)
        Target.Offset(i, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],C[-6]:C[-5],2,FALSE)"
    Next i
End If
End If
End If
End Sub

j'ai vu du reste qu'il y avait déjà des noms de zone peut-être exploitables

je suis pris, j'essaierai demain matin à la fraîche sauf si j'arrive à me dégager un peu d etemps, ou si tu y arrives c'est encore mieux !

Bonjour,

avec un peu de retard ... j'ai créé 3 noms categorie(pour repérer la colonne où sera saisie douche etc...) listeet itemqu'il faudra ajuster

je n'ai pas modifié les autres noms qui ont peut-être une utilité par ailleurs

et comme les données sont sur une autre feuille, j'ai dû couper la procédure en 2

Bonjour,

Merci pour la nv version. J avais tente de le faire par moi : impossible. J ai meme essaye de copier et d adapter vos formules a mon original ce fut pareil.

Finalement j ai mis mon template de template autours de votre fichier.

Merci beaucoup

Il est temps pour d apprendre a faire des macro vu leurs potentiels.

Parfait

si besoin d'un nouveau coup de main, n'hésite pas!

S'il n'y a qu'un seul item, alors modifie la macro comme suit

Sub recherche(cellule As Range)

    mesitems = Split(VLookUpList(cellule, Range("liste"), 2) & ";", ";")
    For i = 0 To UBound(mesitems) - 1
        cellule.Offset(i, 1) = mesitems(i)
        cellule.Offset(i, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],item,2,0)"
    Next i

End Sub