calcul auto moyenne...

Papou-net

XLDnaute Barbatruc

• 25 Novembre 2009

• #2

Re : calcul auto moyenne...

Bonjour nypon,

Peut-être qu'en modifiant ton code ainsi ?

Code:

Sheets(1).Range("C2:C" & Range("A65536").End(xlUp).Row).Select
Set plage = Selection.currentRegion
Sheets(1).Range("A:A").End(xlDDown).End(xlToLeft).Offset (2.2).Select
ActiveCell.Formula = "=average([COLOR="Red"]" & [/COLOR]plage[COLOR="Red"] & "[/COLOR])"

Attention, bien respecter l'espace avant et après les '&'.

Espérant avoir répondu.

Cordialement.

Code:

[COLOR="Red"][/COLOR]

 

Vote positif 0 Vote négatif

nypon

XLDnaute Nouveau

• 25 Novembre 2009

• #3

Re : calcul auto moyenne...

Bonsoir,

Merci pour la réponse.

ça aide car je vois que ce que j'ai fait n'est pas absurde.

J'avais essayé cette solution mais c'est la même chose à l'affichage dans la barre des fonctions.

d'autres idées ?

Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Novembre 2009

• #4

Re : calcul auto moyenne...

Bonjour à tous,

Ton fichier pèse 14.5 Ko...

Merci de le déposer sur XLD

A+ à tous

 

Vote positif 0 Vote négatif

nypon

XLDnaute Nouveau

• 25 Novembre 2009

• #5

Re : calcul auto moyenne...

Bonsoir,

Désolé, l'habitude de passer par ci-joint.

Voici mon fichier en pièce jointe

 

Pièces jointes

• calcul_auto_moyenne.xls

  14.5 KB · Affichages: 59

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Novembre 2009

• #6

Re : calcul auto moyenne...

Bonjour à tous,

Es-tu obligé de passer par du code ?

A+

 

Pièces jointes

• JC Calcusl Divers.xls

  97 KB · Affichages: 63

Vote positif 0 Vote négatif

nypon

XLDnaute Nouveau

• 25 Novembre 2009

• #7

Re : calcul auto moyenne...

Bonsoir,

Merci pour le fichier.

En fait, j'ai beaucoup de colonnes et beaucoup de lignes en réalité.
je souhaitais avoir un code pour automatiser mes manipulations.

Les calculs des moyennes de chaque colonne font partie d'un processus plus important que j'ai réussit à automatiser.

Maintenant, je suis bloqué au niveau des colonnes et c'est pourquoi je souhaitais avoir un processus entier en VB.

Je vous remercie pour vos réponses. Connaissez vous un code qui permette d'automatiser le calcul des moyenne pour chaque colonne ?

Merci et bonsoir.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Novembre 2009

• #8

Re : calcul auto moyenne...

nypon à dit:

Bonsoir,

Merci pour le fichier.

En fait, j'ai beaucoup de colonnes et beaucoup de lignes en réalité.
je souhaitais avoir un code pour automatiser mes manipulations.

Les calculs des moyennes de chaque colonne font partie d'un processus plus important que j'ai réussit à automatiser.

Maintenant, je suis bloqué au niveau des colonnes et c'est pourquoi je souhaitais avoir un processus entier en VB.

Je vous remercie pour vos réponses. Connaissez vous un code qui permette d'automatiser le calcul des moyenne pour chaque colonne ?

Merci et bonsoir.

Cliquez pour agrandir...

Bonsoir,

Un exemple de code pour calculer la moyenne de la plage A1:A20 (à adapter à ton usage).

Code:

Range("B1") = Application.Average(Range("A1:A20"))

Cordialement.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 25 Novembre 2009

• #9

Re : calcul auto moyenne...

Bonsoir à tous

A tout hasard :

Code:

[COLOR="DarkSlateGray"][B]Sub tata()
   With Range(Range("C1"), Range("C1").End(xlToRight).End(xlDown))
      .Offset(1 + .Rows.Count, 0).Resize(1, .Columns.Count).Formula = _
         "=AVERAGE(OFFSET(" & .Columns(1).Address & ",0,COLUMN()-3))"
   End With
End Sub[/B][/COLOR]

Mais ai-je bien compris le problème ?​

ROGER2327
#2229

 

Vote positif 0 Vote négatif

nypon

XLDnaute Nouveau

• 26 Novembre 2009

• #10

Re : calcul auto moyenne...

Bonjour le Forum,

Bonjour Roger, Papounet.

Merci pour votre aide. le code de Roger fonctionne à merveille 😉
Je vais l'adapter et aussi l'utiliser pour les mmax ecart-type...

Je vous remercie vraiment.

Merci le forum XLD 😀

 

Vote positif 0 Vote négatif