Comment compter des cellules pleines

T

tracor

Guest

• 6 Avril 2004

• #2

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 7 Avril 2004

• #3

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 7 Avril 2004

• #4

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 7 Avril 2004

• #5

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

 

Vote positif 0 Vote négatif