Compter le nombre d un caractère à la suite dans une cellule en partant droite [Résolu]

Signaler
Messages postés
34
Date d'inscription
mardi 8 septembre 2015
Statut
Membre
Dernière intervention
28 novembre 2019
-
rorocr
Messages postés
34
Date d'inscription
mardi 8 septembre 2015
Statut
Membre
Dernière intervention
28 novembre 2019
-
Bonjour à tous,

J'ai un problème qui ne semble pas très compliqué mais que je n'arrive pas à résoudre seul...
J'aimerais savoir comment faire pour compter le nombre d'un caractère consécutif dans une cellule en partant de la droite.
illustration:
en A1 : azzeazeaezeeeeaa : résultat attendu : 2 (car 2 lettre "a" à la suite en partant de la droite)
en A2 : azeezeazeeezaeza : résultat attendu : 1 (car seulement une lettre a en partant de la droite)
en A3 : aezeazezezaeeeee : résultat attendu : 5 (car 5 lettre "e" à la suite en partant de la droite)

Merci par avance de votre aide.

7 réponses

Messages postés
11475
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 décembre 2019
1553
Bonjour

Avec une fonction personnalisée :
https://mon-partage.fr/f/obQAXwL5/

Cdlmnt
Via
rorocr
Messages postés
34
Date d'inscription
mardi 8 septembre 2015
Statut
Membre
Dernière intervention
28 novembre 2019

Bonjour,

Merci pour cette réponse rapide, cela fonctionne parfaitement.

Cdlt,
roro
Messages postés
23125
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2019
5799
Bonjour,

compter de droite à gauche par formule c'est plutôt chaud...
Avec une fonction personnalisée à mettre dans un module standard :
Function compteCarFin(ch As String) As Long
    Dim i As Long, car As String
    car = Right(ch, 1)
    For i = Len(ch) To 1 Step -1
        If Mid(ch, i, 1) = car Then compteCarFin = compteCarFin + 1 Else Exit For
    Next i
End Function

https://www.cjoint.com/c/IKCrlgGpd47
eric
rorocr
Messages postés
34
Date d'inscription
mardi 8 septembre 2015
Statut
Membre
Dernière intervention
28 novembre 2019

Bonsoir eriiic,

et merci ! Ça marche aussi...
Messages postés
7859
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
15 décembre 2019
1247
Bonjour,

Avec une formule (en B1) :
=NBCAR(A1)-TROUVE(CAR(1);SUBSTITUE(A1;DROITE(SUBSTITUE(A1;DROITE(A1);""))&DROITE(A1);CAR(1);(NBCAR(A1)-NBCAR(SUBSTITUE(A1;DROITE(SUBSTITUE(A1;DROITE(A1);""))&DROITE(A1);"")))/2)) 

rorocr
Messages postés
34
Date d'inscription
mardi 8 septembre 2015
Statut
Membre
Dernière intervention
28 novembre 2019

Bonsoir Patrice,

Merci pour cette réponse sans vba qui fonctionne très bien aussi!

Cdlt,
roro