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 :

Range("A1") CurrentRegion.Rows Count


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    156
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : Tunisie

    Informations forums :
    Inscription : Septembre 2007
    Messages : 156
    Par défaut Range("A1") CurrentRegion.Rows Count
    bonjour
    je débute sur les macros d'excel et le VBA..
    je vous demande une question à propos de la fonction :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    m=Range("A1").CurrentRegion.Rows.Count
    sachant que A1 est la première cellule de mon tableau, je veux que m me rend le nombre de lignes de ce tableau.
    le problème c'est que j'ai essayé avec un tableau de 5000 lignes mais ça ne me renvoie que 2000 lignes.
    Merci d'avance.

  2. #2
    Membre Expert
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    Avril 2008
    Messages
    875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 875
    Par défaut
    le décompte s'arrête à la première ligne complètement vide

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    156
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : Tunisie

    Informations forums :
    Inscription : Septembre 2007
    Messages : 156
    Par défaut
    merci c'est clair, sauf que pour éliminer ces ligne vide, je dois parcourir le tableau de bas en haut, pour ce là j'ai besoin de savoir le nombre de ligne total.
    avez vous une idée svp
    Merci

  4. #4
    Membre Expert
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    Avril 2008
    Messages
    875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 875
    Par défaut
    est ce que ceci vire les lignes vides?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    with Activesheet.UsedRange
         .Sort key:=.Range("A1"), header:=xlGuess
    end with
    à adapter bien sûr si on ne travaille pas sur la feuille active
    mais attention ça va trier toutes le données de la feuille. Used range est la zone de la feuille utilisée

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    156
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : Tunisie

    Informations forums :
    Inscription : Septembre 2007
    Messages : 156
    Par défaut
    Non pas encore;
    j'ai l'erreur d'exécution 1004
    :s

  6. #6
    Membre Expert
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    Avril 2008
    Messages
    875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 875
    Par défaut
    pardon c'était ça


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    with Activesheet.UsedRange
         .Sort key1:=.Range("A1"), header:=xlGuess
    end with

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

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