Macro VBA : min et max?

Bonjour,

Dans des macros VBA, j'insère certains calculs dans une cellules, comme par exemple :

    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[0]"

ou

    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[1]"

Mais comment rédiger ma macro si je souhaite insèrer la valeur minimale entre R[5]C[0] et R[5]C[1] ?

... plus généralement la valeur minimale parmi N cellules?

et la valeur maximale parmi N cellules?

Bonjour,

il n'est pas nécessaire de sélectionner une cellule pour y mettre une formule ou une valeur,

par exemple:

Range("B17") = Application.Min(Range("A5:B5"))

ou bien :

Range("B17").FormulaLocal = "=Min(" & Range("A5:B5").Address & ")"

sabV a écrit :

Bonjour,

il n'est pas nécessaire de sélectionner une cellule pour y mettre une formule ou une valeur,

par exemple:

Range("B17") = Application.Min(Range("A5:B5"))

ou bien :

Range("B17").FormulaLocal = "=Min(" & Range("A5:B5").Address & ")"

Merci pour ta réponse SabV,

Peux-tu me préciser la formule si les cellules concernées (aussi bien celle dont la macro modifie le contenu que celles concernées par la fonction min() ) sont dans un autres feuillet (disons Feuillet 2 par exemple), et si les cellules concernées par min() ne sont pas jointes, comme par exemple A1, C2 et D9 par exemple?

Merci

Bonjour,

Set sh = Sheets("Feuil2")
Range("B17").FormulaLocal = "=Min(" & sh.Name & "!A1;C2;D9)"

sabV a écrit :

Bonjour,

Set sh = Sheets("Feuil2")
Range("B17").FormulaLocal = "=Min(" & sh.Name & "!A1;C2;D9)"

Merci SabV !