salut Blues, Jocelyn, le forum
voici une macro que je propose et qui semble fonctionner. A adapter en fonction du besoin :
Sub NbCellules()
Dim NbCell As Integer, NbErreur As Integer
NbCell = 0: NbErreur = 0
For i = 1 To 15 Step 2 'parcours des colonnes 1, 3, 5...15
Derligne = Cells(65000, i).End(xlUp).Row ' Derniere ligne de la colonne i
If Not (Derligne = 1 And IsEmpty(Cells(1, i))) Then 'Vérifie si la colonne n'est pas vide
NbCell = NbCell + Derligne
For j = 1 To Derligne ' parcours des cellules de la colonne i
If Cells(j, i).Value = 0 Or Cells(j, i) = "" Then NbErreur = NbErreur + 1
Next
End If
Next
vbMsg = NbCell & " celllules ont été testées et" & Chr(10) & NbErreur & " contiennent un 0 ou sont vides." & Chr(10) & "Le nombre recherché était donc " & (NbCell - NbErreur)
MsgBox vbMsg, vbInformation, "Calcul du nombre de cellules spécifiées"
End Sub
Bon courage,
le Fnake