Discussion :

[khroujou]

Bonjour à Tous,

J'ai un fichier Excel pour évaluer les offres de fournisseurs, et récupérer le nom du moins disant (compétitif).

Mon problème est que parfois deux (ou plus) peuvent avoir proposé le même prix et donc sont tous compétitifs.

En cherchant j'ai pu récupérer le nom du "premier" compétitif en combinant plusieurs formules Excel :

Code :

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

=INDIRECT(GAUCHE(ADRESSE(1;EQUIV(MIN(B2:E2);A2:E2;0);4;1);1)&1;1)

Je veux, en cas de plusieurs compétitifs, avoir le résultat sous forme : Fournisseur1 & Fournisseur2.

Merci.

[Invité]

Bonjour,

Si la VBA vous est permis, essayez cette fonction :

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
 
Function Competitifs(ByVal AireProduit As Range, ByVal AireFournisseurs As Range) As String
 
Dim I As Integer
Dim PrixMini As Double
 
    Application.Volatile
 
    PrixMini = WorksheetFunction.Min(AireProduit)
    Competitifs = ""
 
    For I = 1 To AireProduit.Count
        With AireProduit(I)
             If .Value = PrixMini Then Competitifs = Competitifs & AireFournisseurs(I) & " "
        End With
    Next I
    Competitifs = Mid(Competitifs, 1, Len(Competitifs) - 1)
 
End Function

Pièce jointe 584664

[khroujou]

Bonsoir,

ça marche à merveille! MERCI.