bonjour,
je dispose de plusieurs feuilles avec ligne d'en tête:
1/ je souhaite que la macro boucle sur les feuilles en comptant le nombre d'occurence dans la colonne A, dans la colonne J. (sans la ligne d'en tete)
2/ donc pour la premiere feuille, cela va compter le nombre d'occurence en A (par exemple 8) et pour la colonne J (par exemple 2) et ensuite je voudrais que le resultats de ces comptage se mettent
nombre_col_A = sur une feuille qui s'appelle déjà sommaire et que j'ai créé à l'avance. sur cette feuille sommaire, il y a en colonne A, dans les cellules de haut en bas, le nom des onglets. donc j'aimerai s'il vous plait que le resultat du comptage nombre_col_A se mettent dans la feuille sommaire en cellule E2 puis en bouclant que ça se mettent en E3 pour la feuille suivante etc.
Pour recapituler:
par feuille: il y a 3 infos à recuperer
1/le nombre d'occurence en colonne A (les non vides)
2/le nombre d'occurence en colonne B (les non vides)
3/le difference entre 1 et 2
ces infos doivent être copier: dans la feuille sommaire qui existent déjà:
pour la premiere feuille, les resultats se mettent en E2,F2 et G2
pour la deuxieme feuille les resultats se mettent en E3, F3 et G3
etc
Je vous remercie pour votre aide !
voilà ce que j'ai commencé à faire sans réussir à boucler sur les feuilles...
mon code:
For Each sh In sheets
a = Application.WorksheetFunction.CountA(Range("A2:A65536"))
b = Application.WorksheetFunction.CountA(Range("AI2:AI65536"))
c = a - b
sheets("sommaire").Range("E2") = c
sheets.Cells("i, 5") = c
Next sh
je dispose de plusieurs feuilles avec ligne d'en tête:
1/ je souhaite que la macro boucle sur les feuilles en comptant le nombre d'occurence dans la colonne A, dans la colonne J. (sans la ligne d'en tete)
2/ donc pour la premiere feuille, cela va compter le nombre d'occurence en A (par exemple 8) et pour la colonne J (par exemple 2) et ensuite je voudrais que le resultats de ces comptage se mettent
nombre_col_A = sur une feuille qui s'appelle déjà sommaire et que j'ai créé à l'avance. sur cette feuille sommaire, il y a en colonne A, dans les cellules de haut en bas, le nom des onglets. donc j'aimerai s'il vous plait que le resultat du comptage nombre_col_A se mettent dans la feuille sommaire en cellule E2 puis en bouclant que ça se mettent en E3 pour la feuille suivante etc.
Pour recapituler:
par feuille: il y a 3 infos à recuperer
1/le nombre d'occurence en colonne A (les non vides)
2/le nombre d'occurence en colonne B (les non vides)
3/le difference entre 1 et 2
ces infos doivent être copier: dans la feuille sommaire qui existent déjà:
pour la premiere feuille, les resultats se mettent en E2,F2 et G2
pour la deuxieme feuille les resultats se mettent en E3, F3 et G3
etc
Je vous remercie pour votre aide !
voilà ce que j'ai commencé à faire sans réussir à boucler sur les feuilles...
mon code:
For Each sh In sheets
a = Application.WorksheetFunction.CountA(Range("A2:A65536"))
b = Application.WorksheetFunction.CountA(Range("AI2:AI65536"))
c = a - b
sheets("sommaire").Range("E2") = c
sheets.Cells("i, 5") = c
Next sh