Discussion :

[xxmedxx]

Salut, je pose mon problème : j'ai une feuille de calcul excel dont (B5 contient une liste de poids 100gr;250gr;500gr;1000gr) , (F4 contient une liste de produit (amande;pistache;noix;...)
i5 = min pesée
J5 = max pesée
dans une deuxième feuille j'ai mis les valeurs min et max de chaque produit
je veux que min et max dans I5 et J5 seront remplies automatiquement par ex : si B5= 100 gr et F4= pistache i5=B10<feuille2>
un grand merci d'avance

[anasecu]

Bonjour,

Je crois que tu devrais nous expliquer différemment ton problème car ce n'est pas clair.

Dans une cellule tu n'as pas une liste par exemple...

[Menhir]

Si dans ta liste est écris "100 gr", il sera très compliqué de faire des opérations arithmétiques (comme le calcul du min et du max).
Il serait mieux de rentrer dans la colonne uniquement la valeur numérique et de faire apparaitre l'unité par le format de nombre (Personnalisé > Standard" gr").
Ceci fait, une simple fonction MAX() ou MIN ferait l'affaire.

[BENNASR]

Bonjour HAMMA, La forum
une proposition si j'ai compris la demande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$4" Then Exit Sub
Dim Tablo
Dim i As Long
Tablo = Sheets("Feuil2").Range("A2", "C" & Sheets("feuil2").Range("C" & Rows.Count).End(xlUp).Row)
With Sheets("feuil1")
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If IsNumeric(Application.Match(CStr(Tablo(i, 1)), .Cells(4, 6), 0)) Then
        .Cells(5, "I") = Tablo(i, 2)
        .Cells(5, "J") = Tablo(i, 3)
    End If
Next i
End With
End Sub

[xxmedxx]

est ce que je peux joindre mon fichier pour que tu m'aide?

[BENNASR]

avec quelques ligne de données...pas un grand fichier