Discussion :

[awa123]

Bonjour,

A partir du fichier joint (by rjamin) j'aimerai comparai 2 valeurs par colonnes et sélectionné la plus faible.

voir le fichier où j'ai montré le résultat attendu

merci beaucoup!!

[casefayere]

Bonsoir,
si tu essayais par formule, en C15, cette formule

Code :

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

=MIN(INDIRECT(ADRESSE(6;EQUIV(C14;$C$5:$K$5)+2));INDIRECT(ADRESSE(7;EQUIV(C14;$C$5:$K$5)+2)))

que tu tires vers la droite

[awa123]

dsl il me faut que du VBA

[casefayere]

Je ne comprends pas trop l'étendue de tes plages mas je pense, si j'ai compris que la réponse est là (à adapter, bien sur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Worksheets("Feuil1")
  Set Plage = .Range(.Cells(5, 3), .Cells(5, .Columns.Count).End(xlToLeft))
 
'Recherche les valeurs qui ont un 1 à la fin sur la ligne 5 (a partir de la cellule C5)
For Each Cel In Plage
    If Right(Cel, 1) = 1 Then
    'Nombre de valeurs à recopier
    ColAct = Split(Cel.Address, "$")(1)
    Set DL = .Range(ColAct & .Rows.Count).End(xlUp)
    Set Plagec = .Range(Cel(2, 1).Address, DL)
    Cel.Offset(10, 0) = WorksheetFunction.Min(Plagec)
    End If
Next Cel
End With

[awa123]

je n'arrive pas à insérer votre code sans bugs

pourriez vous m'aider svp

[casefayere]

J'ai mis le code ans un bouton, le seul problème est que tu va chercher des colonnes jusqu'en ligne 28 mais les résultat est attendu en ligne 15, la structure est à revoir ou le code est à modifier mais le principe est là