XL 2019 Countifs si les 4 premières lettres = "Toto"

[carlos]

Bonjour,
Je ne comprends pas pourquoio cela ne marche pas.
Application.WorksheetFunction.CountIfs(Left(.Columns(1), 4), "Toto")
Un exemple :
TotoPlus 12
Tata 28
TotoMoins 6

Résultat attendu = 2
Bonne soirée

 

[TooFatBoy]

Bonjour,

Je ne comprends pas pourquoio cela ne marche pas.
Application.WorksheetFunction.CountIfs(Left(.Columns(1), 4), "Toto")

Peut-être que le problème est là.

 

[Phil69970]

Bonjour @carlos et TFB

Je te propose ce fichier

Merci de ton retour

 

[carlos]

Bonsoir,
Merci pour ta proposition Phil69970 mais je ne souhaitais pas le faire sous macro seuelement avec des formules existantes
Je regarde le probleme de colonne soulevé parTooFatBoy.
Bonne soirée

 

[carlos]

Bonjour,


Peut-être que le problème est là.

J'ai ce message

 

[Phil69970]

@carlos

Merci pour ta proposition Phil69970 mais je ne souhaitais pas le faire sous macro

Et comment tu appelles ceci ?

Application.WorksheetFunction.CountIfs(Left(.Columns(1), 4), "Toto")

Perso moi j'appelle ceci une macro ou plus exactement un petit bout de macro !!!

Et ceci n'est pas non plus une macro !!!

J'aime bien ton humour 🤣 🤣

 

[TooFatBoy]

je ne souhaitais pas le faire sous macro seuelement avec des formules existantes

Dans ce cas je te propose ceci

=SOMMEPROD((GAUCHE(A1:A100;4)="toto")*1)

ou

=NB.SI(A1:A100;"toto*")

Et si tu avais voulu le faire en VBA, je t'aurais proposé ceci

NbToto = Application.WorksheetFunction.CountIf(Range("A1:A100"), "toto*")

 

[Phil69970]

Re

@carlos

Avec la formule qui te tiens à cœur dans une macro comme tu voudrais 🤣

Je te propose la V3 encore plus directe

 

[carlos]

Bonjour Phil69970,*
Oui désolé je me suis mal exprimé.
Je suis bien sous VBA mais je ne voulais créer une nouvelle function.
Bonne journée

 

[carlos]

Bonjour TooFatBoy,
Ta formule : NbToto = Application.WorksheetFunction.CountIf(Range("A1:A100"), "toto*")
Marche bien si ma colonne est du texte.
Mais ma colonne est en nombre et ca ne passe pas.
"A1:A100"
23254300145
23254300167
234567890
3423254346
NbToto = Application.WorksheetFunction.CountIf(Range("A1:A100"), "23254*")
Réponse attendue = 3

 

[TooFatBoy]

ma colonne est en nombre et ca ne passe pas.

Alors pourquoi nous dire les 4 premières lettres = "Toto" ?!?

Et si on te donne la solution pour des nombres, tu vas encore changer les données du problème et dire que ça ne marche pas ???


Bonne chance pour la suite...

 

[Phil69970]

Re

@carlos

Tu changes les règles du jeu au gré de tes posts

Au départ :
==> Tu recherches un texte bien défini (Toto) de 4 lettres situé au début d'une chaine

Et maintenant :
==> Tu recherches un nombre de 5 chiffres (et peut être plus) situé n'importe ou dans une chaine

Et si tu trouves que c'est la même chose alors bravo !!!
Et tout ça sans démordre de ta "formule/macro" que tu nous imposes alors je redis super bravo si tu y arrives !!!

Je te propose ce fichier fonctionne avec n'importe quoi à chercher mais situé uniquement en début de chaine

Fait vite fait sur la base de mon fichier du post #3

 

[carlos]

Bonjour,
lorsque je post, j'essaie d'etre le plus smple possble, peut etre trop.
Je ne pensais pas que ce soit du texte ou de nombres cela change beaucoup.. Mais à priori si...
JJe ferai mieux la prochaine fois

 

[Phil69970]

@carlos

Et as tu au moins essayer mon fichier du post #12 ?

 

[carlos]

@carlos

Et as tu au moins essayer mon fichier du post #12 ?

BOnjour phil69970,
Oui je l'ai essayé cela fonctionne très bien avec les textes et les nombres. Merci.
Pourquoi la function countif ne fonctionne pas avec les nombres puisqu' on peut transformer des nombres en texte ?
Merci