Discussion :

[pierrotyahoo]

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

[gFZT82]

Bonjour,

Tu peux essayer avec une formule telle que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[pierrotyahoo]

Merci à toi nickel !

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

[gFZT82]

Un autre exemple avec une fonction personnelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pierrotyahoo]

Merci à toi, ça marche bien !

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Philippe Tulliez]

Tout à fait exact et c'était pour le plaisir que j'avais relevé.

[pierrotyahoo]

Merci messieurs pour votre rapidité !