Discussion :

[Augustine1]

Bonjour,

Je dispose d'un document dans lequel je souhaiterais calculer le nombre de sous-lignes dans lesquelles au moins une cellule n'est pas vide.

Pour être plus claire, voici une sorte d'algorithme :
SL1 = 0
SL2 = 0
SL3 = 0
Pour chaque ligne

De la colonne A à D

Si au moins une cellule est non vide alors SL1 = SL1+1

De la colonne E à H

Si au moins une cellule est non vide alors SL2 = SL2+1

De la colonne I à L

Si au moins une cellule est non vide alors SL2 = SL2+1

Et ainsi de suite...
Une fois calculées, les variables SL1, SL2 et SL3 seront insérées dans la feuille des statistiques.

Quelqu'un pourrait-il m'aider à élaborer une macro pour réaliser ce type de calculs sous Excel 2003 ?

Merci d'avance.

[Minick]

Salut,

Un petit exemple en considerant que les donnees sont sur la feuil1 de A1 a L20 et on affiche les 3 valeurs (a affecter dasn les feuilles stats.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Comptage()
    Dim Lig As Integer
    Dim SL1 As Integer, SL2 As Integer, SL3 As Integer
 
    For Lig = 1 To 20
        If Application.WorksheetFunction.CountA(Range("A" & Lig & ":D" & Lig)) <> 0 Then SL1 = SL1 + 1
        If Application.WorksheetFunction.CountA(Range("E" & Lig & ":H" & Lig)) <> 0 Then SL2 = SL2 + 1
        If Application.WorksheetFunction.CountA(Range("I" & Lig & ":L" & Lig)) <> 0 Then SL3 = SL3 + 1
    Next Lig
    MsgBox "SL1=" & SL1 & vbCrLf & "SL2=" & SL2 & vbCrLf & "SL3=" & SL3
End Sub

[Augustine1]

Merci Minick pour ton aide.
FYI, voici la version finale de ma macro :

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
Sub Stats()
 
Dim Lig As Integer
Dim SL1 As Integer, SL2 As Integer, SL3 As Integer 
For Lig = 3 To 546
 
If Application.WorksheetFunction.CountA(Range("D" & Lig & ":J" & Lig)) <> 0 Then SL1 = SL1 + 1
If Application.WorksheetFunction.CountA(Range("K" & Lig & ":Q" & Lig)) <> 0 Then SL2 = SL2 + 1
If Application.WorksheetFunction.CountA(Range("R" & Lig & ":X" & Lig)) <> 0 Then SL3 = SL3 + 1
Next Lig
 
Sheets("Overview").Cells(3, 6) = SL1
Sheets("Overview").Cells(4, 6) = SL2
Sheets("Overview").Cells(5, 6) = SL3
 
End Sub