|
|
|
|
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!
Configuration: Windows XP Internet Explorer 6.0
Bonjour
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
|
Affecter une macro à un bouton excel 2007 Bouton excel macro vba Comparer documents excel macro Différence vba excel 2007 et excel 2003 En vba excel probleme de formule figée Excel vba cellule find Excel vba classeur partagé Extraire données tableau excel macro If excel vba Macro excel generer des lignes Vba classement tableau Vba excel comparaison de deux listes Vba excel dir Vba excel erreur d'automation 80041021 Vba excel saveas Vba excel supprimer ligne Vba excel, somme des cellules vide Visualisation feuille excel dans vba
