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

 

[Phil69970]

Re

@carlos

Voir ==> https://support.microsoft.com/fr-fr/office/fonction-nb-si-e0de10c6-f885-4e71-abb4-1f464816df34

 

[carlos]

Bonjour Phil69970,
J'ai suivi le lien proposé mais ne trouve pas de reference à un comptage dune chaine de caractère chiffrée.

L'exemple ci dessus est interessant mais reste en texte. Ca ne marche pas avec des nombres.
Peut etre faut il transformer la colonne de chiffre en texte en amont?
Merci

 

[carlos]

La formule suivante ne fonctione pas :
Application.WorksheetFunction.CountIfs(Feuil4.Columns(1), "2325760????") donne 0
Colonne 1 :
232576045
232576177
232576079
132576033

 

[carlos]

Avec formule non plus :
=NB.SI.ENS(gauche(BDD!A:A;7);"2325430")

 

[Gégé-45550]

La formule suivante ne fonctione pas :
Application.WorksheetFunction.CountIfs(Feuil4.Columns(1), "2325760????") donne 0
Colonne 1 :
232576045
232576177
232576079
132576033

Bonjour,
Elle fonctionnera à condition de sélectionner tous les éléments de la colonne 1 et de changer leur format en "Texte".
Sinon, par défaut, Excel les considère comme des nombres et ça ne marche pas.
C'est ce que se tuent à essayer de vous expliquer tous les excellents contributeurs de ce post depuis le début !

 

[ALS35]

Bonjour à tous,
La fonction NB.SI.ENS n'autorise pas les plages matricielles, si tu mets gauche(A1:A10). Si tu ne veux pas changer ta plage de nombre en texte comme déjà dit, il te faut passer par sommeprod, par exemple :

=SOMMEPROD(N(GAUCHE(A1:A10;3)="123"))

Cordialement

 

[carlos]

Bonjour Gégé-45550,
Merci pour ta réponse.
J'ai mis la colonne en format texte mais ca ne resoud rien.
Ni
Application.WorksheetFunction.CountIfs(Feuil4.Columns(1), "2325760??") donne 0
Ni
Application.WorksheetFunction.CountIfs(Feuil4.Columns(1), "2325760*") donne 0

 

[carlos]

Bonjour AL35,
Ta formule fonctionne très bien avec des chiffres.
y a t'il un equivalent sous vba de type : Application.WorksheetFunction.Somprod ?
Merci

 

[Phil69970]

Re

@carlos

Je te propose ce fichier tout fonctionne sans avoir besoin de mettre la colonne A au format texte
Ma macro force le format texte (en interne) pour fonctionner

Merci de ton retour

 

[jurassic pork]

Hello,
Pour le fun une fonction personnalisée à base d'expressions régulières à mettre dans un module VBA .

Public Function CompterVal(plage As Range, str, _
       Optional CaseSensitive As Boolean = False, _
       Optional Debut As Boolean = False, _
       Optional Fin As Boolean = False) As Integer
Dim data, Regex As Object, matches As Object
CompterVal = 0
data = "|" & Join(Application.Transpose(plage.Value), "|") & "|"
Set Regex = CreateObject("VBScript.RegExp")
Regex.Pattern = str
Regex.Global = True
Regex.IgnoreCase = Not CaseSensitive
If Debut Then Regex.Pattern = "\|" & str
If Fin Then Regex.Pattern = str & "\|"
Set matches = Regex.Execute(data)
CompterVal = matches.Count
Set matches = Nothing: Set Regex = Nothing
End Function

plage correspond à la plage sur laquelle s'effectue le comptage (doit être une seule colonne)
CaseSensitive permet de dire si le comptage est sensible à la casse. (optionnel)
Debut permet de dire si la valeur recherchée doit être au début des cellules. (optionnel)
Fin permet de dire si la valeur recherchée doit être à la fin des cellules. (optionnel)

A noter que l'on exécute le regex qu'une seule fois par formule et que toutes les données à traiter sont rapatriées en une seule instruction sans boucle.

Ami calmant, J.P