chaine de caracteres

[_nono56]

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]

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!]

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]

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

Slts :woohoo:

 

[babara]

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

 

[myDearFriend!]

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,