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 :

Excel 2003 et 2007 : Lignes et colonnes


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    306
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 306
    Points : 164
    Points
    164
    Par défaut Excel 2003 et 2007 : Lignes et colonnes
    Bonjour,

    C'est peut être une question bête mais je me lance :

    Il y a 65 536 lignes en 2003 et 1 048 576 lignes en 2007.

    or pour calculer la dernière ligne utilisée d'une colonne A, on écrit :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    B=cells(NbrMaxLignes,A).end(xlup).row
    Le problème est bien évidemment que, travaillant sur des fichiers 2003 et 2007 (selon les clients), si je marque

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    B=cells(65536,A).end(xlup).row
    je risque d'avoir B=1 s'il y a plus de 65 536 lignes, et si je marque :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    B=cells(1048576,A).end(xlup).row
    je m'expose à une erreur.

    Comment vous faites ? (sans passer par la détermination de la version d'Excel ?)

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
        NoLigne = 10
        DerniereColonne = Cells(NoLigne, Rows(NoLigne).Cells.Count).End(xlToLeft).Column
        NoCol = 5
        DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    306
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 306
    Points : 164
    Points
    164
    Par défaut
    Super !
    Merci bcp.

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

Discussions similaires

  1. Macro VBA EXCEL 2003 vers 2007
    Par Jacques13170 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/04/2008, 20h23
  2. Réponses: 2
    Dernier message: 27/02/2008, 19h45
  3. [EXCEL 2003] Coloriser des lignes de sous-totaux
    Par FINGIB dans le forum Excel
    Réponses: 4
    Dernier message: 09/11/2007, 10h05
  4. Une table excel liée mais de lignes en colonnes
    Par docjo dans le forum Access
    Réponses: 3
    Dernier message: 31/10/2007, 10h32
  5. C# Création d'un fichier excel 2003 et 2007
    Par todier dans le forum C#
    Réponses: 1
    Dernier message: 18/06/2007, 11h21

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