Position d'un caractère en partant de la droite en vba

[Chris57]

Bonjour,

je cherche la fonction VDA pour trouver la position d'un caractère en partant de la droite

exemple, pour "xxxxxAxxxxxxxxxxxAxxxxxxxxxxxAxx" il me renvoi 3 pour la position du A

merci d'avance

 

[camarchepas]

Re : Position d'un caractère en partant de la droite en vba

Bonjour ,

Peut être comme ceci

Sub i()
Chaine = "abcd"
caractere = "c"
Positiondroite = Len(Chaine) - InStrRev(Chaine, caractere) + 1
End Sub

 

[JCGL]

Re : Position d'un caractère en partant de la droite en vba

Bonjour à tous,

Peux-tu essayer avec (pour une valeur en A1) :

Mid(Cells(1, 1), Len(Cells(1, 1)) - 2, 1)

A+ à tous

Edition : Salut Nono

 

[Chris57]

Re : Position d'un caractère en partant de la droite en vba

JCGL, dans ton code il n'y a pas le caractère A qui apparaît !?! comment en trouver la position alors ?

camarchepas , ton code fonctionne, merci !!!

 

[camarchepas]

Re : Position d'un caractère en partant de la droite en vba

Réadapté pour ton exemple

Sub i()
Chaine = "xxxxxAxxxxxxxxxxxAxxxxxxxxxxxAxx"
caractere = "A"
Positiondroite = Len(Chaine) - InStrRev(Chaine, caractere) + 1
End Sub

 

[JCGL]

Re : Position d'un caractère en partant de la droite en vba

Bonjour à tous,

Et pourtant...

A+ à tous

Edition : Tu as changé ta demande initiale...

 

[Chris57]

Re : Position d'un caractère en partant de la droite en vba

JCGL, je cherchais la position du caractère, pas extraire une chaîne

oui, j'ai modifié mon exemple car dans mon cas j'ai une chaine de caractère contenant plusieurs fois le même caractère

 

[Modeste geedee]

Re : Position d'un caractère en partant de la droite en vba

Bonsour®
une fonction personnalisée :

Function TrouveD(target As Range, cherche As String) As Integer
TrouveD = 1 + Len(target) - InStrRev(target, cherche)
End Function

nb: plus souple, mais similaire proposition çamarchepas