[VBA-E] faire la moyenne et afficher dans une cellule

**tibss** · 15/05/2006, 12h07

bonjour tout le monde, je voudrais réaliser une macro qui permette de prendre des éléments qui figurent sur une feuille, d'en faire la moyenne, et de recopier la moyenne dans une cellule d'une autre feuille.

exemple : sur une feuille1, j'ai 3 chiffres : en A1, A2 et A3, et je veux faire une moyenne que j'afficherai dans la cellule b2 du tableau de ma feuille 2.
sauriez vous comment ej peux m'y prendre?

Code :

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

1
2
Sheets("feuil1").Select
nombre = moyenne(A1; A2; A3)

après pour recopier le nombre dans la valeur sur l'autre feuille, c'est là que cela pose pbm : dois-je faire :

Code :

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

worksheet("feuil2").range(a1)=nombre

?

merci de m'éclairer

**tibss** · 15/05/2006, 12h18

là je viens d'écrire :

Code :

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

1
2
3
4
5
6
Dim nombre As String
Dim moyenne As String
 
Sheets("feuil3").Select
nombre = moyenne(A1, A2, A3)
Worksheet("UH").Range(c2).Value = nombre

et cela me met un message concernant "moyenne" : cela affiche :erreut de compilation, car tableau attendu.

Quelqu'un a t'il une idée?
merci d'avance

**malhivertman1** · 15/05/2006, 12h21

C'est parce que tu declare juste moyenne en string.
S'il te demande un tableau c'est sous cette forme la qu'il faut déclarer

Code :

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

Dim moyenne(1 To 20) As String

enfin les chiffres changent en fonction de ce que tu veux

**tibss** · 15/05/2006, 12h38

malhivertman1
merci malhivertman1, j'ai appliqué ton conseil,
malgré tout, il y a toujours un message d'erreur qui concerne moyenne et cela affiche : "nombre de dimensions incorect"

en fait je voudrais faire la moyenne de pourcentage dans un tableau, qui ont trois chiffre après la virgule et qui sont de la forme : 100,000% ...

malhivertman1

**malhivertman1** · 15/05/2006, 12h40

Je ne connais pas enormement bien les tableaux, donc change un peu les dimensions dans moyenne (1 to 20) et tu va bien par trouver

**tibss** · 15/05/2006, 12h46

oui, c'est ce que j'avais fait, ma moyenne variant entre 1 et 100, j'ai écri cela :

Code :

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

1
2
3
4
5
Dim nombre(1 To 100) As String
Dim moyenne(1 To 100) As String
Sheets("feuil3").Select
nombre = moyenne(A1, A2, A3)
Worksheet("UH").Range(c2).Value = nombre

mais ca continue de bloker

lol

merci en tout cas d'avoir essayé de m'aider

**malhivertman1** · 15/05/2006, 12h51

Toujours la même erreur?

**tibss** · 15/05/2006, 12h59

oui, il y a toujours el message d'erreur : "nombre de dimensions incorect"
peut être y a t'l ubn pbm dans ma fonction "moyenne" ?

**illight** · 15/05/2006, 13h02

Si tu veux juste calculer une moyenne tu peux utiliser cette fonction (que l'on peut améliorer surement je l'ai faite a la barbare

) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function calculmoyenne(nomF As String, NombreValeur As Long) As Long
Dim i As Integer
Dim ajout As Long
Dim f As Worksheet
Set f = Worksheets(nomF)
For i = 1 To NombreValeur
    ajout = ajout + f.Cells(i, 1).Value
Next i
calculmoyenne = ajout / NombreValeur
End Function

Ensuite dans ta feuille2, ou tu veux mettre la valeur tu met :

Code :

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

=calculmoyenne("Feuil1",3)

Evidemment, il faut que tu la modifie en fonction de ce que tu veux en faire

Je vois pas pourquoi en fait tu veux faire une variable tableau ?

**SilkyRoad** · 15/05/2006, 13h05

bonjour

tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Nombre As Single
Dim Ws As Worksheet
 
Set Ws = Sheets("Feuil3")
Nombre = _
Application.WorksheetFunction.Average(Ws.Range("A1"), _
Ws.Range("A2"), Ws.Range("A3"))
 
MsgBox Nombre
Worksheets("UH").Range("C2").Value = Nombre

bonne journée
michel

**malhivertman1** · 15/05/2006, 13h06

oui car si tu fais

Code :

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

1
2
3
 Dim moyenne(1 To 100) As String
 Sheets("feuil3").Select
 nombre = moyenne(A1, A2, A3)

ca ne te donnera pas la moyenne de A1, A2 et A3.
moyenne est compté comme variable la

**tibss** · 15/05/2006, 13h28

Merci tout le monde de m'avoir répondu,
SIlkyroad, j'ai utilisé ton pbm qui marchait très bien pour les 3 cellules que j'avais cité,

j'ai essayé de l'adapter pour d'autres cellules en écrivant :

Code :

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

1
2
3
4
Nombre = _
        Application.WorksheetFunction.Average(Ws.Range("A8"), Ws.Range("A14"), _
        Ws.Range("A20"), Ws.Range("A20"), Ws.Range("A20"), Ws.Range("A26"), _
        Ws.Range("A32"))

mais il y a un bugg.
Je ne pense pas avoir adapté le pgm kom il le fallait.

Aussi, ej voulais savoir pourrais tu m'expliquer la ligne de code que je viens de copier et qui pose pbm stp?
merci

**illight** · 15/05/2006, 13h31

Pourquoi tu prend 3 fois la meme cellule ?

Remarque ça devrait pas poser de problème..

**tibss** · 15/05/2006, 13h35

oui j'avais mis trois fois la mm cellule par erreur, malgré tout, le bugg est tjrs la :

Code :

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

1
2
3
Nombre = _
        Application.WorksheetFunction.Average(Ws.Range("A8"), Ws.Range("A14"), _
        Ws.Range("A20"), Ws.Range("A26"), Ws.Range("A32"))