VBA/Excel - Macro Ensemble Classeur Résolu

Question

Bonjour,

Voici mon code :

Sub Boucle_Feuilles()

Application.Workbooks.Open "C:\Classeur1.xls"

    'Définit une variable qui va représenter un classeur
    Dim Wb As Workbook
    'Définit une variable qui va représenter une feuille de calcul
    Dim Ws As Worksheet
    'Définit une variable qui va représenter une cellule
    Dim Cell As Range
    
    'Boucle sur chaque classeur de l'application Excel
    For Each Wb In Application.Workbooks
        'Boucle sur chaque feuille de chaque classeur
        For Each Ws In Wb.Worksheets
        
            'Boucle sur chaque cellule de la plage
            For Each Cell In Ws.Range("M3:M800")
            
            Dim X As Long

            If Cell = "oui" Then X = X + 1
            
            Next Cell
        
        Next Ws
        
    Next Wb
    
J'aimerais savoir comment calculer le nombre de lignes de chaque feuille, quand je rentre ma commande dans la boucle pour chaque feuille, il me rapporte seulement le nombre de lignes d'une seule feuille.
Merci d'avance pour votre aide!

ddez · Answer

Bonjour

Ce code me semble correct (enfin si tu cherches le nombre de cellules dont le contenu est "oui")
Par contre, si tu cherches à connaitre le nombre de lignes d'un tableau qui commence à la case "M3", tu peux utiliser ce code :

Sub Boucle_Feuilles()
    
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim Cell As Range
    
    Dim X As Long
    For Each Wb In Application.Workbooks
        For Each Ws In Wb.Worksheets
            X = X + Ws.Range("M3").CurrentRegion.Rows.Count
        Next Ws
    Next Wb
    MsgBox (X)

End Sub

PleaseCallMe · Answer

Merci, ça fonctionne niquel, c'est exactement ce que je cherchais!

VBA/Excel - Macro Ensemble Classeur

2 réponses

Discussions similaires

Newsletters