XL 2016 Si CODE alors affiche moi toutes les images comportant CODE

[pulelian]

Bonjour à tous !

Je m'explique j'aimerai renseigner un CODE, celui-ci étant une composante d'un objet.

Par conséquent, si je cherche un composant via le CODE j'aimerai avoir la "liste" (= les images les unes après les autres) des objets qui ont ce composant dans leur fabrication.

Voici le fichier en copie, c'est mieux que mes explications ^^'
Je suis pas attaché à la forme de ce fichier et suis ouvert à toutes propositions.

merci d'avance !!

 

[job75]

Bonjour pulelian,

Voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$3" Then Exit Sub
Dim cible As Range, p As Object
Target.Select
Set cible = [B6] '1ère cellule de destination, à adapter
Application.ScreenUpdating = False
Pictures.Delete 'RAZ
For Each p In Sheets("Sheet1").Pictures
    If Application.CountIf(p.TopLeftCell.EntireRow, Target) Then
        p.Copy
        Me.Paste
        Selection.Top = cible.Top
        Selection.Left = cible.Left
        Set cible = Cells(cible.Row, Selection.BottomRightCell.Column + 1)
    End If
Next
ActiveCell.Activate 'désélectionne l'image
End Sub

Les images sont effacées ou affichées quand on modifie la cellule C3.

A+

 

[pulelian]

job75 bonsoir,​

euh, j'ai rien à dire ..! c'est totalement ce que je demandais ^^'

MERCI BEAUCOUP !
Passe une bonne soirée!