Selection.Count

[Sophie11]

Bonjour,
Je souhaite compter mes cellules mais je voudrais pas que ca selectionne ma plage de cellules, est-il possible d'uliser du 'activate' ??

Sheets("Sheet1").Range("A2").Activate
Range(Selection, Selection.End(xlDown)).Select
nbre_de_lignes = Selection.Count

Merci

 

[CHALET53]

Re : Selection.Count

bonjour,
Est-ce suffisant ?

Sheets("Sheet1").Range("A2").Activate
Range(Selection, Selection.End(xlDown)).Select
nbre_de_lignes = Selection.Count
Range ("A2").Select

 

[fhoest]

Re : Selection.Count

Bonjour ,
un petit exemple sans sélection:

Sub test()
Const selection = 2
Const selection1 = 20
nbre_de_lignes = Range(Cells(selection, 1), Cells(selection1, 1)).Count - 1
MsgBox nbre_de_lignes
End Sub

A bientôt

 

[Dranreb]

Re : Selection.Count

Bonjour,
Non.

Dim Rg as range
Set Rg = Sheets("Sheet1").Range("A2")
nbre_de_lignes = Range(Rg, Rg.End(xlDown)).Rows.Count

tout simplement.

 

[Guest]

Re : Selection.Count

Bonjour à tous,

Suivant le cas et si la feuille n'est pas protégée:

nbLignes= Selection.CurrentRegion.Rows.Count

renvoie le nombre de lignes tableau qui contient la sélection.
A+

 

[laetitia90]

Re : Selection.Count

bonjour tous... une autre méthode en partant de la cellule active

attention xlDown different de xlUp !!! pas forcement le méme résultat mais bon peut être fait volontairement ??

MsgBox Columns(ActiveCell.Column).Find("").Row - ActiveCell.Row

 

[Sophie11]

Re : Selection.Count

Merci beaucoup pour vos réponses

bon week-end