Compter le nombre de fois qu'un caractère est présent dans une cellule.

[MJ13]

Bonjour à tous


Je voudrais connaître en VBA le nombre de fois que j'ai un caractère dans une cellule.

Ex: je veux connaître le nombre de a.

Merci d'avance.

 

[sousou]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonjour
une fonction avec case
Function nbstr(car, cellule)
compt = 0
For n = 1 To Len(cellule.Value)
If Mid$(cellule, n, 1) = car Then compt = compt + 1
Next
nbstr = compt
End Function

 

[ROGER2327]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonjour à tous

=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"a";""))

devrait faire l'affaire.​

ROGER2327
#5670

Dimanche 1er Clinamen 139 (Saint Ablou, page et Saint Haldern, duc - fête Suprême Tierce)
3 Germinal An CCXX, 5,6013h - asperge
2012-W12-5T13:26:35Z

 

[Modeste geedee]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonsour®

Je voudrais connaître en VBA le nombre de fois que j'ai un caractère dans une cellule.

Ex: je veux connaître le nombre de a.

sourire...

MsgBox Len(Cells(x, y)) - Len(Application.Substitute(Cells(x, y), "a", ""))

 

[Pierrot93]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonjour à tous,

sur la base de la formule de Roger :

MsgBox Len(Range("A1")) - Len(Replace(Range("A1"), "a", "", , , vbTextCompare))

A noter, le dernier argument permet de s'affranchir de la casse....

bon après midi
@+

 

[ROGER2327]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Re...

Bonsour®


sourire...

MsgBox Len(Cells(x, y)) - Len(Application.Substitute(Cells(x, y), "a", ""))

Si vous saviez le nombre de cas où la suggestion d'une formule Excel en lieu et place d'une procédure VBA entraîne une réponse du genre "C'est aussi simple comme ça !", vous cesseriez de sourire ironiquement...​

ROGER2327
#5672

Dimanche 1er Clinamen 139 (Saint Ablou, page et Saint Haldern, duc - fête Suprême Tierce)
3 Germinal An CCXX, 6,0668h - asperge
2012-W12-5T14:33:37Z

 

[MJ13]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonjour Sousou, Roger, Modeste, Pierrot

Merci à tous pour vos solutions qui fonctionnent très bien et en plus, j'ai le choix du Roi, avec une fonction, une formule et 2 formules VBA. Mais c'était pas si simple (enfin pour moi ).

Que demande le peuple. Plus rien... Ah si, un référendum sur le GRAS dans les discussions non vues (je fais la grève du like en attendant que cela revienne, mais la, c'était mérité) .

 

[ROGER2327]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Re...

(...)
Que demande le peuple. Plus rien... Ah si, un référendum sur le GRAS dans les discussions non vues
(...).

Approuvé !
Applaudissements des deux mains et autres pieds !
On veut du gras ! On veut du gras ! Du gras ! Du gras !​

ROGER2327
#5673

Dimanche 1er Clinamen 139 (Saint Ablou, page et Saint Haldern, duc - fête Suprême Tierce)
3 Germinal An CCXX, 6,9458h - asperge
2012-W12-5T16:40:11Z

 

[Modeste geedee]

Re : Compter le nombre de fois qu'un caractère est présent dans une cellule.

Bonsour® ROGER2327

gros sourire...
de la difficulté à transcrire l'intonation et le sens des écrits.

Le demandeur avait demandé explicitement VBA, tout comme toi je suis partisan de l'utilisation optimum des formules de feuille de calcul, d'une part pour leur rapidité d'autre part leur accessibilté, l'utilisation VBA pouvant d'ailleurs y faire largement référence.
Cependant nombreux sont ceux qui utilisent VBA avant que de posséder un minimum de maitrise du formulisme :-(


petit aparté :
je constate depuis 15 jours("junior") la méprise latente concernant l'utilisation des émoticones, et autres "sourires",
nonobstant l'accueil que j'ai essuyé de la part de plusieurs "barbatruc", je ne pense pas et ne veux aucunement mettre de l'ironie dans mes interventions...

N'étant pas de naturel morose, je pense traduire mes états d'âmes sans agressivité plutot que par une réponse froide et laconique.

Quant à savoir le nombre de cas de ceci ou cela, je pense ne plus avoir à prouver quoique ce soit à qui que ce soit, et non plus à devoir afficher mes états de carrière (passée).

sourire... ou
sans arrières pensées.