Code VBA pour compter cellules

Version imprimable

04/02/2013, 12h44
pierrotyahoo

Code VBA pour compter cellules

Bonjour,

Totalement débutant en VBA, je cherche un code ou une formule qui permette de compter selon un critère sur une plage de cellules :

dans ma plage, j'ai 2 types de cellules, celles avec du TEXTE, celles avec " - "

J'aimerai compter uniquement celles avec du texte.

Avez vous une solution ?

Merci
04/02/2013, 13h05
gFZT82

Bonjour,

Tu peux essayer avec une formule telle que

Code:

=NBVAL(Plage)-NB.SI(Plage;"-")

Cordialement.
04/02/2013, 14h14
pierrotyahoo

Merci à toi nickel !

Par curiosité, si tu as l'équivalent VBA cela m'interesse 8-)

Un autre exemple avec une fonction personnelle.

Code:

1
2
3
4
5
6
7
8
Function CompterCel(Plage As Range) As Integer
    For Each Cel In Plage
        If Cel.Value <> "" And Cel.Value <> "-" Then
            compteur = compteur + 1
        End If
    Next Cel
    CompterCel = compteur
End Function

Cordialement.

04/02/2013, 15h02
pierrotyahoo

Merci à toi, ça marche bien !

:ccool::ccool:
04/02/2013, 15h45
Philippe Tulliez
Bonjour gFZT82,
Bien qu'il faille se poser la question sur le bien fondé d'écrire une fonction personnalisée qui fait exactement ce que fait nativement une fonction d'excel mais j'ai bien compris que c'était par pure curiosité intellectuelle.
Tu aurais pu reprendre tout simplement la même formule que tu as proposé à pierrotyahoo.
Code:

1 2 3 4 5 6 Function CountACountIf(Plage As Range) ' NBVAL(plage)-NB.SI(plage;"-") With Application.WorksheetFunction CountACountIf = .CountA(Plage) - .CountIf(Plage, "-") End With End Function
04/02/2013, 16h20
gFZT82

Bonjour Philippe,

Oui, mais si tu fais avec VBA ce que font les fonctions intégrées d’Excel, ça enlève tout le plaisir de se fouler les neurones avec VBA ;).

Cordialement.
04/02/2013, 16h49
Philippe Tulliez

Tout à fait exact et c'était pour le plaisir que j'avais relevé.
04/02/2013, 17h23
pierrotyahoo

Merci messieurs pour votre rapidité ! :ccool: