Discussion :

[Hector1991]

Bonjour à tous,

Je travaille sur un fichier qui comporte trois colonnes, colonne A "Nom", colonne B "quantité" et colonne C "prix".
J'aimerais pouvoir via une macro récupérer le nom en ligne A pour lequel le produit quantité * prix est le maximum et le stocker dans une variable pour ensuite remplir une base de données dans un autre fichier Excel.

Je joins ci-dessous un fichier exemple des données à traiter

Auriez-vous une solution pour m'aider ?

Merci beaucoup,

Hector

[tony76]

Bonjour,

Ce qui serais sympa c'est de faire ça via une interface utilisateur (userform)
il y à des cours très bien sur se cite concocte quelque ligne de code et revient par ici

https://silkyroad.developpez.com/VBA/DebuterMacros/

[Thautheme]

Bonjour Hector, bonjour le forum,

Par formule je ne sais pas faire. Une proposition VBA :

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
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (incrément)
Dim P As Double 'déclare la variable P (Produit)
Dim M As Double 'déclare la variable M (Maximum)
Dim N As String 'déclare la variable N (Nom)
 
Set O = Worksheets("Sheet1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    P = TV(I, 2) * TV(I, 3) 'calcule la produit P
    If P > M Then M = P: N = TV(I, 1) 'si le produit P est supérieur au maximum M alos P devient le maximum M est N est le nom
Next I 'prochaine ;igne de la boucle
MsgBox N 'ffiche le nom N
End Sub

[Édition]
Bonjour Tony, nos posts se sont croisés.

[tony76]

no souci les deux solution son bonne

[Hector1991]

Hello,

Merci pour vos réponses je vais essayer d'appliquer vos solutions

Hector