Comment compter des cellules pleines

[davidp]

Bonjour le forum


-pourriez vous m'aider?


Je cherche une macro ou une méthode pour compter des cellules pleines selon l'exemple en annexe.




Merci d'avance pour votre temps passé


Bonne soirée

 

[tracor]

slt david

essaye sur ce post de christophe


http://www.excel-downloads.com/html/French/forum/messages/1_76556_76556.htm

il m'a bien aidé
pour info :
ton exemple est absent

tracor

 

[Moa]

Salut David !

Vite fait en passant :

Sub CompterCellPleine()
Dim Cell As Range
Dim Compteur As Integer
For Each Cell In Selection
If Cell <> "" Then
Compteur = Compteur + 1
End If
Next Cell
MsgBox Compteur
End Sub

Maintenant si tu as une plage définie :

For Each Cell in Range("TaPlage")

Et si tu veux le résultat dans une cellule à la place d'un message :

Range("A1") = Compteur

@ +

Moa

 

[davidp]

Bonjour ,et merci de votre aide


je vais essayer la macro ,mais pouvez m'indiquer comment préciser que les cellules pleines à compter sont A5,A6,A8,A10
et le résultat dans B12



Bonne journée à tous

 

[davidp]

Merci à tous


Le forum m'a donné la solution.



Dans la case du résultat ,il faut inscrire la formule suivante:



=NBVAL(ta plage)


A bientôt