Discussion :

[zakou76]

Bonjour.
J'utilise la boucle suivante pour calculer le nombre de lignes de toutes les feuilles de mon classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each sheet In xlBook.Worksheets
    nl = sheet.Cells(Rows.Count, 1).End(xlUp).Row
Next

Je voudrais savoir comment calculer le nombre de lignes pour la feuille "Base" seulement.

Merci.

[Invité]

Bonjour,

Une solution possible si vous êtes sûr que la colonne 1 est représentative du nombre de lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Test()
 
Dim Wb As Workbook
Dim Sh As Worksheet
Dim NL As Long
 
    Set Wb = ActiveWorkbook
    For Each Sh In Wb.Worksheets
        With Sh
             Select Case Sh.Name
                    Case "Base"
                         NL = .Cells(.Rows.Count, 1).End(xlUp).Row
             End Select
        End With
    Next
    Set Wb = Nothing
 
    MsgBox NL
 
End Sub

Ou avec une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function NombreDeLignes(ByVal Wb As Workbook, ByVal NomDeLOnglet As String, ByVal ColonneReference As Long) As Long
 
Dim Sh As Worksheet
 
    For Each Sh In Wb.Worksheets
        With Sh
             Select Case Sh.Name
                    Case NomDeLOnglet
                         NombreDeLignes = .Cells(.Rows.Count, ColonneReference).End(xlUp).Row
             End Select
        End With
    Next
 
End Function
 
Sub TestNombreDeLignes()
 
Dim NL As Long
 
    NL = NombreDeLignes(ActiveWorkbook, "Base", 1)
    MsgBox NL
 
End Sub

[Menhir]

J'utilise la boucle suivante pour calculer le nombre de lignes de toutes les feuilles de mon classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each sheet In xlBook.Worksheets
    nl = sheet.Cells(Rows.Count, 1).End(xlUp).Row
Next

Je voudrais savoir comment calculer le nombre de lignes pour la feuille "Base" seulement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nl = sheets("Base").Cells(Rows.Count, 1).End(xlUp).Row

[zakou76]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nl = sheets("Base").Cells(Rows.Count, 1).End(xlUp).Row

Merci pour votre aide c'est ce que je cherchais.