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 :

tableau variable comtage case non vide


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2009
    Messages : 9
    Par défaut tableau variable comtage case non vide
    Bonojur,
    j'ai un petit souci de comptage de case non vide
    mon tableau de taille 6 lignes, contient les valeurs suivantes : 2777, 2777, 2777, 2778, 2700, vide.
    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Dim numlap As Variant
    'fonction qui remplit le tableau
     'comptage du nombre de ligne non vide du tab 
     j = 1
        While IsEmpty(numlap(j)) <> True 'tant que ligne tableau non vide
                            j = j + 1
        Wend
    Seulement j'obtient J=6 alorsque ce devrait être 5.
    Où est l'erreur? Je pensais que mon code éait bon, mais non.
    Merci de m'aider.

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2009
    Messages : 9
    Par défaut
    Re,
    bon, je me réponds moi même : j'ai rajouté un compteur qui marche mieux et j'obtiens ce que je veux. Pour ceux que ça intéresse:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    j = 1
     numappli = 0
        While IsEmpty(numlap(j)) <> True 'tant que ligne tableau non vide
                            numappli = numappli + 1
                            j = j + 1
        Wend

  3. #3
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonsoir,
    et ce code, testes le, en l'adaptant à tes cellules
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim x
        x = Application.WorksheetFunction.CountA(Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row))
        MsgBox x
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  4. #4
    Membre Expert Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Par défaut
    Salut,

    Pour revenir à ton code initial, car ton cas était logique tu initialise j à 1 donc après la première vérification j = 2, etc, c'est mathématique, tu pouvais donc faire

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    j = 0
        While IsEmpty(numlap(j+1)) <> True 'tant que ligne tableau non vide
                            j = j + 1
        Wend

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] vba éviter les cases non vides d'un tableau
    Par patoupartout dans le forum Excel
    Réponses: 2
    Dernier message: 09/12/2013, 17h23
  2. Réponses: 2
    Dernier message: 16/03/2012, 12h16
  3. moyenne géométrique jusqu'à une case non vide
    Par Amélie2407 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/05/2008, 17h03
  4. Calcul d'occurences de cases non vides.
    Par Julieta dans le forum Excel
    Réponses: 2
    Dernier message: 12/06/2007, 17h24
  5. Compter des cases non vides
    Par Lavip dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/05/2007, 21h10

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