renvoi à la ligne / retour chariot

[Marion (tjrs en apprentissage VBA)]

Bonjour à tous,

Voilà une question surement très simple pour l'ensemble des développeurs acharnés que vous êtes.

J'ai dans une seule et même cellule une liste de termes :
AZ45;AE65;ER78;UY65;RT89

Je souhaite remplacer le point virgule par un renvoi à la ligne (dans la même cellule)

Merci de votre aide.

 

[Marion apprentie VBA rigole pa José]

Merci José

En fait lorsque j'exécute ton code sur ma cellule, excel me remplace la valeur de la cellule par 'NOM'...

Aurais-je une fonctionnalité non instalée dans les macros complémentaires ??

Dernière question le vbLf sert à renvoyer à la ligne ?

Merci de ton aide précieuse.

Marionl'apprentie . 😱

 

[Marion]

J'ai essayé avec une version Excel plus récente...
ça marche.

Merci beaucoup José.

Marion. 🙂

 

[jp14]

Bonjour le fil

Ci joint une macro qui devrait répondre au problème.

Sub essai()
crlf = Chr$(10)
lon = Len(Range('A1').Value)
For i = 1 To lon
a1 = Mid(Range('A1').Value, i, 1)
If a1 = ';' Then a1 = crlf
a = a & a1
Next i
Range('A1').Value = a

End Sub

Bon W E