XL 2019 Calcule de moyenne

[@badil]

Bonjour forum

Je suis encore debutant en Excel vba.

Je veux un programme, qui me permet de calculer la moyenne.
Je veux calculer la moyenne des élèves automatiquement et inserer sur la base de données ensuite afficher le resultat sur le textbox moyenne puis enregistrer dans la base de données.

Pouvez-vous m'aider avoir ce code.

 

[vgendron]

Bonjour et bienvenue

il va falloir un ennoncé plus clair... sinon la réponse va se limiter à
=moyenne()

 

[@badil]

Bonjour et bienvenue

il va falloir un ennoncé plus clair... sinon la réponse va se limiter à
=moyenne()

D'accord. Un instant. Merci

 

[@badil]

Sub CalculerMoyennes_Click()
Dim ws As Worksheet
Dim derniereLigne As Long
Dim i As Long
Dim moyenne1 As Double, moyenne2 As Double, moyenne3 As Double

' Définir la feuille de calcul
Set ws = ThisWorkbook.Sheets("Données")

' Trouver la dernière ligne avec des données dans la colonne A (ajustez si nécessaire)
derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Boucler à travers chaque ligne pour calculer les moyennes
For i = 1 To derniereLigne
' Calculer la première moyenne pour la plage B à D
moyenne1 = Application.WorksheetFunction.Average(ws.Range("B" & i & "😀" & i))
ws.Cells(i, "E").Value = moyenne1 ' Placer le résultat dans la colonne E

' Calculer la deuxième moyenne pour la plage F à H
moyenne2 = Application.WorksheetFunction.Average(ws.Range("F" & i & ":H" & i))
ws.Cells(i, "I").Value = moyenne2 ' Placer le résultat dans la colonne I

' Calculer la troisième moyenne pour la plage J à L
moyenne3 = Application.WorksheetFunction.Average(ws.Range("J" & i & ":L" & i))
ws.Cells(i, "M").Value = moyenne3 ' Placer le résultat dans la colonne M
Next i
End Sub


Voici le code que j'ai copie sur internet et j'ai adapté ça à mon problème, hélas ça ne marche pas.

 

[vgendron]

et peut etre un fichier pour travailler dessus? (pas de données perso dedans.. bien sur)

 

[@badil]

D'abord. Je reviens pour le fichier . Merci.

 

[sylvanu]

Bonjour Badli,
Sauf erreur dans les N° de colonnes et/ou valeurs non numériques, votre macro fonctionne correctement.
Voir PJ.

 

[@badil]

Voici ce que je veux que mon fichier ressemble , le probleme s'est le code pour l'executer .

1-Ouvrir le fichier
2- Cliquer sur le bouton1, il aura l'ouverture du userform 2
3- et sur userform 2 il y a des textbox que je dois remplir manuellement et un combobox pour selectionner l' élève puis appuyer sur le bouton moyenne pour calculer la moyenne de l'eleve sélectionné Ensuite afficher les moyennes dans les textbox puis enregistrer dans la base de données. Merci.

 

[vgendron]

Quel rapport entre le fichier posté et la macro "CalculerMoyennes" qui n'apparait nulle part??

Encore un enseignant qui s'imagine que nous sommes des élèves qui allons executer...
Je passe

 

[@badil]

Bonjour.
Desolé pour ce retard
À l'ouverture du fichier, il y'a une fenetre erreur qui s'affiche. Merci de m'aider.

 

[@badil]

Bonjour.
Desolé pour ce retard
À l'ouverture du fichier, il y'a une fenetre erreur qui s'affiche. Merci de m'aider.

Ci-joint le fichier.