Fonction "Mini" en VBA ?

[jmh1]

Bonsoir tous le monde,

Je voudrai que VBA me mette dans une variable la valeur mini d'une plage de cellules.

J'ai essayé avec le code suivant :

Worksheets("datas").Activate
Range("E6").Select

mfimin = Min(ActiveCell.Offset(0, 35).Value, ActiveCell.Offset(0, 37).Value)

Mais apparemment, VBA ne comprend pas mon "Min".

Quelqu'un pourrait-il me dire où je fais une erreur ?

Merci

 

[Pierrot93]

Re : Fonction "Mini" en VBA ?

Bonsoir,

"min" n'est pas une fonction de vba, il faut utiliser les fonctions de feuilles de calculs :

x = WorksheetFunction.Min(taplage)

bonne soirée
@+

 

[WISEDOME]

Re : Fonction "Mini" en VBA ?

Salut jmh1,

remplace ta formule par : mfimin=WorksheetFunction.min(ActiveCell.Offset(0, 35).Value, ActiveCell.Offset(0, 37).Value)

A+

 

[WISEDOME]

Re : Fonction "Mini" en VBA ?

Salut jmh1,

remplace ta formule par : mfimin=WorksheetFunction.min(ActiveCell.Offset(0, 35).Value, ActiveCell.Offset(0, 37).Value)

Désolé pierrot pour la collusion.

A+

 

[jmh1]

Re : Fonction "Mini" en VBA ?

Bonsoir, merci pour ta réponse.

Maintenant c'est la définition de ma plage qui n'a pas l'air de plaire à VBA.

Comment lui dire de faire le calcul avec la commande offset de la cellule actuelle aux cellules +35 à +37.

Merci

 

[Gardien de phare]

Re : Fonction "Mini" en VBA ?

Bonjour,

Exemple de syntaxe :

Sub test()
Dim rr As Range, res As Long
Set rr = ActiveSheet.Range("A1")
res = Application.WorksheetFunction.Min(Range(rr.Offset(0, 2), rr.Offset(0, 5)))
MsgBox res
End Sub

HTH

 

[job75]

Re : Fonction "Mini" en VBA ?

Bonjour à tous,

Comment lui dire de faire le calcul avec la commande offset de la cellule actuelle aux cellules +35 à +37.

On peut se passer des Offset :

Sub test()
Dim cel As Range, mfimin As Double
Set cel = Sheets("datas").[E6]
mfimin = Application.Min(cel(1, 36).Resize(, 3))
MsgBox mfimin 'pour tester
End Sub

A retenir : en VBA les Select et autre Activate sont en général inutiles, donc à proscrire.

A+