Pd de découpage adresse en plusieurs parties [Résolu]

[edwg]

Bonjour à tous(tes),
je voudrais découper une cellule d'un fichier issu d'un export d'Outlook vers Excel. Le contenu de ma cellule est une adresse saisie sur 2 lignes dans Outlook. Mais dans Excel, je la retrouve en une seule partie avec comme séparateur un caractère style "pause" ou 2 traits verticaux ... cela pourrait correspondre au symbole '255' des caractères spéciaux mais je ne sais pas comment faire pour reconnaître ce caractère dans VBA et pouvoir découper mon adresse... Merci de m'aider

[Oliv-]

Salut,
Voici un code qui devrait te donner satisfaction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub caracteres()
Dim expression As String
Dim decomposition As String
decomposition = ""
expression = "toto est dans l'herbe"
'ou si cellulle excel
'expression = ActiveCell.Formula
For i = 1 To Len(expression)
 
decomposition = decomposition + vbCr + "[" + Mid(expression, i, 1) + "]=" + CStr(Asc(Mid(expression, i, 1)))
Next i
MsgBox decomposition
End Sub

[edwg]

J'ai eu du mal à identifier certains caractères, mais je les ai remplacés par des blancs, et je m'en suis sortie... Merci beaucoup Oliv' !!!