Comptabiliser un nb de lettres

[clé]

Bonjour !

je suis un utilisateur récent d'excel ( novice ) et voici mon soucis :

Dans une plage, chaque case est remplie par une lettre de l'alphabet A, B, ou C. Dans le meme classeur mais sur une autre feuille je souhaites savoir le nombre de lettre A qu'il y a dans cette plage dans la case A1 et le nombre de B dans la case a2 etc ....

En francais excelien ca donnerait :
A1 = ( nb de A )
A2 = ( nb de B )
A3 = ( nb de C )

A1, A2 et A3 etant des chiffres

Merci pour votre aide

:huh:

 

[dg62]

Bonjour clé

Si ta cellule est remplie que de A, B ou C


nbcar peut suffire


=NBCAR(Feuil1!A1)


je vais me coucher ! encore ZOP

Message édité par: dg62, à: 08/04/2005 17:48

 

[pat1545.]

Salut,

=nb.si(feuil2!A1:A10;'A') ou apres le ; une cellule qui contient 'A'


Patrick

 

[_Thierry]

Bonsoir

Une approche VBA, au cas où l'on ne connait pas la plage... Moi j'habite à coté de la mer...

Option Explicit
Option Compare Text

Sub TheABCcounter()
Dim Plage As Range, Cell As Range

Set Plage = Sheets('Feuil1').UsedRange

    With Sheets('Feuil2')
        For Each Cell In Plage
            Select Case Cell.Text
                Case 'A': .Range('A1') = .Range('A1') + 1
                Case 'B': .Range('A2') = .Range('A2') + 1
                Case 'C': .Range('A3') = .Range('A3') + 1
            End Select
        Next Cell
    End With

End Sub

Bon Week End
@+Thierry

 

[clé]

Youpiiiiiiii !!!

Merci a vous 3 ces formules me vont tres bien

 

[Gérard DEZAMIS]

Bonjour à tous

La Formule du jour (celle de _Thierry) est une complete avec vue sur la mer, poisson non compris

une entrée + un plat + un dessert de VBA ...

Je garde ma formule du pôvre
avec cet essai


@+ GD [file name=TrouveLettre.zip size=2940]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrouveLettre.zip[/file]

 

[_Thierry]

Bonsoir Gérard, le Fil, le Forum

Tu appelles ceci :

=IF(LEN(Feuil1!A5)-LEN(SUBSTITUTE(Feuil1!A5,A1,''))=1,' Un seul '&A1&' trouvé',IF(LEN(Feuil1!A5)-LEN(SUBSTITUTE(Feuil1!A5,A1,''))>1,LEN(Feuil1!A5)-LEN(SUBSTITUTE(Feuil1!A5,A1,''))&' '&A1&' trouvés',''))

... une 'formule du pôvre'...

Arf et qu'est-ce ça va donner si tu nous la fais en version 'Riche et Célèbre' lol

Bon Week End ! et bravo
@+Thierry

 

[Gérard DEZAMIS]

Bonsoir le Forum & Salut 'Ex @+T'

C'est uniquement les jours fériés et avec l'apéro offert par le patron.
Sur réservation seulement ...

Au fait je viens de me régaler avec ton amuse gueule de :

Option Compare Text
une mise en bouche que je ne connaissait pas, super rentable!
Moi je vais être obligé de doubler mes conditions à la main ... du genre ou(='A';='a')

J'entends déjà le tambour qui donne la cadence sur la galère !

@+ GD

 

[Gérard DEZAMIS]

Re Thierry

J'ai pris la peine de m'interroger sur ton code(Merci F1 pas la Formule !) mais j'essaye de le placer dans :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
de façon que cela s'effectue immédiatement à la saisie de nouvelles données et et fait .... cela ne fait rien
J'ai placé le code dans Général du WorkBook activate de façon que cela puisse se faire à l'ouverture du fichier et j'ai le même résultat
Nul de chez nul
La route est longue !
Quelle bévue, bêtise, bourde, balourdise,brouillamini,boulette ai-je bien pu faire ?
J'ai choisi la lettre B car tu aurais tout de suite trouvé avec la lettre C !


Merci d'avance de ton secours !

@+ GD

 

[Gérard DEZAMIS]

Re de Re Thierry

La tournée du Patron en guise d'apéritif

 

[Gérard DEZAMIS]

Oups ...

la bouteille était vide !


@+GD [file name=TrouveLettre2.zip size=5159]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrouveLettre2.zip[/file]