Comparaison de deux valeurs VBA

Version imprimable

25/11/2013, 21h42
awa123

1 pièce(s) jointe(s)

Comparaison de deux valeurs VBA

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!!
25/11/2013, 22h04
casefayere

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

Code:

=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
25/11/2013, 22h05
awa123

dsl il me faut que du VBA

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:

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

25/11/2013, 23h38
awa123

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

pourriez vous m'aider svp
25/11/2013, 23h53
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à