Nombre de lignes d'une selection [Résolu/Fermé]

Signaler
-
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
-
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



A voir également:

5 réponses

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
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)]
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
17414
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 juillet 2021
4 669
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
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é
Messages postés
416
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
17 octobre 2011
44
Il faudrait déclarer une variable qui récupère le nombre de lignes d'une plage de cellules et ensuite l'inscrire dans une cellule

Ex :

Dim var as string

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

Sheets("Feuil1").Range("A12").Value = var

Ne pas oublier le End Sub
Merci Mytå de vous êtes penché sur mon probleme. Mais malheureusement cette solution ne fonctionne pas chez moi. Je vous rapelle que je tourne sur Excel 2007

Ma question est surtout l'endroit ou je peux récupérer le résultat. Si la solution que vous me proposez fonctionnait, ou puis-je récupérer le résultat du nombre de lignes. (dans A12, ou ailleurs car il n'y a pas de signe "=" dans cette ligne de code
Merci
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
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
Re le forum

Et pour faire encore plus simple

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

Mytå