Calcul de moyenne quadratique est affichage du résultat
Bonjour
J'ai une série de moyennes quadratiques de valeurs par secteur à calculer et je voudrais que les résultats se classe dans la feuille 2 par nom de secteur.
Les nom de secteur sont dans la colonne E et les valeurs dans O.
Je voudrais que ma macro parcourt la colonne E et calcul la moyenne quadratique de toutes les valeurs (colonne O) qui ont un nom de secteur (colonne E) identique.
Les deux dernières lignes (ci-dessous) qui servent à afficher le résultat dans la feuille 2 provoque un bug et je ne sais pas pourquoi.
Pmoy.Value = (P2 / deno) ^ 0.5
bloc.Value = Sheets("Feuil1").Range("E" & Lig)
Je suis débutant en VBA, je commence seulement l'écriture de cette macro, elle n'est donc pas complète. La première étape que je cherche à rédiger est : Détecter les valeurs du premier secteur, faire une itération sur le nombre de valeurs et sur les numéro de lignes et afficher le premier résultat dans la feuille n°2.
Est-ce que quelqu'un peut m'aider s'il vous plait ?
Sub P_moy()
Dim Pmoy As Variant 'Cellule d'affichage de la valeur moyenne
Dim bloc As Variant 'Cellule d'affichage du bloc
Dim deno As Integer 'Dénominateur de la fraction quadratique et nombre de valeur dans le secteur
Dim Lig As Integer 'Compteur de Ligne
Dim hop As Integer 'compteur relatif de valeur
Dim nbLig As Integer 'Nombre total de ligne
Dim P2 As Integer 'Pression au carré
Dim num As Integer 'Compteur de bloc
num = 1
deno = 1
Lig = 1
hop = Lig - 1 + deno
nbLig = ActiveSheet.UsedRange.Rows.Count
Pmoy = Sheets("Feuil2").Range("B" & num)
bloc = Sheets("Feuil2").Range("A" & num)
While Sheets("Feuil1").Range("E" & Lig) = Sheets("Feuil1").Range("E" & Lig + 1)
P2 = P2 + Sheets("Feuil1").Range("O" & Lig) ^ 2
Lig = Lig + 1
deno = deno + 1
Wend
Pmoy.Value = (P2 / deno) ^ 0.5
bloc.Value = Sheets("Feuil1").Range("E" & Lig)
End Sub
Bonjour et bienvenue sur le forum
Pourrais-tu joindre ton fichier ?
Bye !
Je vais essayer ça demain, je n'ai pas la suite Microsoft sur mon ordinateur perso.
Merci