fonction "cherche" mais en partant de la droite de la chaine de caractere

[philppe27]

Bonjour,

Je dois rechercher un espace dans une chaîne de caractère mais en partant de la droite de cette chaîne de caractère pour ensuite en faire un extrait (en effet, il peut y avoir dans la chaîne plusieurs espaces).
Je connais la fonction "cherche" mais qui recherche en partant de la gauche de la chaîne.
Je pense qu'il doit y avoir une astuce pour obtenir ce résultat mais cela m'échappe.

Merci d'avance pour vos réponses,

Cordialement.

 

[bcharef]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Bonjour philppe27,
Bonjour à toutes et à tous.

La jointure d'un fichier comme exemple de votre problème sans données confidentielles permettra de comprendre le problème d'une part et apportera beaucoup d'aide d'autre part.

Cordialement.

BCharef

 

[BOISGONTIER]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Bonjour,

A1 contient aaa bbbb ccc dddd

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

Donne la position du dernier espace

=DROITE(A1;EQUIV(" ";STXT(A1;NBCAR(A1)-LIGNE($1:$255);1);0)) donne dddd

ou

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

JB

 

[philppe27]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Merci beaucoup Boisgontier. Je ne pensais pas qu'il fallait utiliser les formules matricielles pour avoir ce résultat

 

[ROGER2327]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Bonjour à tous

Personnellement, je passe par la fonction

[COLOR="DarkSlateGray"]Function renverse(s As String) As String
Dim i As Integer
   For i = 1 To Len(s)
      renverse = Mid$(s, i, 1) & renverse
   Next i
End Function[/COLOR]

et j'écris

[COLOR="DarkSlateGray"]=renverse(GAUCHE(renverse(A1);CHERCHE(" ";renverse(A1))-1))[/COLOR]

On peut évidemment donner un nom plus court à la fonction pour raccourcir l'écriture de la formule.​

ROGER2327
#1969

 

[Staple1600]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Bonjour philippe27, Roger2327, le fil, le forum


ROGER2327: Why not

Function envers(s As String) As String
envers = StrReverse(s)
End Function

 

[philppe27]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

oui avec la fonction c'est pas mal aussi

 

[hoerwind]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

bonjour,

L'extraction, en non matricielle :
=DROITE(A1;NBCAR(A1)-CHERCHE("§";SUBSTITUE(A1;" ";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";"")))))

 

[BOISGONTIER]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Function PosCarInv(chaîne, chaîneCherchée)
PosCarInv = instrRev(chaîne, chaîneCherchée)
End Function

=posCarInv(A1;" ")

JB

 

[philppe27]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

bonjour,

L'extraction, en non matricielle :
=DROITE(A1;NBCAR(A1)-CHERCHE("§";SUBSTITUE(A1;" ";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";"")))))

Je trouve cette formule qui fonctionne très subtile

 

[pierrejean]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

bonjour a tous (Que de beau monde !!)

Quitte a ecrire une fonction:

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

 

[ROGER2327]

Re : fonction "cherche" mais en partant de la droite de la chaine de caractere

Re...

(...)
ROGER2327: Why not

Function envers(s As String) As String
envers = StrReverse(s)
End Function

Tout simplement parce que j'ai ressorti une très vieille fonction... ...et que j'ai oublié de la moderniser.
Il va de soit que l'utilisation de StrReverse s'impose.​

ROGER2327
#1970