occurences d'un même caractère dans une cellule

[loic38]

bonjour aux excelliens
merci à ceux qui me font progresser dans la connaissance d'excel

voilà ma question :

commment trouver le nb de fois où dans une cellule un caractère donné se répète :

exemple dans une cellule A1 :

si A1 contient : Quelle est la question ?
et si je cherche le nombre de fois où "e" se répète je dois trouver : 4

si A1 contient : C:\mes documents\appli\divers\test\valeurs
et si je cherche l'occurence sur : \
je dois trouver : 5

j'ai cherché dans la liste des fonctions standards sans succès
idem dans celles des macros

merci de votre aide

 

[loic38]

complément sur la précédente question :
une fois que l'on connait l'occurence d'un caractère, excel peut il en calculer l'emplacement dans la chaine de caractères de la dernière occurence ?

exemple sur une recherche du nb de fois où l'on trouve / dans une cellule
je souhaite en partant du 1er caractère de cette cellule trouver l'emplacement du dernier /

si ma question n'est pas claire svp me le dire

merci

 

[andré]

Salut loic38,

Ta recherche sur la cellule A1
Le caractère cherché : \

La formule : =NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))

Ândré.

 

[andré]

Resalut,

Il y a peut-être (sûrement) plus court, mais voici une formule vite faite qui fonctionne.

Sur le même exemple que précédemment : =CHERCHE("µ";SUBSTITUE(A1;"\";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))

Explication 😱n remplace le dernier caractère cherché par µ (ou un autre caractère quelconque, au choix, mais jamais employé) et on cherche son emplacement.

Ândré.

 

[myDearFriend]

Bonsoir Loic, André, le Forum.


A toutes fins utiles, voici 2 fonctions VBA pour les mêmes questions :

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

Public Function DernOccur(Car, Chaine) As Byte
'Indique la position de la dernière occurence de "Car" dans "Chaine"
DernOccur = InStrRev(Chaine, Car, , vbTextCompare)
End Function



Cordialement,
Didier_mDF

 

[andré]

On se croirait au resto,

Il ya une question à l'entrée, une pour le plat de résistance et un menu pour choisir la sauce.

Il ne reste plus que le petit desert (... le merci du consommateur).

Au fond, je n'ai pas vu les prix !
Mais non, ... ici c'est gratuit, ... c'est le "Resto d'XLD".

Ândré.

 

[loic38]

le désssert le voici

un grand MERCI du consommateur qui a été très agréablement surpris de la rapidité du service
c'est bon c'est excellent
c'est rapide
et en plus celà me retire une énorme épine du piec

Encore Merci

a +