Macro pour bilan feuille : nbligne + nb ligne conditions / onglet

Bonjour

Je cherche à obtenir une macro qui au niveau de ma 1ere feuille :

indiquerai le nom de chaque onglet / nb de ligne de l'onglet / + nb de lignes avec condition. (détail dans le fichier).

en créant une ligne pour chaque onglet.

Ceci pour chaque feuille présente dans le fichier sachant que ce nombre peut varier.

J'ai réussi à créer une macro de type msgbox mais qui ne fonctionne que sur la feuille active. et je n'ai pas réussi à mettre une double condition sur le calcul lot bloqué.

merci

Bonsoir,

Et si tu n'avais pas besoin de macro ?

Bonjour tout le monde. Macro demandée, macro proposée.

Option Explicit

Sub count()
    Dim i As Long, j As Long
    Dim nbSheets As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet, nbCells As Long

    nbSheets = ThisWorkbook.Sheets.count
    Set ws1 = Sheets("bilan")

    For i = 2 To nbSheets
        With ws1
            .Cells(i + 5, 1) = Sheets(i).Name
            Set ws2 = Sheets(i)
            nbCells = ws2.Cells(Rows.count, 1).End(xlUp).Row
            .Cells(i + 5, 2) = nbCells - 1
            For j = 2 To nbCells
                .Cells(i + 5, 3) = .Cells(i + 5, 3) + ws2.Cells(j, 27)
            Next j
        End With
    Next i
End Sub

Je n'ai pas compris ce que tu cherchais à faire dans la colonne "D" du bilan (G=B ???)

MErci à vous 2 pour les solutions.

Je suis partie sur la macro qui fonctionne.

Optimix pour la colonne D je souhaite compter par feuille le nombre de ligne qui remplisse les 2 conditions en même temps: colonne AA = 1 et la colonne G =B

Je ne devais pas être bien réveillé. Il suffit d'ajouter une ligne :

Option Explicit

Sub count()
    Dim i As Long, j As Long
    Dim nbSheets As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet, nbCells As Long

    nbSheets = ThisWorkbook.Sheets.count
    Set ws1 = Sheets("bilan")

    For i = 2 To nbSheets
        With ws1
            .Cells(i + 5, 1) = Sheets(i).Name
            Set ws2 = Sheets(i)
            nbCells = ws2.Cells(Rows.count, 1).End(xlUp).Row
            .Cells(i + 5, 2) = nbCells - 1
            For j = 2 To nbCells
                .Cells(i + 5, 3) = .Cells(i + 5, 3) + ws2.Cells(j, 27)
                If ws2.Cells(j, 27) = 1 And ws2.Cells(j, 7) = "B" Then .Cells(i + 5, 4) = .Cells(i + 5, 4) + 1
            Next j
        End With
    Next i
End Sub

parfait cela fonctionne merci beaucoup