Trouver le premier espace en partant de la droite

Tibo

XLDnaute Barbatruc

• 3 Août 2007

• #2

Re : Trouver le premier espace en partant de la droite

Bonjour,

Pour trouver le dernier espace, essaye avec cette formule :

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

Le principe :
- compter le nombre d'espaces du texte
- remplacer ensuite le dernier espace par un caractère particulier (µ)
- déterminer le rang de ce caractère particulier

Essaye et dis nous

@+

 

Vote positif 0 Vote négatif

O

os_rouen

XLDnaute Junior

• 3 Août 2007

• #3

Re : Trouver le premier espace en partant de la droite

Cela Fonctionne!!!

Merci beaucoup et bonne journée

Olivier

PS : Comment dois le noter résolu?

 

Dernière édition: 3 Août 2007

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Août 2007

• #4

Re : Trouver le premier espace en partant de la droite

bonjour os rouen

Salut Tibo

Une solution par fonction personnalisée

 

Pièces jointes

• dermot.xls

  21.5 KB · Affichages: 448
• dermot.xls

  21.5 KB · Affichages: 463
• dermot.xls

  21.5 KB · Affichages: 470

Vote positif 0 Vote négatif

O

os_rouen

XLDnaute Junior

• 3 Août 2007

• #5

Re : Trouver le premier espace en partant de la droite

Bonjour & Merci Pierre-Jean,

C'est un tour de magie? Comment fais-je pour utiliser ta fonction personalisée?

C'est une partie d'Excel que je ne connais pas...

Olivier

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Août 2007

• #6

Re : Trouver le premier espace en partant de la droite

re

pour la recuperer

depuis le fichier dermot.xls

Outils -> Macro > Visual basic Editor

tu dois la trouver dans le module1

la copier

même manip pour aller ensuite la coller dans un module de ton fichier

(il te faudra peut-etre faire dans Visual basic Editor
Insertion > Module )

Ensuite elle s'utilise comme n'importe quelle fonction standard
(en fin de liste des fonctions il y aura 'personnalisées')

 

Vote positif 0 Vote négatif

O

os_rouen

XLDnaute Junior

• 3 Août 2007

• #7

Re : Trouver le premier espace en partant de la droite

Okie... cela fonctionne

Serait-il trop de demander de m'expliquer le principe de ton code... Il utilise des fonctions que je ne connais pas (len & mid)... et j'ai du mal à comprendre avec l'aide VB..

D'avance merci

Olivier

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Août 2007

• #8

Re : Trouver le premier espace en partant de la droite

re

voila la fonction commentée (au mieux que je puisse faire)

 

Pièces jointes

• dermot.xls

  22 KB · Affichages: 387
• dermot.xls

  22 KB · Affichages: 392
• dermot.xls

  22 KB · Affichages: 394

Vote positif 0 Vote négatif

O

os_rouen

XLDnaute Junior

• 3 Août 2007

• #9

Re : Trouver le premier espace en partant de la droite

Merci beaucoup...

C'est bcp plus clair pour moi.

Merci encore et bonne journée

Olivier

 

Vote positif 0 Vote négatif

M

MlleDaria

XLDnaute Nouveau

• 1 Septembre 2011

• #10

Re : Trouver le premier espace en partant de la droite

Super macro Pierre-Jean. je l'ai utilisée pour chercher pour extraire le nom d'un fichier d'un chemin

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Septembre 2011

• #11

Re : Trouver le premier espace en partant de la droite

Bonjour MlleDaria, le fil,

En VBA le plus simple est d'utiliser InStrRev pour trouver le dernier espace :

Code:

Function dermot(cellule As Range)
dermot = Mid(cellule, InStrRev(cellule, " ") + 1, 99)
End Function

Voir l'aide VBA.

A+

 

Pièces jointes

• dermot avec InStrRev.xls

  30 KB · Affichages: 176

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Septembre 2011

• #12

Re : Trouver le premier espace en partant de la droite

Bonjour,

Dernier mot

=DROITE(A1;EQUIV(" ";STXT(A1;NBCAR(A1)-LIGNE($1:$255);1);0))
Maj+ctrl+entrée

JB

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Septembre 2011

• #13

Re : Trouver le premier espace en partant de la droite

Bonjour à tous,

une autre pour le fun :

Code:

Function dermot(cellule As Range)
    dermot = Split(cellule)(UBound(Split(cellule)))
End Function

bon après midi
@+

 

Vote positif 0 Vote négatif