compteur de caractère + +

[Boyakodah]

Bonjour,

je sais que les questions de compteur de caractères ont déjà fait l'objet de post, mais je n'y ai pas trouve de solution en ce qui me concerne, car j'aimerai un compteur un peu particulier

en fait, j'aimerai savoir si on peut :

compter le nombre de caractère
à partir de la droite et ce jusqu'au 1er espace rencontré.

1ER ETAGE 2E PORTE GAUCHE 28 --> ici je voudrai qu'il me compte 2.

j'avoue que je sèche, j'imagine bien qu'en vba on fait ça tres bien mais je ne suis pas compétente malheureusement ...

merci pour votre aide.

 

[pierrejean]

Re : compteur de caractère + +

bonjour Boyakodah

et bienvenue sur XLD

Une fonction personnalisée

Function nb_apres_derspace(cellule As Range)
 nb_apres_derspace = Len(cellule.Value) - InStrRev(cellule.Value, " ")
End Function

 

[andré]

Re : compteur de caractère + +

Bonjour,

Une formule :
=STXT(A1;CHERCHE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))))+1;15)

 

[Boyakodah]

Re : compteur de caractère + +

merci pierrejean, c'est exactement ça !!

🙂

 

[Boyakodah]

Re : compteur de caractère + +

merci également andré, ça marche aussi bien !

 

[andré]

Re : compteur de caractère + +

Re,

La formule renvoie la dernière chaîne de caractères, alors qu'il était demandé de renvoyer le nombre de caractère de cette chaîne:

=NBCAR(A1)-CHERCHE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))))

 

[pierrejean]

Re : compteur de caractère + +

Re

pour saluer andré que l'on ne voit plus guère ici

et pour le fun ,une autre fonction personnalisée

Function nb_apres_derspace_b(cellule As Range)
 nb_apres_derspace_b = Len(Split(cellule.Value, " ")(UBound(Split(cellule.Value, " "))))
End Function

 

[pierrejean]

Re : compteur de caractère + +

Re

Pour saluer andré

et pour le fun ,une autre fonction personnalisée

Function nb_apres_derspace_b(cellule As Range)
 nb_apres_derspace_b = Len(Split(cellule.Value, " ")(UBound(Split(cellule.Value, " "))))
End Function

et voila que je begaie moi !!!!