Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Moyenne automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion monsieurjulien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

monsieurjulien

Guest
Bonjour,

J'utilise Excel Mac 2011.
Je désirerais dans une feuille avoir :
- une première cellule utilisée pour la saisie de nombres (j'entre une valeur, je valide et la cellule devient à nouveau vierge)
- une seconde, qui afficherait automatiquement la moyenne de toutes les valeurs saisies dans la première
Je ne maîtrise pas du tout VBA, c'est pourquoi je sollicite l'aide du forum.
Merci d'avance
 
Trier par date Trier par votes
Re : Moyenne automatique

Bonjour monsieurjulien, salut bruno66, kingfadhel,

Bravo, c'est un problème tout à fait intéressant, j'ai mis un Like au post #1.

Voyez le fichier joint et ces macros dans le code de la feuille :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim tablo(), i&
Target.Select
If IsError([saisies]) Then
  ThisWorkbook.Names.Add "saisies", Target.Value
Else
  ReDim tablo(Application.Count([saisies]), 0)
  For i = 0 To UBound(tablo) - 1
    tablo(i, 0) = Application.Index([saisies], i + 1)
  Next
  tablo(i, 0) = Target
  ThisWorkbook.Names.Add "saisies", tablo
End If
Target = ""
Target(1, 2) = Application.Average([saisies]) 'moyenne
End Sub

Private Sub CommandButton1_Click() 'Visualisation (des saisies)
If Not IsError([saisies]) Then [D2].Resize(Application.Count([saisies])) = [saisies]
End Sub

Private Sub CommandButton2_Click() 'RAZ
[A2:B2,D:D].ClearContents
If Not IsError([saisies]) Then ThisWorkbook.Names("saisies").Delete
End Sub
Les saisies en A2 sont mémorisées dans le nom défini saisies.

Les 2 boutons ne sont pas indispensables mais ils sont fort utiles :

- "Visualisation" permet d'afficher les nombres saisis depuis l'origine

- "RAZ" remet tout au point de départ.

Edit : bonjour Roger2327, je ne vous avais pas vu.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Moyenne automatique

Re,

Merci beaucoup Christian 🙂

Cela marchait bien avec un tableau à une dimension.

J'ai voulu passer à un tableau à deux dimensions (pour éviter Application.Transpose) et j'ai mal testé.

Alors revenons au tableau à une dimension :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim tablo(), i&
Target.Select
If IsError([saisies]) Then
  ThisWorkbook.Names.Add "saisies", Target.Value
Else
  ReDim tablo(Application.Count([saisies]))
  For i = 0 To UBound(tablo) - 1
    tablo(i) = Application.Index([saisies], i + 1)
  Next
  tablo(i) = Target
  ThisWorkbook.Names.Add "saisies", tablo
End If
Target = ""
Target(1, 2) = Application.Average([saisies]) 'moyenne
End Sub

Private Sub CommandButton1_Click() 'Visualisation (des saisies)
If Not IsError([saisies]) Then _
  [D2].Resize(Application.Count([saisies])) = Application.Transpose([saisies])
End Sub

Private Sub CommandButton2_Click() 'RAZ
[A2:B2,D:D].ClearContents
If Not IsError([saisies]) Then ThisWorkbook.Names("saisies").Delete
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Moyenne automatique


Les macros de ton fichier tourne, mais bloque dés qu'on saisie la 3éme valeur.
peut etre un problème au niveau des dimensions du tableau déclaré vba
 
Vote positif 0 Vote négatif
Re : Moyenne automatique

Bonsoir à tous.


On n'est pas obligé d'utiliser la très-douteuse fonction Transpose :​
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim tablo(), i&, u
Target.Select
If IsError([saisies]) Then
  ThisWorkbook.Names.Add "saisies", Target.Value
Else
  ReDim tablo(Application.Count([saisies]), 0)
  For i = 0 To UBound(tablo) - 1
    u = Application.Index([saisies], i + 1)
    On Error Resume Next
    tablo(i, 0) = u
    tablo(i, 0) = u(1)
    On Error GoTo 0
  Next
  tablo(i, 0) = Target
  ThisWorkbook.Names.Add "saisies", tablo
End If
Application.EnableEvents = False '(ça évitera des appels inutiles à Worksheet_Change...)
Target = ""
Target(1, 2) = Application.Average([saisies]) 'moyenne
Application.EnableEvents = True
End Sub


Bonne soirée.


ℝOGER2327
#6957

Jeudi 5 As 141 (Saint Van Meegeren, faussaire - fête Suprême Quarte)
17 Brumaire An CCXXII, 7,6738h - cresson
2013-W45-4T18:25:02Z
 
Vote positif 0 Vote négatif
Re : Moyenne automatique

Re,

Merci Roger d'avoir complété mon travail, votre macro du post #11 va très bien.

En effet, avec ma macro du post #8, le nombre d'éléments de la matrice mémorisée ne pouvait pas dépasser 256.

A+
 
Vote positif 0 Vote négatif
Re : Moyenne automatique

Re,

Bon j'ai finalement compris pourquoi ma macro du post #6 ne marchait pas.

Il fallait simplement ne pas omettre la colonne (1) dans Application.Index([saisies], i + 1, 1) :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Not IsNumeric(CStr(Target)) Then Exit Sub
Dim tablo(), i&
Target.Select
If IsError([saisies]) Then
  ThisWorkbook.Names.Add "saisies", Target.Value
Else
  ReDim tablo(Application.Count([saisies]), 0)
  For i = 0 To UBound(tablo) - 1
    tablo(i, 0) = Application.Index([saisies], i + 1, 1)
  Next
  tablo(i, 0) = Target
  ThisWorkbook.Names.Add "saisies", tablo
End If
Target = ""
Target(1, 2) = Application.Average([saisies]) 'moyenne
End Sub

Private Sub CommandButton1_Click() 'Visualisation (des saisies)
If Not IsError([saisies]) Then _
  [D2].Resize(Application.Count([saisies])) = [saisies]
End Sub

Private Sub CommandButton2_Click() 'RAZ
[A2:B2,D:D].ClearContents
If Not IsError([saisies]) Then ThisWorkbook.Names("saisies").Delete
End Sub
Nota pour Roger : les Application.EnableEvents sont inutiles puisqu'au début on teste avec :

Code: 
If Not IsNumeric(CStr(Target)) Then Exit Sub
Fichier (3).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Moyenne automatique

Re...


job75 à dit:
(...)
Nota pour Roger : les Application.EnableEvents sont inutiles puisqu'au début on teste avec :

Code: 
If Not IsNumeric(CStr(Target)) Then Exit Sub
(...)
Cliquez pour agrandir...
C'est exact, mais il n'en est pas moins exact que chaque fois que vous validez une valeur en A2, Worksheet_Change est appelé trois fois : une fois lors de la validation, une fois lors de l'exécution de la ligne​
VB: 
Target = ""
et une fois lors de l'exécution de la ligne​
VB: 
Target(1, 2) = Application.Average([saisies])
Ce n'est pas grave puisque les deux derniers appels sont interceptés par l'une des deux premières lignes de code. Ce n'est pas grave, mais c'est inutile.​


Bonne nuit.


ℝOGER2327
#6958

Jeudi 5 As 141 (Saint Van Meegeren, faussaire - fête Suprême Quarte)
17 Brumaire An CCXXII, 9,3701h - cresson
2013-W45-4T22:29:18Z
 
Vote positif 0 Vote négatif
Re : Moyenne automatique

salut

j'en étais là
Code: 
Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address <> "$A$2" Then Exit Sub
  If R = "" Then Exit Sub
  If Not IsNumeric(R) Then R = "": Exit Sub
  If R(1, 2) = "" Then n = 0: s = 0
  n = n + 1: s = s + R
  R(1, 2) = s / n
  R = "":  R(1, 1).Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
Microsoft 365 calcul d'une moyenne automatique par trimestre, semestre et annuelle
Réponses
0
Affichages
169
Daniel200666
D
  • Question Question
XL pour MAC Saisie automatique sur facture
Réponses
3
Affichages
222
Piment
P
M
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
315
AtTheOne
K
  • Question Question
Microsoft 365 Gestion de certificat
Réponses
1
Affichages
177
Piment
P
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
709
jeff1494
B
  • Résolu(e)
Microsoft 365 Fonction Si - Ne renvoie pas à la bonne référence
2
Réponses
22
Affichages
940
BSF
B
M
  • Résolu(e)
Microsoft 365 Formules (imbriquées) pour suivi action
Réponses
4
Affichages
346
AtTheOne
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
401
NikonvsWild
N
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
768
SAMUAL_2023
S
E
  • Question Question
Moyenne flottante en fonction de conditions
Réponses
1
Affichages
416
gbinforme
G
E
  • Question Question
Microsoft 365 Faire une moyenne sur une plage variable
Réponses
2
Affichages
494
erch29
E
  • Question Question
XL 2013 Filtrage automatique des résultats de recherche
Réponses
11
Affichages
625
TooFatBoy
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
561
Yogean
Y
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
438
gbinforme
G
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
  • Question Question
Microsoft 365 Ajout de formule sur tableau
2
Réponses
16
Affichages
933
FredeX
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
606
Phil69970
C
  • Résolu(e)
XL 2016 Ajustement automatique de la largeur d'une colonne
Réponses
5
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
450
flc13090
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
372
olivier Clech
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…