Discussion :

[rsoul]

Bjour à tous!

Bonjour,
J'ai une colonne à k-lignes.
J'aimerais bcp inserer une cellule en k+1 contenant la moynne des données au dessus.

J'ai bien trouvé un code qui semble fonctionner pour une moyenne de lign, mais je n'arrive pas a faire l'adaptation.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub CalculMoyenne()
 
    Dim K As Long, Formule As String
 
    Range("A1").Select
    K = (Range("A1:IV1").End(xlToRight).Column + 1)
    Cells(1, K).Value = "Moyenne"
    Formule = "=AVERAGE(" & Cells(45, 1).Address & ":" & Cells(45, K - 1).Address & ")"
    Cells(45, K).Value = Formule
 
End Sub

Au plaisir de vous lire!!

[Hagendorf]

Bonjour,

Essaye avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub CalculMoyenne() 
Dim K As Long, Formule As String
Range("A1").Select
K = Selection.End(xlDown).Row + 1
cells(K, 1).FormulaLocal = "=MOYENNE(A1:A" & CStr(K - 1) & ")"
end Sub

[HabsWarrior]

Bonjour,

Voici la modification de ton code pour utilisation en colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CalculMoyenne()
 
    Dim K As Long, Formule As String
 
    Range("A1").Select
    K = Range("A65536").End(xlUp).Row + 1
    Cells(K, 1).Value = "Moyenne"
    Formule = "=AVERAGE(" & Cells(1, 1).Address & ":" & Cells(K - 1, 1).Address & ")"
    Cells(K + 1, 1).Value = Formule
 
End Sub

@+

[HabsWarrior]

Hagendorf : Désolé, j'avais pas vu que t'avais déja répondu...

[Hagendorf]

Bonjour HabsWarrior,

pas grave, c'est tjrs bien d'avoir plusieurs soluces. Merci

[rsoul]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub CalculMoyenneTerme()
 
  Sheets("Gestion").Activate
  Range("W1").Select
 
    K = (Range("W1").End(xlDown).Row + 1)
     Formule = "=AVERAGE(" & Cells(2, 23).Address & ":" & Cells(K - 1, 23).Address & ")"
    Cells(K, 23).Value = Formule
 
  End Sub

Voic le code finallement utilisé, merci pour votre aide, à bientot!