Nombre de lignes d'une selection

Résolu

Colonne

Phil -
Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention - 10 sept. 2010 à 22:43

Bonjour, je cherche a récuperer le résultat d'une procédure VBA qui :
1) selectionne une colonne
2) va jusqu'a la fin de la colonne
3) exemple: Range("A12", [A12].End(xlDown)).Select
4) merci

Afficher la suite

A voir également:

Vba compter le nombre de ligne
Partage de photos en ligne - Guide
Excel compter cellule couleur sans vba - Guide
Nombre de jours entre deux dates excel - Guide
Mètre en ligne - Guide
Ligne occupée - Forum SFR

5 réponses

Réponse 1 / 5

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 954

Salut le forum

Pour avoir le nombre de lignes d'une plage de cellule

Range("A12", [A12].End(xlDown)).Rows.Count

Et pour avoir le nombre de colonnes d'une plage de cellule

Range("A12", [A12].End(xlDown)).Columns.Count

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

Réponse 2 / 5

Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention 5 135

Salut,

Tu peux expliquer ce que tu veux faire, j'ai du mal à saisir ton problème.

Sélectionner une colonne pas de problème

partir de la fin de colonne pas de problème

Mais la troisième question, le code que tu présentes, sélectionne de la cellule A12 à la première cellule non vide rencontré vers le bas

que faut il faire

Phil

Et bien iln suffit de récupérer le nombre de lignes de cette selection pour pouvoir l'utiliser par la suite dans le reste de la routine. Ce doit etre quelque chose comme "lines.count" mais ca ne marche pas.
hors sujet:
Y-a-t-il a ta connaissance une aide sur l'utilisation de Excel 2007 (vba et l'explorateur d'objets car c'est "apparement" tres compliqué

Réponse 5 / 5

Phil

Merci Pimp92a c'est vous qui m'aportez La solution (avec Mytå)
en fait j'ai changé le script en supprimant Sheets("Feuil1")

Voici le script:

Dim var As String
var = Range("A12", [A12].End(xlDown)).Rows.Count
Range("G6").Value = var
End Sub

et ca, ca marche. Merci à vous deux pour ce coup de main
ainsi au'au site commentcamarche.com

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 954

Re le forum

Et pour faire encore plus simple

Range("G6") =Range("A12", [A12].End(xlDown)).Rows.Count

Mytå

Discussions similaires

Afficher toutes les lignes masquées excel

SQL - Garder uniquement les doublons (1)

Index+Equiv avec 3 critères

Excel - supprimer les colonnes/lignes vides

Combien de lignes dans Excel ?

sos excel regrouper deux colonnes en 1

Votre réponse

Discussions similaires