Bonjour tout le monde !
J'aimerais affecter une formule avec la fonction excel "min" à une cellule. Voici le code que j'ai tapé (je me suis servi de l'aide en ligne) :
La dernière ligne marche bien, mais celles avec ".Formula" (J'ai fais deux lignes pour savoir si le problème venait du Range) me donne une erreur (#NOM?). Je ne comprend pas pourquoi...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub min() Dim cel As Range, cel2 As Range, F As Worksheet Set F = ThisWorkbook.Worksheets("Sheet3") Set cel = Range(F.Cells(3, 5), F.Cells(7, 5)) Set cel2 = F.Range("E3:E7") F.Range("A40").Formula = "=min(cel)" F.Range("A39").Formula = "=min(cel2)" F.Range("A41").Value = Application.WorksheetFunction.min(cel) End Sub
Partager