Compter le nbre de valeur commencant par

Dull

XLDnaute Barbatruc

• 13 Janvier 2010

• #2

Re : Compter le nbre de valeur commencant par

Salut Transplant69, le Forum

Essaye cette Formule Matricielle de Mireille (Mth🙂Sourire) si je ne m'abuse

Code:

=SOMME(NBCAR($B$5:$B$12)-NBCAR(SUBSTITUE($B$5:$B$12;$B15;"")))/NBCAR($B15)

à valider avec Ctrl+Shift+Entrée

Voir Fichier Joint

Bonne Journée

 

Pièces jointes

• TRANSPLANT69 Comptage.zip

  4.8 KB · Affichages: 31

Vote positif 0 Vote négatif

T

TRANSPLANT69

XLDnaute Nouveau

• 13 Janvier 2010

• #3

Re : Compter le nbre de valeur commencant par

C'est presque ca si ce n'est que ca compte les doublons...

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 13 Janvier 2010

• #4

Re : Compter le nbre de valeur commencant par

Re TRANSPLANT69, le Forum

Un autre essai avec code et Formule

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MonDico As Object, C As Range
Application.ScreenUpdating = False
[Pl].ClearContents
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Range("B5", [B65000].End(xlUp))
MonDico(C.Value) = C.Value
Next C
Feuil2.[A1].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
Application.ScreenUpdating = True
End Sub

et formule la même

Bonne Journée

 

Pièces jointes

• TRANSPLANT69 V2 Comptage.zip

  12.2 KB · Affichages: 20

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 13 Janvier 2010

• #5

Re : Compter le nbre de valeur commencant par

Bonjour Transplant69, dull,

Autre essai, peut-être besoin d'adapter.

@+

Denis

À oublier(erreur doublon), et ouffff je viens de voir la formule de Jocelyn qui fonctionne très bien.

 

Pièces jointes

• Transplant69.xls

  21.5 KB · Affichages: 59
• Transplant69.xls

  21.5 KB · Affichages: 59
• Transplant69.xls

  21.5 KB · Affichages: 57

Dernière édition: 13 Janvier 2010

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 13 Janvier 2010

• #6

Re : Compter le nbre de valeur commencant par

Bonjour le Forum,
Bonjour TRANSPLANT69, meilleurs voeux Dull 🙂,

un essai en fichier joint par formule matricielle Frequence

Jocelyn

Oup's Bonjour Denis 132

 

Pièces jointes

• Comptage.xls

  26 KB · Affichages: 79
• Comptage.xls

  26 KB · Affichages: 73
• Comptage.xls

  26 KB · Affichages: 79

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 13 Janvier 2010

• #7

Re : Compter le nbre de valeur commencant par

Meilleurs Vœux a toi Aussi Jocelyn🙂, Bonne Année Denis132, le Fil

Bigre quelle Formule Joss 😱
M'étonne aussi qu'ayant cherché pendant quelques temps la Formule Magique j'ai fini ... par un Code 😀

@Denis comme ma formule, elle prend en compte les Doublons 😱

Bonne Journée

 

Vote positif 0 Vote négatif

T

TRANSPLANT69

XLDnaute Nouveau

• 13 Janvier 2010

• #8

Re : Compter le nbre de valeur commencant par

Merci c'est la classe JOCELYN
Mais encore une fois pour ma en francais ca se traduit comment :
=SUM((FREQUENCY(IF((LEFT($B$3:$B$12,LEN(B15))=B15),MATCH($B$3:$B$12,$B$3:$B$12,0)),ROW($B$3:$B$13))>0)*1)

 

Vote positif 0 Vote négatif