Max, Min and Co...

[kiorys]

Slt le forum

qq'un pourrait-il me donner les fonctions en VBA permettant de donner le max, le min, la moyenne, l'ecart type ... etc... d'une serie de valeurs.
ces valeurs sont stockées dans des variables.
merci

 

[MR]

Bonjour,

utilise dans la barre d'outils (fonctions:fx et choisir statistiques). tu as tout là-dedans

 

[Cathy]

Salut le forum et Kyoris,

Si tu utilises l'enregistreur de macros il te donne le nom en VBA ex. :

=min(...)
=max(...)
=average(...)
=stdev(...)
etc...

Cathy

 

[@+Thierry]

Salut Cathy, MR, Kiorys et les amies/amis

Max, Min etc doivent être utilisé en VBA en tant que "WorksheetFunction"...

Voici ce que donne un exemple extrait de l'aide (sans le Trombone "syvouplé"!!) lol

Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub

Voilà comme ça c'est simple (faire un F1 sur WorkSheetFunction... Puis cliquer sur le lien "WorksheetFunction" et ensuite sue "Méthode" il y aura là "List of WorksheetFunction".... et Hop elles sont toutes là avec un pavé alpha pour les trouver ........ (Et le Trombone est resté sans voix !! lol)

Bon aprèm
@+Thierry

 

[kiorys]

Alleluia et Merci Thierry.
j'imagine donc qu'il n'y a aucun autre moyen d'avoir acces a des fonctions VBA similaires sans passer par ce "WorksheetFunction" ??
Bah, tant que ca marche...

Merci MR et Cathy
Et a la volee, un autre Merci egalement a Cathy pour ses blagues.

 

[@+Thierry]

Pour le précision Kiorys.....

Toutes les fonctions Excel ont été envahies par les légions "WorkSheetFunction"....... Toutes....... NON !! Sauf une poignée d'irréductibles Functions qui résistent encore et toujours à cette méthode !!! lol

Non sans déconner, il y a quelques functions qui sont souvent utilisées et qui peuvent être compilées directement...

Je ne vais pas te faire une liste complète... mais voici quelques unes :
Left(string, length)
Right(string, length)
Round(expression [,numdecimalplaces])
Weekday(date, [firstdayofweek])
WeekdayName(weekday, abbreviate, firstdayofweek)
Year(date)

Bonne Soirée
@+Thierry

 

[kiorys]

Merci pour les precisions Thierry
J'etais a 1000 lieus d'imaginer cela car etant pour la premiere fois confronte a un pb de functions dans vba
maintenant que je connais ce fameux WorksheetFunction...

 

[Cathy]

Bonsoir les zamis du forum,

justement, j'essaye d'obtenir une date avec le 1er du mois

L'équivalent de

=DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());1) mais en VBA

ainsi que de

=jour(fin.mois(A1);0)

suivant l'exemple de @+thierry :
answer = year(Date)

ça, ça marche pour l'année en cours, mais comment utiliser l'équivalent de la fonction date sachant qu'en VBA "date" donne l'équivalent de MAINTENANT()?

et aussi le jour de la semaine en lettre (samedi 1 février 2003) pour mettre le tout dans un nom d'onglet. C'est faisable? (prise de tête!!!)

Merci à toutes celles et tous ceux qui auraient la gentillesse de se pencher (pas trop) sur le sujet et d'apporter ne serait-ce qu'un élément de réponse.

Bonne soiréee.

C@athy