Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
selon la version d'Excel le nombre de lignes / colonnes d'une feuille varie. En VBA comment calculer ces nombres ?
cordialement
Richard
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Réponse acceptée par l’auteur de la question
Nous utilisons un service de traduction pour assister nos utilisateurs. Veuillez nous excuser pour les éventuelles erreurs grammaticales.
une fois que j’ai fait la procédure countrows() j’ai cliqué sur la commande run
Réponse acceptée par l’auteur de la question
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
NombreLignes = Cells.Rows.Count
NombreColonnes = Cells.Columns.Count
Cordialement.
Daniel
Nous utilisons un service de traduction pour assister nos utilisateurs. Veuillez nous excuser pour les éventuelles erreurs grammaticales.
Bonjour riche qu’est-ce que tu voulais exactement réaliser ? Souhaitiez-vous connaître le total avec des données ou tous les nombres totaux de lignes ou de colonnes ?
Bonjour,
merci pour votre réponse rapide mais n'ai pas réussi à le faire fonctionner.
ai remplacé "Cellules" par "Cells" puis ai enlevé ".ramer" mais Excel affiche le fameux "Débogage"
cordialement
Richard
Nous utilisons un service de traduction pour assister nos utilisateurs. Veuillez nous excuser pour les éventuelles erreurs grammaticales.
Bonjour rich7606,
Je suis un conseiller indépendant et un utilisateur de Microsoft Office.
vous pouvez essayer ceci
Sous-comptages()
Dim lastrow Aussi longtemps
lastrow = Cellules(Rows.Count, 1). Fin (xlDown). ramer
MsgBox (lastrow)
Fin Sub
Faites-moi savoir si cela aide
tout le meilleur