Discussion :

[ousman01]

Jai besoin d'aide. Etant novice sur excel je me tourne vers vous.

Mon problème :

Lorsque je choisis le type de fournisseur (en D1) dans la feuille "foam fnr export" j'aimerais qu'il affiche tous les informations relatifs à ce fournisseur qui se trouve dans la feuille suivi livrables. Les colonnes Q,S,U et W de la feuille suivi livrables listent tous les fournisseurs. Je veux donc que la formule aille rechercher dans ces colonnes le fournisseur qui sera choisit sur la feuille "foam FNR export" et afficher les infos correspondant (à savoir program, ITCM, PDR, CDR etc) sur cette feuille.

Merci d'avance.
ci-joint le fichier

[Daniel.C]

Bonjour,

Donne un exemple. On trouve le même fournisseur sur plusieurs colonnes et sur plusieurs lignes.

[ousman01]

Merci pour ta réponse.

Voici un exemple:

Pour chaque programme, nous avons un ou plusieurs fournisseurs de mousses (assise, dossier, têtière etc).
Pour le programme EZ305 (A56) nous avons comme fournisseurs "supacor" (Q56) et "greiner"(S56, U56,w56)
Pour le programme EZ306 (A57) le fournisseur est "greiner".
Lorsque je choisis "greiner" dans la feuille "foam fnr export" en D5, les programmes ayant comme fournisseur "greiner" devront s'afficher sur la page ainsi que toutes les infos relatifs à ce programme (ITCM, CDR,PDR etc).. Dans mon exemple, les programmes EZ305 et EZ306 devront s'afficher. Si l'on choisit "supracor" comme fournisseur, seul le programme EZ305 s'affichera.

J'espère que c'est plus clair.

[Daniel.C]

Euh, j'ai peut-être la tête dure, mais dans ton exemple, pourquoi E305 et E306 et pas E308 et E309 ?

[ousman01]

Il n'y a pas de E308 ni de E309 dans la colonne A. Dans mon exemple, je considère que je n'ai que deux programmes dans la base de données ce qui n'est pas le cas. Dans ma base de données (feuille "suivi livrables") j'ai 87 programmes. Donc si je choisis FRANKLIN dans la feuille "foam fnr export", tous les programmes ou l'on a FRANKLIN comme fournisseur devront apparaitre sur la feuille
"foam fnr export".

Au fait, j'ai choisi le programme EZ305 dans mon exemple car on a deux fournisseurs différents pour un même programme.

[Daniel.C]

Mets cette macro dans le module de la feuille. Je n'ai fait q'une recopie : ITCM. Tu n'as recopier la ligne en changeant les colonnes. La macro se déclenche automatiquement quand tu changes le nom en D1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ligne As Long, Plage As Range, C As Range
    Dim Tabl As Variant
    If Target.Address = "$D$1" And Target.Value <> "" Then
        With Sheets("Suivi livrables")
            Tabl = .Range("A7", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 121)
        End With
        With Sheets("Foams FNR export")
            Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
            For i = 1 To UBound(Tabl, 1)
                If Tabl(i, 17) = .[D1] Or Tabl(i, 19) = .[D1] Or Tabl(i, 23) = .[D1] Then
                    Ligne = Ligne + 1
                    Tabl(i, 5) = .Cells(Ligne, 2)
                    'etc.
                End If
            Next i
        End With
    End If
End Sub