Discussion :

[tibss]

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]

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]

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]

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]

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]

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

[illight]

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 ?

[malhivertman1]

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]

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]

Pourquoi tu prend 3 fois la meme cellule ?

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

[tibss]

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

le message d'erreur est :

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