Je n'ai pas cette function StrReverse dans tout l'attirail de VBA (je suis sous mac)
Code:
Public Function DroiteGauche(vChaine As String) As String
Dim I As Integer
DroiteGauche = ''
For I = Len(vChaine) To 1 Step -1
DroiteGauche = DroiteGauche & Mid(vChaine, I, 1)
Next I
End Function
@+Jean-Marie
PS, MichelXLD c'est peut-être la première fois que nous nous croisons sur un fil sur un code VBA, à une prochaine, un admirateur de ta page wiki.
Merci pour ton message très sympa : c'est vrai que nous n'avons pas souvent l'occasion de nous croiser sur le forum mais je regarde toujours avec grand interet tes démos et tes formules 'magiques'
D'ailleurs , ta fonction 'DroiteGauche' dans ce fil pourrait faire partie de la prochaine mise à jour de ta Lien supprimé
Merci Tibo pour ta solution, mais je n'ai pas le résultat attendu en fait je me suis mal expliqué;
J'ai sur la moitié d'une feuille A4 une appli, et sur l'autre moitié des libellés, je souhaiterais que les libellés soient écrits à l'envers pour qu'au pliage la partie du bas qui se trouve donc au verso (maintenant format A5) soit à l'endroit lorsque l'on tourne la feuille.
Pas sûr non plus d'avoir bien compris non plus, cependant tu peux aller voir ce fil sur Vériti où je proposais une réponse à une question (en apparence) similaire.
www.veriti.net :: Voir le sujet - inverser un texte