Nb d'orrence d'un texte dans une cellule concaténée

[jipi06]

Bonsoir à toutes et tous

je cale sur une recherche de texte dans une cellule. Je cherche à compter le nb d'occurence d'un texte dans une cellule
ex
texte : Blancrouge VertJaune Blanc+Bleu+Blanc Mauve Blanc Rouge

nb d'occurences de "Blanc" = 4
Nb de "Rouge" = 2
etc

merci de votre aide

jipi

 

[Modeste]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonsoir jipi06,

Il doit être possible de faire moins "tiré par les cheveux" Mais pour ce qu'il me reste, de toute façon ...

 

[klin89]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonsoir jipi06, Modeste
Bonsoir à tous,

Dans un module standard, c'est fonction personnalisée créée par Job75

Public Function Compte(Car, Chaine) As Byte
'Compte le nombre d'occurences de "Car" dans la "Chaine"
Dim P As Byte
Do
  P = InStr(P + 1, Chaine, Car, vbTextCompare)
    If P > 0 Then Compte = Compte + 1
Loop Until P = 0
End Function

Retranscrite dans ta cellule :

=compte("blanc";A6)

Klin89

 

[Fred0o]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonsoir jipi06,

J'ai utilisé une fonction personnalisée pour effectuer le calcul demandé.

Voir exemple dans le fichier joint.

A+

Edit : Bonsoir Modeste, klin89.

 

[jipi06]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Merci à tous les deux
A+

 

[jipi06]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Merci aussi à Fred0o
Jipi

 

[Hippolite]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonsoir à tous,
J'arrive trop tard,... Faudrait pas faire deux choses en même temps !
J'étais parti sur la même piste que Modeste avec la variante suivante :

{=SOMME(SI(SUBSTITUE(MAJUSCULE($A$6);MAJUSCULE(C$5);"#";LIGNE($A$1:$A$100))=MAJUSCULE($A$6);"";1))}

A+

 

[kjin]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonjour,
Une de plus

Function NBT(T1$, T2$) As Long
T = Split(UCase(T1), UCase(T2))
NBT = UBound(T)
End Function

A+
kjin

 

[Tibo]

Re : Nb d'orrence d'un texte dans une cellule concaténée

Bonjour,

Une autre approche formule à tester en B6 :

=(NBCAR($A6)-NBCAR(SUBSTITUE(MAJUSCULE($A6);MAJUSCULE(B$5);"")))/NBCAR(B$5)

à recopier vers la droite

@+