IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

moyenne géométrique jusqu'à une case non vide


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    mai 2008
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : mai 2008
    Messages : 1
    Points : 1
    Points
    1
    Par défaut moyenne géométrique jusqu'à une case non vide
    Bonjour!
    Je voudrais appliquer ma formule géométrique jusqu'à la derniere case non vide de la colonne I. Sacchant que je peux rentrer des nouvelles valeurs Comment faire?
    Voici mon code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Range("H14") = (Range("G13") - Range("G14")) / Range("G14")
    Range("I14") = Range("H14") + 1
    nb_lignes = Range("H14").End(xlDown).Row - 13
     
    Range("J13").Select
    ActiveCell.FormulaR1C1 = "=GEOMEAN(I14:cells(9,nb_lignes)) "

  2. #2
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : février 2008
    Messages : 3 900
    Points : 7 954
    Points
    7 954
    Par défaut
    Bonjour et bienvenue,

    Premier petit détail, tu as inversé les coordonnées ligne et colonne de la Cells
    Cells(x, y) --> x = ligne et y = colonne

    Concernant ta formule, essaye comme ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("J13").FormulaR1C1 = "=GEOMEAN(I14:" & cells(nb_lignes, 9).Address & ")"
    LES FAQ OFFICE - LES COURS OFFICE - LES COURS EXCEL - LES LIVRES OFFICE - SOURCES VBA - ATELIER BRICOLAGE VBA

    Lorsque votre problème est solutionné, pensez à le signaler en cliquant sur le bouton au bas de la discussion.

Discussions similaires

  1. Réponses: 1
    Dernier message: 27/02/2015, 17h29
  2. [XL-2010] Moyenne de 12 cases non vides+ Mise en forme diagramme
    Par plonsqua63 dans le forum Excel
    Réponses: 12
    Dernier message: 28/11/2014, 09h10
  3. Réponses: 2
    Dernier message: 16/03/2012, 13h16
  4. [XL-2007] Boucle jusqu'à une cellule non vide?
    Par MANOU06 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/02/2011, 00h54
  5. [XL-2007] Valeur de la premiere case non vide au dessus d'une case x
    Par Sephiroth7777 dans le forum Excel
    Réponses: 1
    Dernier message: 10/07/2009, 01h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo