Récuperer texte cellule alt entré

[VB@D]

Bonjour à tous et à toutes

Voilà mon problème

Dans la feuil1 de mon classeur J'ai des cellules dans lequelle il y a un retour a la ligne

exemple: cellule A1: Excel [Alt+entrée]Download ce qui donne visuellement
Excel
Download
Moi je voudrais avoir en feuil2 grace a un code VBA
En A1: Excel
En A2: Download

J'espere que j'ai été clair

Merci de votre aide

@+

VB@D

 

[VB@D]

Bonsoir vincent

Merci car ce coup la je crois que c la bonne ;-)

Désolé de t'avoir déranger autant de fois

Maintenant je vais essayer d'adapter ta macro dans mon prog

Encore merci

Bonne soiré

VB@D

 

[pyrof]

Bonjour à tous,


Je vois qu'il y a des petits soucis

Pour palier le maque du split en version 97 voici une autre solution

Sub toto()
x = ActiveCell
Pos = InStr(x, Chr(10))
While Pos > 0
x1 = Mid(x, 1, Pos - 1)
MsgBox x1
x = Mid(x, Pos + 1)
Pos = InStr(x, Chr(10))
Wend
MsgBox x : dernier morceau sur lequel on peut tester si vide
End Sub