XL 2013 compter le nombre de chaîne caractere dans une colonne

[Marco65]

Bonjour à tous ,

j'ai une colonne dans laquelle je souhaiterai compter une chaîne de caractère connu. Dans chaque cellule la chaîne de caractère peut apparaitre plusieurs fois. Et j'aimerai avec une commande simple compter le nombre de fois DCL apparaît dans la colonne.

J'ai essaye avec la formule suivante
=(NBCAR(A10)-NBCAR(SUBSTITUE(A10;"DCL";"")))/NBCAR("DCL") qui me retourne la valeur 4 ce qui est normal cependant comment faire pour compter la totalite des cellules qui me donneraient 16 dans mon exemple.

Merci au groupe

Voici ce que j'ai dans ma colonne d'origine :

Cellule A10:
DCL1250RA-
DCL1249RA-
DCL1254MD-
DCL1222GL-
Cellule A11:
DCL2250RA-
DCL2249RA-
DCL2254MD-
DCL2222GL-
Cellule A12:
DCL3250RA-
DCL3249RA-
DCL3254MD-
DCL3222GL-
Cellule A13:
DCL4250RA-
DCL4249RA-
DCL4254MD-
DCL4222GL-
A....

Nombre de fois ou la chaine de caractere DCL ou RA ou GL apparait.

MB

 

[djidji59430]

Bonjour,
avec une commande ultra simple !
tu selectionnse ta colonne et tu fais remplacer dcl par toto et le systeme te donne le nombre de fois ou il a remplacer.

Crdmt

 

[mapomme]

Bonjour Marco65, djidji59430,

Si j'ai bien compris, un essai par formule matricielle en E5 à tirer vers le bas.()...

=SOMME((NBCAR($A$10:$A$13)-NBCAR(SUBSTITUE($A$10:$A$13;D5;""))))/NBCAR(D5)

Formule matricielle: Elle doit être validée par la combinaison des touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée comme une formule classique.
Si la validation matricielle est correcte, alors Excel entoure la formule d'accolades {=.......}.
Chaque fois que cette formule sera modifiée, la validation devra se faire par Ctrl+Maj+Entrée. Les accolades apparaissent à la validation et ne doivent pas être saisies au clavier.

 

[mapomme]

Bonjour à tous,

La formule dans la v1, la formule était sensible à la casse. Une autre version v1a avec une formule matricielle insensible à la casse.

 

[PMO2]

Bonjour à tous,
Une autre piste avec une fonction personnalisée qui a recourt au VBA.
Copiez le code suivant dans un module Standard :

Function NB_OCCUR(Recherche As String, Plage As Range) As Long
Dim R As Range
Dim C As Range
Dim i&
Dim cpt&
'---
If TypeName(Selection) <> "Range" Then Exit Function
For Each C In Plage
For i& = 1 To Len(C)
If UCase(Mid(C, i&, Len(Recherche))) = UCase(Recherche) Then
cpt& = cpt& + 1
End If
Next i&
Next C
NB_OCCUR = cpt&
End Function

Exemple d'utilisation :
Tapez =NB_OCCUR("DCL";A10:A13) dans une cellule libre.

 

[Marco65]

Merci pour vos réponses si rapides : vous etes des champions !!! Finalement PMO2 me va très bien ainsi que la proposition de mapomme . Le copier remplacé est pas mal mais vous vous doutez qu'il s'agisse d'un tableau avec plus de 250000 lignes donc la solutions VBA sera retenue car le projet a un code VBA à suivre.
Bon WE à tous et celles qui m'ont repondu.
CDT MB