Discussion :

[pythagore3_14]

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) :

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

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...

[zazaraignée]

Je crois que c'est l'adresse des cellules que doivent contenir les formules de cellules... donc:

Code :

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

1
2
    F.Range("A40").Formula = "=min(" & cel.Address & ")"
    F.Range("A39").Formula = "=min(" & cel2.Address & ")"

Si ça ne fonctionne toujours pas, tu dis

[pythagore3_14]

Ca marche; merci !