Discussion :

[pite0611]

Bonjour,

j'ai un programme qui me permet d'afficher dans une cellule le nombre de lignes renseignées (ligne remplie), par exemple si la cellule B2 ou bien F2 est remplie alors la ligne 2 est considérée comme renseignée. Cependant je souhaiterai que il me calcule cela dans les feuil1, feuil2, feuil3 et m'affiche le résultat en feuil4 quand j'appuis sur un bouton (toujours en feuil4)

voici mon programme (qui fonctionne pour seulement une feuille) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub CommandButton1_Click()
 
    Set lastcel = Sheets("Feuil1").UsedRange.Cells(Sheets("Feuil1").UsedRange.Cells.Count)
    Set plage = Sheets("Feuil1").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Feuil1").Cells(i, 1).Resize(1, Sheets("Feuil1").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil4").Range("E15").Value = plage.Rows.Count - a
 
    End Sub

Et voici le programme que j'ai essayer de créer en additionnant deux feuilles :

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
22
23
24
25
26
 Private Sub CommandButton1_Click()
 
    Set lastcel = Sheets("Feuil1").UsedRange.Cells(Sheets("Feuil1").UsedRange.Cells.Count)
    Set plage = Sheets("Feuil1").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastcel.Row
        If Application.CountA(Sheets("Feuil1").Cells(i, 1).Resize(1, Sheets("Feuil1").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil4").Range("E15").Value = plage.Rows.Count - a
 
 
 
 
 
 
    Set lastce2 = Sheets("Feuil2").UsedRange.Cells(Sheets("Feuil2").UsedRange.Cells.Count)
    Set plage = Sheets("Feuil2").Range("A1:" & lastcel.Address)
 
    For i = 1 To lastce2.Row
        If Application.CountA(Sheets("Feuil2").Cells(i, 1).Resize(1, Sheets("Feuil2").UsedRange.Columns.Count)) = 0 Then a = a + 1
    Next
 
    Sheets("Feuil4").Range("E15").Value = Sheets("Feuil4").Range("E15").Value + plage.Rows.Count - a
 
End Sub

Pouvez-vous m'aider svp ?

Cordialement

PS: Je joins mon fichier pour plus de détails