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