Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

compteur de caractère + +

  • Initiateur de la discussion Initiateur de la discussion Boyakodah
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Boyakodah

Guest
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.
 
Re : compteur de caractère + +

bonjour Boyakodah

et bienvenue sur XLD

Une fonction personnalisée

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

Pièces jointes

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;" ";""))))
 
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

Code:
Function nb_apres_derspace_b(cellule As Range)
 nb_apres_derspace_b = Len(Split(cellule.Value, " ")(UBound(Split(cellule.Value, " "))))
End Function
 
Re : compteur de caractère + +

Re

Pour saluer andré

et pour le fun ,une autre fonction personnalisée

Code:
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 !!!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
870
F
  • Question Question
Réponses
1
Affichages
422
B
Réponses
2
Affichages
742
S
Réponses
7
Affichages
2 K
syriak
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…