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

Modeste

XLDnaute Barbatruc

• 16 Avril 2011

• #2

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 ...

 

Pièces jointes

• nboccurences(2).xls

  14 KB · Affichages: 55

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 16 Avril 2011

• #3

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

Code:

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)

Cliquez pour agrandir...

Klin89

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 16 Avril 2011

• #4

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.

 

Pièces jointes

• jipi06_V1.xls

  26.5 KB · Affichages: 48

Vote positif 0 Vote négatif

jipi06

XLDnaute Junior

• 16 Avril 2011

• #5

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

Merci à tous les deux
A+

 

Vote positif 0 Vote négatif

jipi06

XLDnaute Junior

• 16 Avril 2011

• #6

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

Merci aussi à Fred0o
Jipi

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 16 Avril 2011

• #7

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 17 Avril 2011

• #8

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

Bonjour,
Une de plus

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 17 Avril 2011

• #9

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

Bonjour,

Une autre approche formule à tester en B6 :

Code:

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

à recopier vers la droite

@+

 

Vote positif 0 Vote négatif