Sujet Précédent Sujet Suivant

Compter le nombre d un caractère à la suite dans une cellule en partant droite

Résolu/Fermé
rorocr Messages postés 81 Date d'inscription mardi 8 septembre 2015 Statut Membre Dernière intervention 8 juin 2022 - 28 nov. 2019 à 17:41
rorocr Messages postés 81 Date d'inscription mardi 8 septembre 2015 Statut Membre Dernière intervention 8 juin 2022 - 28 nov. 2019 à 22:16
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.
A voir également:

3 réponses

Réponse 1 / 3
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
28 nov. 2019 à 18:10
Bonjour

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

Cdlmnt
Via
1
rorocr Messages postés 81 Date d'inscription mardi 8 septembre 2015 Statut Membre Dernière intervention 8 juin 2022 1
28 nov. 2019 à 22:12
Bonjour,

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

Cdlt,
roro
0
Réponse 2 / 3
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
28 nov. 2019 à 18:11
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
1
rorocr Messages postés 81 Date d'inscription mardi 8 septembre 2015 Statut Membre Dernière intervention 8 juin 2022 1
28 nov. 2019 à 22:14
Bonsoir eriiic,

et merci ! Ça marche aussi...
0
Réponse 3 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
28 nov. 2019 à 18:17
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))

1
rorocr Messages postés 81 Date d'inscription mardi 8 septembre 2015 Statut Membre Dernière intervention 8 juin 2022 1
28 nov. 2019 à 22:16
Bonsoir Patrice,

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

Cdlt,
roro
0

Discussions similaires

Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
Snapchat locked : mon compte snapchat est bloqué
amelie-2 -
Beratilhan -

51 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
formule de calcule
daniel4577 -
Gyrus -

1 réponse