chaine de caracteres

_nono56 · 7 Octobre 2005

Bonsoir,
Je souhaiterais convertir une chaîne de caractère :
« ESSAI CONVERSION » en
« 'E', 'S', 'S', 'A', 'I', ' ', 'C', 'O', 'N', 'V', 'E', 'R', 'S', 'I', 'O', 'N' »
Merci de votre aide.

Sylvie · 7 Octobre 2005

Bonsoir Nono, Bonsoir le forum

je pense que la solution proposée par André dans ce fil http://www.excel-downloads.com/forums/2-46999-decouper-un-mot-et-mettre-lettres-dans-case.htm#47287
peut t'interesser même si dans le fil en question Alguiche souhaitait qu'apparaisse une lettre par case.

Bonne soirée

Edition
je ne veux surtout pas occulter les solutions apportées par Robert et Hervé dans ce fil, mais j'avoue ne pas les avoir testées

Message édité par: Sylvie, à: 07/10/2005 21:32

myDearFriend! · 7 Octobre 2005

Bonsoir _nono56, Sylvie,

Une solution possible par VBA :

Sub Conversion()
Dim Chaine As String, Result As String
Dim i As Byte
      Chaine = 'ESSAI CONVERSION'
      For i = 1 To Len(Chaine)
            Result = Result & IIf(i > 1, ',', '') & ''' & Mid(Chaine, i, 1) & '''
      Next i
      MsgBox Result
End Sub

Cordialement

_NONO56 · 7 Octobre 2005

Merci Didier mDF
pour la solution en VBA, c'est exactement ce qu'il me fallait .Bravo .
Merci a toi Sylvie.

Slts :woohoo:

babara · 8 Octobre 2005

bonjour,
Comment faire la fonction inverse ??
Je suis novice en VBA Excel
:kiss:

myDearFriend! · 8 Octobre 2005

Bonsoir babara, le fil, le Forum,

Pour obtenir l'inverse, c'est encore plus simple :

Sub InversConversion()
Dim Chaine As String, Result As String
        Chaine = ''E','S','S','A','I',' ','C','O','N','V','E','R','S','I','O','N''
        Result = Replace(Replace(Chaine, ''', ''), ',', '')
        MsgBox Result
End Sub

Cordialement,

chaine de caracteres

_nono56

Guest

Sylvie

XLDnaute Accro

myDearFriend!

XLDnaute Barbatruc

_NONO56

Guest

babara

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires