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