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

carlos · 6 Juin 2024

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 · 6 Juin 2024

Bonjour,

carlos à dit:
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 · 6 Juin 2024

Bonjour @carlos et TFB

Je te propose ce fichier

Merci de ton retour

carlos · 6 Juin 2024

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 · 6 Juin 2024

TooFatBoy à dit:
Bonjour,

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

J'ai ce message

Phil69970 · 6 Juin 2024

@carlos

carlos à dit:
Merci pour ta proposition Phil69970 mais je ne souhaitais pas le faire sous macro

Et comment tu appelles ceci ?

carlos à dit:
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 · 6 Juin 2024

carlos à dit:
je ne souhaitais pas le faire sous macro seuelement avec des formules existantes

Dans ce cas je te propose ceci

Code:

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

ou

Code:

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

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

VB:

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

Phil69970 · 6 Juin 2024

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 · 7 Juin 2024

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 · 7 Juin 2024

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 · 7 Juin 2024

carlos à dit:
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 · 7 Juin 2024

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 · 7 Juin 2024

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 · 7 Juin 2024

@carlos

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

carlos · 8 Juin 2024

Phil69970 à dit:
@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

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

carlos

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

carlos

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

carlos

XLDnaute Impliqué

Discussions similaires