XL 2010 NB.SI en VBA

[GilTho]

Bonjour à tous,

je m'arrache les cheveux depuis ce matin à trouver comment on retranscrit NB.SI en VBA. Tout ce que je trouve sur countif ne me donne pas le truc simple que je cherche, à savoir COMBIEN d'occurrences il y a !?

J'ai une colonne A avec Toto, tata et titi. J'aimerais qu'en colonne B ma macro m'indique à côté de TOTO combien il y a de TOTO, etc.

Merci d'avance si vous pouviez m'aider, et prenez soin de vous

 

[Fred0o]

Bonjour GilTho

Un exemple teste qui fonctionne sur mon essai :

[B1] = Application.WorksheetFunction.CountIf(Range("A1:A15"), "toto")

 

[jmfmarques]

Bonjour
On y verra peut-être plus clair en voyant ce que tu as tenté de faire avec Countif (au demeurant très simple à écrire).
Montre-nous donc.
EDIT : croisé avec Fred0o (que je salue) qui répondait pendant que je surveillais la cuisson de mon boudin aux pommes.
Et à GilTho, quand-même : sais-tu qu'à moins de l'avoir "zigouillée", l'aide interne VBA est à consulter (en tout état de cause avant de lancer un SOS), y compris par les plus avertis ?

 

[sylvanu]

Bonjour Giltho,Fred,
Malheureusement en VBA certaines fonction XL ne sont pas connues.
Comme par exemple min, max match,count,countif,
Il faut alors les faire précéder de Application.WorksheetFunction.

 

[GilTho]

Merci FredOo! C'est ce que je cherchais.
A jmfmarques. Je ne poste ici que lorsque je n'ai pas trouvé de solution, et surtout que j'y ai passé du temps. Car on ne retiens que ce que l'on a bien cherché. Tous les exemples que je trouvais ne marchaient pas et/ou étaient très compliqués, et sans doute aussi que je ne suis pas très fort.
Et bonjour Sylvanu

 

[Staple1600]

Bonjour le fil, Giltho, Fred, jmfmarques, sylvanu

•>sylvanu

Bonjour Giltho,Fred,
Malheureusement en VBA certaines fonction XL ne sont pas connues.
Comme par exemple min, max match,count,countif,
Il faut alors les faire précéder de Application.WorksheetFunction.

Je ne suis pas d'accord

Sub Confinenment_made_me_nuts()
Dim r As Range: Set r = [A1:A77]: r = "=Address(ROW(),COLUMN(),4)"
Nuts = 3100
Banana = Split("53²74²61²70²6C²65", "²")
With Application
    For i = 0 To 5
    Cookie = Cookie & Chr(.Hex2Dec(Banana(i)))
    Next
    And_IceCream = .Oct2Dec(Nuts)
    r.Item(17).Resize(9) = Cookie & And_IceCream
    MsgBox .CountIf(r, Cookie & And_IceCream), vbExclamation, "Served by " & Cookie & And_IceCream & ";-)"
End With
End Sub

A tester sur une feuille vierge

PS:...Vous voudrez bien excusez cette galéjade, mais le confinement finit par faire des dégâts

 

[sylvanu]

Bonjour Staple,
Exact, on peut remplacer Application.WorksheetFunction. par Application.
Il n'en est pas moins vrai que la raison reste la même, le VBA ne connait pas de façon native l'instruction ContIf.

 

[Staple1600]

Re

•>sylvanu
Dis-moi que tu as testé quand même mon code, hein?
Que je n'ai pas grillé mes neurones vainement

 

[sylvanu]

Oui,
mais dans votre exemple vous avez :

With Application
....
    MsgBox .CountIf(r, Cookie & And_IceCream), vbExclamation, "Served by " & Cookie & And_IceCream & ";-)"
End With
End Sub

Donc le Countif est lu par VBA comme étant Application.CountIf

Je répondais ainsi à Giltho que dans les règles de l'art c'est :

Méthode WorksheetFunction.CountIf (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com