Faire une somme et la rediriger vers la feuille 2

Addik04 -  
jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour, je suis un débutant dans la matière. Je veux faire une moyenne d'une série de 60 chiffres (de b1@b60) qui se trouve à la feuille 1, puis présenter le résultat de la moyenne à la feuille 2.

Cependant, je ne peux pas faire ceci avec les formules excel, je dois faire la somme et la diviser par le nombre de chiffre qu'il y a (60).

J'attends votre aide, merci

Will

2 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    en VBA ?

    Pourtant, cela ne pose aucun problème avec des formules....

    ?
    0
    1. Addick04
       
      C'est pour un travail. Je ne peux pas prendre la formule de la moyenne par exemple. Je dois la faire à la main, donc la somme et cette somme par le nombre de chiffre (60 dans mon cas)
      0
    2. PlacageGranby Messages postés 402 Statut Membre 26
       
      Bonjour

      La somme divisé par le nombre de chiffre sans utiliser la formule de la moyenne...

      =SOMME(Feuil1!B1:B60)/NBVAL(Feuil1!B1:B60)

      Tu mentionnes
      C'est pour un travail.
      Mais encore....
      Est-ce que tu as spécifiquement besoin de le faire via programmation VBA ?
      0
      1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > PlacageGranby Messages postés 402 Statut Membre
         
        Merci de répéter ce que j'ai écris...
        0
  2. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 832
     
    Bonjour,

    Pour le calcul ..Il te suffit d'utiliser une boucle...
    Sub somplage()
    Dim nb As Long
    Dim somme As Double
    Dim Rng As Range
    Set Rng = Range("A1:A60")
    
    somme = 0
    nb = 0
    For Each cell In Rng
    if cell.value <> "" then
      somme = somme + cell.Value
      nb = nb + 1
    end if
    Next
    
    Moyenne = somme / nb
    
    MsgBox Moyenne
    
    End Sub
    
    


    Après.. pour l'afficher sur la feuille 2 .. je te laisse faire.
    Je pense que tu vas savoir.

    Si c'est pour un exercice... tu dois avoir un minimum de connaissances....
    sinon pourquoi t'avoir donner ça à faire...

    0