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

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:

---

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:

---

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

---

?

merci de m'éclairer :D

là je viens d'écrire :

Code:

---

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

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:

---

Dim moyenne(1 To 20) As String

---

enfin les chiffres changent en fonction de ce que tu veux

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% ...

:cry:
malhivertman1

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 ;)

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

Code:

---

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 :cry: lol

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

Toujours la même erreur?

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" ?

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 :mrgreen: ) :

Code:

---

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:

---

=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 ? :koi:

bonjour

tu peux essayer

Code:

---

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

oui car si tu fais

Code:

---

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

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:

---

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

Pourquoi tu prend 3 fois la meme cellule ?

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

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

Code:

---

1 2 3

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

---

le message d'erreur est :

Citation:

---

Impossible de lire la propriété average de al classe

---

:cry:

Nombre tu l'as définis en double j'espère ? :P

rebonjour


tu obtiens ce message d'erreur car une des 5 cellules est peut etre vide ...



bonne journée
michel

nan single lol