M
michir
Guest
Bonjour,
Je souhaiterais compter à des fins statistiques, les cellules comportant des valeurs numériques , mais en excluant les formules et les valeurs nulles.
La macro suivante fonctionne de manière aléatoire suivant la plage sélectionnée (voir sur zone vert pâle du fichier joint par exemple)
Sub je_compte2()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0)
End Sub
Elle bogue souvent sur l'avant dernière ligne.
Auriez-vous une idée pour améliorer la situation ?
Merci
Je souhaiterais compter à des fins statistiques, les cellules comportant des valeurs numériques , mais en excluant les formules et les valeurs nulles.
La macro suivante fonctionne de manière aléatoire suivant la plage sélectionnée (voir sur zone vert pâle du fichier joint par exemple)
Sub je_compte2()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0)
End Sub
Elle bogue souvent sur l'avant dernière ligne.
Auriez-vous une idée pour améliorer la situation ?
Merci