Calcul sur plusieurs feuilles [VBA]

Version imprimable

Bonjour,

j'ai un programme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton2_Click() Set lastcel = Sheets("Produit Filaire").UsedRange.Cells(Sheets("Produit Filaire").UsedRange.Cells.Count) Set plage = Sheets("Produit Filaire").Range("A1:" & lastcel.Address) For i = 1 To lastcel.Row If Application.CountA(Sheets("Produit Filaire").Cells(i, 1).Resize(1, Sheets("Produit Filaire").UsedRange.Columns.Count)) = 0 Then a = a + 1 Next Sheets("Feuil2").Range("E15").Value = plage.Rows.Count - a End Sub
Qui me permet de calculer les lignes renseignées de la feuille 1 tout en affichant le résultat en feuille 2.

Cependant je souhaiterai pouvoir additionner les résultats des feuilles. Si en feuille 1 il me donne 10 lignes renseignées comme résultats et en feuille 3 il me donne 2 lignes renseignées je souhaiterai qu'il m'affiche en feuille 2 le résultat, sois 12 lignes renseignées au total dans la colonne E15 que j'ai choisi et déjà mis dans ce code.

Pensez-vous pouvoir m'aider svp ?

Cordialement

Bonjour,

Il te suffit de recommencer ta macro sur une autre feuille et d'additionner le résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub CommandButton2_Click()
 
    Set lastcel = Sheets("Produit Filaire").UsedRange.Cells(Sheets("Produit Filaire").UsedRange.Cells.Count)
    Set plage = Sheets("Produit Filaire").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Produit Filaire").Cells(i, 1).Resize(1, Sheets("Produit Filaire").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil2").Range("E15").Value = plage.Rows.Count - a
 
    Set lastcel = Sheets("autres feuille").UsedRange.Cells(Sheets("Produit Filaire").UsedRange.Cells.Count)
    Set plage = Sheets("autres feuille").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Produit Filaire").Cells(i, 1).Resize(1, Sheets("Produit Filaire").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil2").Range("E15").Value =Sheets("Feuil2").Range("E15").Value + plage.Rows.Count - a
End Sub

30/07/2018, 11h28
pite0611

C'est bizarre, il m'affiche un resultat negatif et en plus faux, il m'affiche -44 alors qu'il devrait m'afficher 22 je ne comprend pas pourquoi
30/07/2018, 11h38
halaster08

J'ai recopier ton code sans trop le lire, il faut réinitialiser ton compteur a au changement de feuille, et changer tous les nom de feuilles car j'en ai oublié plusieurs.

C'est bien ce que j'ai fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  Private Sub CommandButton2_Click()
 
    Set lastcel = Sheets("Produit Filaire").UsedRange.Cells(Sheets("Produit Filaire").UsedRange.Cells.Count)
    Set plage = Sheets("Produit Filaire").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Produit Filaire").Cells(i, 1).Resize(1, Sheets("Produit Filaire").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil2").Range("E15").Value = plage.Rows.Count - a
 
    Set lastcel = Sheets("Contrôle carte électronique").UsedRange.Cells(Sheets("Contrôle carte électronique").UsedRange.Cells.Count)
    Set plage = Sheets("Contrôle carte électronique").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Contrôle carte électronique").Cells(i, 1).Resize(1, Sheets("Contrôle carte électronique").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil2").Range("E15").Value = Sheets("Feuil2").Range("E15").Value + plage.Rows.Count - a
 
End Sub

30/07/2018, 13h30
Qwazerty

Salut

Pourquoi passer par du VBA, des formules ne seraient suffisantes?

++
Qwaz
30/07/2018, 13h43
halaster08

Citation:

Envoyé par pite0611

C'est bien ce que j'ai fais :

Non, tu as bien changé les noms de feuilles mais pas réinitialisé ton compteur.
31/07/2018, 11h22
pite0611

Citation:

Envoyé par Qwazerty

Salut

Pourquoi passer par du VBA, des formules ne seraient suffisantes?

++
Qwaz

Car je souhaiterai que cela sois automatique et que on ai pas besoin d'utiliser le clavier