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

L

loic38

Guest

• 2 Septembre 2004

• #2

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

 

Vote positif 0 Vote négatif

A

andré

Guest

• 2 Septembre 2004

• #3

Salut loic38,

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

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

Ândré.

 

Vote positif 0 Vote négatif

A

andré

Guest

• 2 Septembre 2004

• #4

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é.

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 2 Septembre 2004

• #5

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

 

Vote positif 0 Vote négatif

A

andré

Guest

• 2 Septembre 2004

• #6

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é.

 

Vote positif 0 Vote négatif

L

loic38

Guest

• 3 Septembre 2004

• #7

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 +

 

Vote positif 0 Vote négatif