XL 2010 NB.SI en VBA

GilTho

XLDnaute Nouveau
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 :)
 

jmfmarques

XLDnaute Accro
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 ?
 

GilTho

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 ;)
VB:
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

XLDnaute Barbatruc
Supporter XLD
Oui,
mais dans votre exemple vous avez :
VB:
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 :
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna