Discussion :

[pite0611]

Bonjour,

j'ai un programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[pite0611]

C'est bien ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

Salut

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

++
Qwaz

[halaster08]

C'est bien ce que j'ai fais :

Non, tu as bien changé les noms de feuilles mais pas réinitialisé ton compteur.