nombre de lignes d'une selectionRésolu/Fermé

Question

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



Configuration: Windows 7 / Internet Explorer 8.0

Mytå · Accepted Answer

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)]

Mike-31 · Answer

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 · Answer

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

Pimp92a · Answer

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

Phil · Answer

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

Nombre de lignes d'une selection

5 réponses

Discussions similaires

Newsletters