fonction "ecart type" automatique

[papat]

bonsoir, je souhaiterais utiliser la fonction "ecart type " juste en passant le curseur sur les cellules qui m'interessent en les mettant en surbrillance.est ce possible ?? merci a vous.

 

[jeanpierre]

Re : fonction "ecart type" automatique

Bonsoir papat, re tous,

Tu fais fort, là,

Déjà, dans Excel, en cliquant droit, tout en bas, on a déjà quelques fonctions, Somme, Max, Mix et quelques autres dont je ne me souviens plus....

On peut donc envisager la réponse à ta question...., mais, là, il faut des violents en VBA....

Pour moi, j'envisagerai plutôt un code, selection des cellules et renvoi ou dans la feuille, ou dans une boîte de message...

Déjà qu'écart type, je n'utilise pas.....

 

[papat]

Re : fonction "ecart type" automatique

bonsoir jeanpierre ,a tous
je tentais juste pour voir,si quelqu'un connaissais une petite astuce comme celle que tu decrits en cliquant droit en bas ! je te remercie.C

 

[jeanpierre]

Re : fonction "ecart type" automatique

Re,

Je n'ai pas dit que c'était impossible...... (dans ma tête, je pense que cela ne l'est pas, possible... enfin, tel que tu le demandes..)

Mais, comme ici, rien n'est impossible.... On attend donc....

 

[Staple1600]

Re : fonction "ecart type" automatique

Bonsoir à tous


Pour reprendre l'idée de jeanpierre

Sub Test()
With Application.CommandBars("AutoCalculate").Controls.Add
.Caption = "Ecart Type"
.OnAction = "fEcartType"
End With
End Sub

Sub fEcartType()
'ici mettre le code adéquat
End Sub

 

[Cousinhub]

Re : fonction "ecart type" automatique

bonsoir staple (ps merci pour le test du fichier de cris²11), jeanpierre, papat, le forum

dans le code de la feuille tu mets

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Call ess2
End Sub

et dans un module standard

Sub ess2()
Application.DisplayStatusBar = True
Application.StatusBar = Format(Application.StDev(Selection), "0.00")
End Sub

Dès que tu sélectionnes plus d'une cellule, tu auras l'écart type dans la barre d'état en bas à gauche.
Bonne soirée

 

[Cousinhub]

Re : fonction "ecart type" automatique

Re-,
et en complément, tu rajoutes ceci dans le code de la feuille

Private Sub Worksheet_Deactivate()
Application.StatusBar = False
End Sub

pour arrêter l'affichage du résultat dès que tu quittes la feuille

 

[jeanpierre]

Re : fonction "ecart type" automatique

Bonsoir bhbh,

Ben, oui, que disais-je, pas possible, sauf ici.....

Et toc.... pffff...

Format(Application.StDev(Selection), connais pas.......

Bonne soirée et merci, là...

Jean-Pierre

 

[Cousinhub]

Re : fonction "ecart type" automatique

Re JP,
bah, c'était juste pour faire fort pour mon 500 ème

 

[jeanpierre]

Re : fonction "ecart type" automatique

Re bh^2

Félicitations, j'avais même pas vu....

Bonne soirée.