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

Phil69970

XLDnaute Barbatruc

• 8 Juin 2024

• #16

Re

@carlos

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 14 Juin 2024

• #17

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 14 Juin 2024

• #18

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 14 Juin 2024

• #19

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 14 Juin 2024

• #20

carlos à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Occasionnel

• 14 Juin 2024

• #21

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 :

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 14 Juin 2024

• #22

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 14 Juin 2024

• #23

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 14 Juin 2024

• #24

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

 

Pièces jointes

• Nomdre de Toto V6.xlsm

  18.9 KB · Affichages: 5

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Occasionnel

• 15 Juin 2024

• #25

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

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 1 Juillet 2024

• #26

Bonjour,
Merci pour le fun. C'est rès efficace et opérationnel.
Bonne journée

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 1 Juillet 2024

• #27

Bonjour à tous

@carlos

carlos à dit:

Merci pour le fun

Cliquez pour agrandir...

C'est pour le post #25

Mais as tu vu le post # 24 ??

 

Vote positif 0 Vote négatif