Aide sur une formule

[bbanor]

Bonsoir le forum

Je viens solliciter votre aide précieuse sur une formule qui compterait par exemple tous les 1 ou X ou autre lettres contenu dans une matrice.

J'utilisait avnt de travailler avec Office Mac 2004 une formule qui s'intitulait : "CountI" qui comptait tous les i contenu dans la plage A2 à AE2 (par exemple) mais cette formule ne fonctionne pas sous Mac.

J'aurai besoin de vos lumières. J'ai bien essayé NB.SI mais ici le problème c'est que je peux me retrouver avec plusieurs caractères dans une même case et qu'il faudrait les compter une à une.

J'ai aussi essayé NBCAR mais là aussi ça ne me donne pas le résultat escompté.

Je compte sur votre aide précieuse. Merci d'avance le Forum.

 

[bbanor]

Re : Aide sur une formule

Peut être un petit fichier exemple en attaché pour être plus claire !!!!

Merci

 

[Tibo]

Re : Aide sur une formule

Bonsoir,

Une solution (s'il peut y avoir d'autres lettres que le I) :

=SOMMEPROD(((NBCAR(A2:G2)-NBCAR(SUBSTITUE(A2:G2;"I";"")))*1))

Plus simple s'il n'y a que des I :

=SOMMEPROD(((NBCAR(A2:G2)*1)))

@+

 

[job75]

Re : Aide sur une formule

Bonsoir bbanor,

Je n'ai pas trouvé autre chose qu'une fonction VBA. La formule =F(plage;t) compte le nombre d'occurences du caractère "t" dans la plage de cellules "plage" :

Function F(plage As Range, t$)
Dim Cel As Range, i As Integer
F = 0
For Each Cel In plage
For i = 1 To Len(Cel)
If Mid(Cel, i, 1) = t Then F = F + 1
Next
Next
End Function

A+

Edit : salut Tibo, pas terrible ici le VBA...

 

[bbanor]

Re : Aide sur une formule

[QUOTE
Plus simple s'il n'y a que des I :

=SOMMEPROD(((NBCAR(A2:G2)*1)))

@+[/QUOTE]

Merci Tibo
Cette formule marche sans pb.

Merci pour ton aide

J'essaierai aussi la VB dès que j'aurai une minute de libre.

Merci à vous Deux

 

[bbanor]

Re : Aide sur une formule

Function F(plage As Range, t$)
Dim Cel As Range, i As Integer
F = 0
For Each Cel In plage
For i = 1 To Len(Cel)
If Mid(Cel, i, 1) = t Then F = F + 1
Next
Next
End Function

Salut Job75 j'ai essayé dans ma feuille cette fonction VB dans un module mais pas de résultat. j'ai sûrement fait une erreur de manip.

Pourrais tu m'aider please

 

[job75]

Re : Aide sur une formule

Bonjour bbanor, le forum,

J'ai mis la macro dans un module et la fonction en K2, fichier ci-joint.

A+

 

[bbanor]

Re : Aide sur une formule

Super Job75

Merci pour ton aide. J'ai essayé sur un autre fichier ça marche très bien

Bravo