Compter le nombre d un caractère à la suite dans une cellule en partant droite
Résolu
rorocr
Messages postés
81
Date d'inscription
Statut
Membre
Dernière intervention
-
rorocr Messages postés 81 Date d'inscription Statut Membre Dernière intervention -
rorocr Messages postés 81 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Compter le nombre d un caractère à la suite dans une cellule en partant droite
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Aller à la ligne dans une cellule excel - Guide
- Caractere speciaux - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
3 réponses
Bonjour,
compter de droite à gauche par formule c'est plutôt chaud...
Avec une fonction personnalisée à mettre dans un module standard :
https://www.cjoint.com/c/IKCrlgGpd47
eric
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
Merci pour cette réponse rapide, cela fonctionne parfaitement.
Cdlt,
roro