XL 2013 Inverser des caractères deux par deux dans une cellule

[maxou]

Bonjour à tous,

il y a longtemps que je ne suis pas passé sur le forum excel. Je galère sur un problème. Je cherche à inverser les chaines de caractères deux par deux sur une cellule?
Je dispose de cette chaîne A1B2C3D4, je cherche à obtenir 4C3B2A1.
Pour l'instant j'ai créé une fonction:

Function Reverse$(ByVal S$)
Reverse = StrReverse(S)
End Function

mais le résultat n'est pas le bon. puisque j'obtient 4D3C2B1A; Comment puis je continuer a avancer?

Merci pour votre aide.

Cordialement Maxime

 

[Simply]

Bonjour

Sub Test()
    strValue = "A1B2C3D4"
    For lngLoop = Len(strValue) - 1& To 1& Step -2&
        strReturn = strReturn & Mid$(strValue, lngLoop, 2)
    Next lngLoop
    MsgBox strReturn
End Sub

 

[dg62]

bonjour le fil

avec formule, en A2 la chaîne initiale

=DROITE(A2;2)&STXT(A2;5;2)&STXT(A2;3;2)&GAUCHE(A2;2)

 

[M12]

Bonjour,
si la valeur est en A2

=CONCATENER(STXT(A2;7;2);STXT(A2;5;2);STXT(A2;3;2);STXT(A2;1;2))

 

[Staple1600]

Bonsoir le fil, maxou

maxou
En A1, on :A1B2C3D4
En B1
=DROITE(A1;2)&GAUCHE(DROITE(A1;4);2)&DROITE(GAUCHE(A1;4);2)&GAUCHE(A1;2)
renvoie :D4C3B2A1

EDITION: Houps, pas rafraichi, Bonsoir Simply, dg62 et M12

 

[Staple1600]

Re

Ce fil m'en a rappelé un autre récent

https://www.excel-downloads.com/thr...nt-le-sens-de-lecture.20038333/#post-20273790

Alors je recycle

Function myReverse(ByRef R As Range) As String
Dim Z$, i As Byte, s$
Z = StrReverse(R.Text)
For i = 1 To Len(Z) Step 2
s = s & StrReverse(Mid(Z, i, 2))
Next
myReverse = s
End Function

 

[Dranreb]

Bonsoir Staple1600
Et pourquoi l'argument R y est-il passé ByRef, alors qu'à aucun moment la fonction ne le change par un Set ?
Encore qu'on se fiche de préciser ByVal alors qu'il le faudrait, soit, mais qu'en plus on précise ByRef à la place, c'est un comble …

 

[Staple1600]

Bonsoir Dranreb

Parce qu’après une journée de boulot, je devrais faire une pause et prendre une collation avant de faire du VBA
Merci de me remettre les idées en place.

Function myReverse(ByRef R As Range) As String
Dim Z$, i As Byte, s$
If Len(R) < 4 Or R.HasFormula Then Exit Function
Z = StrReverse(R.Text)
For i = 1 To Len(Z) Step 2
s = s & StrReverse(Mid(Z, i, 2))
Next
myReverse = s
End Function

 

[dg62]

Re,
Adaptation du code de Simply en fonction

Function reverse(chaineIni As Range) As String
    Dim l As Integer
    Dim chaine As String
    chaine = ""
    For l = Len(chaineIni) - 1 To 1 Step -2
        chaine = chaine & Mid$(chaineIni, l, 2)
    Next l
 reverse = chaine
End Function

 

[maxou]

Bonjour a tous,

Merci pour vos multiples réponses, j'avais en effet besoin d'adapté sa dans une fonction. Je vous remercie pour votre aide précieuse qui me fait gagner un temps énorme et les erreurs de saisie .

 

[Modeste geedee]

Bonsour®
autre approche extraite d'un précédent travail de colorimétrie Offset

Function RevHex(target, Nbcar As Integer)
Dim idx As Integer, Cible As String
        Cible = Right(String(Nbcar, "0") & CStr(target.Value), Nbcar)
        For idx = 1 To Nbcar Step 2
                RevHex = Mid(Cible, idx, 2) & RevHex
        Next
End Function