High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Calcul moyenne sur VBA excel

Dernière réponse le 16 jui 2008 à 01:01:42 Amanda, le 11 jan 2008 à 11:43:09 
 Signaler ce message aux modérateurs

Bonjour,

J'ai un tableau excel de k colonnes. Je commence par rechercher la première cellule vide (cellule (1,k)). Et là je veux calculer une moyenne de toute ma ligne soit de la cellule A1 à Ak.
Mais je n'y parviens pas.
Voici mon code :

k = 1
Cells(1, 1).Select

While Cells(1, k).Value <> ""
k = k + 1
Wend

Cells(1, k).Select
Cells(1, k).Value = "Moyenne"
Cells(45, k).Select
ActiveCell.FormulaR1C1 = "Average(Cells(45, 1), Cells(45, k))"

Ceci va ecrire ds ma cellule (45,k) "Average(Cells(45, 1), Cells(45, k))"
mais ce ne fait pas le calcul...

Quelqu'un peut m'aider?

Configuration: Windows XP
Internet Explorer 6.0

Posez votre question Répondre

1

Lupin.A, le 11 jan 2008 à 14:25:59
  • +1

Bonjour, 

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
'

Lupin

   
Répondre à Lupin.A

2

Amanda, le 11 jan 2008 à 14:57:55

MERCI beaucoup!!!!

   
Répondre à Amanda

3

 manu, le 16 jui 2008 à 01:01:42

Je suis un jeune architecte excuses aimerait savoir que les programmes de coût du travail recommandez-vous je ne peux pas acheter un original ou si je peux envoyer une page Web pour télécharger les programmes ou architect'm ici au Chiapas, il n'ya pas beaucoup de programme de travail de coût vente de livres coûteux et je n'ai pas besoin d'un demi-salut de son ami Manuel de Tuxtla Gutierrez Chiapas mexique

   
Répondre à manu
Posez votre question Répondre
Ils ont besoin de votre aide